Syntaq dasarnya adalah sebagai berikut :
SELECT column_name(s) FROM table_name ORDER BY column_name [ASC|DESC]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.ConnectionKemudian Run atau Jalankan Program, jika sukses maka akan muncul seperti dibawah ini :
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 * FROM barang ORDER BY NamaBarang ASC", Conn
Set DataGrid1.DataSource = RSBarang.DataSource
End Sub
Hasil dari Koding diatas adalah Menyeleksi Tabel Barang dengan Mengurutkan NamaBarang secara urut dari A sampai Z, anda juga bisa mengurutkan dari Z sampai A dengan mengganti ASC menjadi DESC
Semoga bermanfaat,
Salam
Pintar VB | Tutorial Visual Basic 6.0 dan Visual Basic .Net
0 Response to "Penggunaan SQL ORDER BY"