Syntaq dasarnya adalah sebagai berikut :
SELECT column_name(s) FROM table_nameUntuk 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 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 KodeBarang,NamaBarang FROM barang", Conn
Set DataGrid1.DataSource = RSBarang.DataSource
End Sub
Dengan SELECT KodeBarang,NamaBarang FROM barang diatas, maka kita akan dimunculkan hanya data KodeBarang dan NamaBarang Saja, anda pun bisa mengubahnya sesuai dengan keinginan anda.
Semoga bermanfaat,
Salam
Pintar VB | Tutorial Visual Basic 6.0 dan Visual Basic .Net
0 Response to "Penggunaan SQL SELECT (Tanpa Bintang)"