Melakukan Pencarian Data via SQL dan ADODC

Mei 5, 2008 in Belajar, Programming
Tags: adodc, database, sql

Menggunakan Bahasa SQL untuk melakukan pencarian data sejatinya merupakan hal yang sederhana namun sangat ampuh. Sebab, bahasa SQL memang bahasa yang digunakan untuk memanipulasi jenis Database Relational dengan ‘merk’ apapun. Artinya, database relational dengan berbagai merk pasti mampu mengakomodasi bahasa SQL.

Namun, pada kesempatan ini, saya tidak terlalu dalam membahas seluk beluk bahasa SQL dan bagaimana bentuknya(mungkin lain kali). Melainkan, bagaimana menggukan bahasa SQL pada pemrograman Visual Basic dan menggunakan komponen ADODC, dalam melakukan pencarian data yang diinginkan.

Tahap Pertama….

Buatlah database dengan Access dengan nama database : tkbuku, dan buatlah table didalamnya dengan nama table : buku. Seperti pada gambar berikut ini.

Gambar Tampilan Program Ketika DiRunning & Isi dari Tabel Buku

Tahap Kedua…,

Gunakan Pemrograman Visual Basic untuk membuat tampilan pada gambar kesatu. Kemudian lakukan konfigurasi pada ADODC sebagai berikut :

1. Klik kanan pada ADODC, klik ADODC properties
2. Pilih Use Connection String, klik Build
3. Pilih Microsoft Jet 4.0 OLE DB Provider, klik Next
4. Ketik tkbuku.mdb pada database name, klik Test Connection
5. Jika Sukses, klik OK
6. Kemudian, pilih Tab RecordSource
7. Pilih adCmdTable pada Command Type
8. Pilih buku pada Table or Stored Procedure Name
9. Kalu sudah, klik OK

Tahap Ketiga…,

Tuliskan kode program pada Tombol Execute, sebagai berikut :

Private Sub Command1_Click() With Adodc1 .Enabled = False .CommandType = adCmdText .RecordSource = "" .RecordSource = Text1.Text .Enabled = True .Refresh End With End Sub

Tuliskan kode program pada Tombol Refresh, sebagai berikut :

Private Sub Command2_Click() With Adodc1 .Enabled = False .CommandType = adCmdTable .RecordSource = "" .RecordSource = "buku" .Enabled = True .Refresh End With End Sub

Sehingga ketika anda meng-klik tombol Execute dengan sebelumnya menuliskan perintah SQL : Select judul From buku, akan muncul tampilan sebagai berikut :

Gambar Tampilan Hanya Field judul yang Tampil

Untuk pencarian, misalnya anda ingin mencari data buku yang diterbitkan oleh andi, tuliskan perintah berikut : Select * From buku Where penerbit=’andi’, perintah SQL : Select * From buku Where kode=’AKU001’.

Selamat Mencoba