Syntaq dasarnya adalah sebagai berikut :
SELECT DISTINCT column_name(s)Untuk mempraktikannya ikuti langkah dibawah ini :
FROM table_name
Buatlah sebuah Folder dengan Nama "Latihanku"
Buat database dengan nama : DBPintarvb.mdb
Masukan database DBPintarvb.mdb tersebut pada folder "Latihanku"
Tambahkan Tabel "Barang" dan Design Tabel Barang adalah sebagai berikut :
Kemudian masukan data pada Tabel Barang seperti contoh dibawah ini :
Buka Visual Basic 6.0 anda, kemudian simpan didalam Folder "Latihanku"
Buatlah Form seperti gambar dibawah ini :
Kemudian pada Form1 masukan Koding dibawah ini :
Dim Conn As New ADODB.ConnectionJika kita melihat Tabel Barang diatas, maka ada kesamaan pada SatuanBarang yaitu PCS ada 3, DUS dan BOTOL. Namun pada syntaq diatas artinya "Kita akan memilih data SatuanBarang yang berbeda.
Dim RSBarang As ADODB.Recordset
Sub BukaDB()
Set Conn = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBPintarvb.mdb"
End Sub
Private Sub Form_Activate()
Call BukaDB
Conn.CursorLocation = adUseClient
RSBarang.Open "SELECT DISTINCT SatuanBarang FROM barang", Conn
Set DataGrid1.DataSource = RSBarang.DataSource
End Sub
Gambar dibawah adalah hasil atau Run / Jalankan Program dengan Syntaq diatas :
Semoga bermanfaat, Lihat Juga Panduan Pemrograman Komputer
Salam
Pintar VB | Tutorial Visual Basic 6.0 dan Visual Basic .Net
0 komentar:
Posting Komentar