Melakukan Pencarian Data via SQL dan ADODC


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.

sql2

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 :

sql1

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

About these ads

Berikan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s