Penggunaan SQL SELECT DISTINCT

Pada Tutorial SQL kali ini akan dibahas Penggunaan Dari SQL SELECT DISTINCT. SQL SELECT DISTINCT biasanya digunakan untuk Memilih atau Menyeleksi Data yang berbeda pada Field Tabel tertentu. Untuk lebih jelasnya anda bisa membaca Tutorial dibawah dan bersama mempraktikannya sehingga anda benar-benar paham penggunaan SQL SELECT DISTINCT ini.

Syntaq dasarnya adalah sebagai berikut :

SELECT DISTINCT column_name(s)
FROM table_name

Untuk mempraktikannya ikuti langkah dibawah ini :

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.Connection
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

Jika 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.
Gambar dibawah adalah hasil atau Run / Jalankan Program dengan Syntaq diatas :

KLIK DISINI UNTUK DOWNLOAD APPSQL

Semoga bermanfaat,
Salam,
BelajarVB.com