Pencarian berdasarkan beberapa kategori di vb 6 dengan Mysql

Apakah anda sedang kesulitan mencari tahu source code untuk melakukan pencarian data berdasarkan beberapa kategori dengan database Mysql ???
kalau iyaa berarti anda tepat ke blog ini.. sekarang kita akan membahas masalah itu.. hehe
sebelumnya anda harus sudah paham terlebih dahulu tutorial yang berikut ini..

1. Setting koneksi Mysql di Vb 6 dengan ADODB 
2. Perintah simpan di vb 6 menggunakan database mysql 
3. Perintah Edit dan hapus di vb 6 menggunakan database Mysql 

 sekarang kita bisa lanjut.. :)
ok.. apa yang kita perlukan ?

1. kita perlu database (sepertinya kita pakai database dbbiodata saja)
2. 1 Form ( 1 datagrid, 1 label, 1 combo , 1 text, 1 button)
3. 1 module

silahkan buat tampilan form seperti berikut :

dikarenakan kita memakai database tbbiodata maka nanti kategori yang kita gunakan yaitu (nama, alamat, telepon) yang sesuai dengan field di tabel tersebut.

ok sekarang saatnya kita ngooding.... hehe

klik 2x module tambahkan perintah berikut :
Public con As New ADODB.Connection
Public rst As New ADODB.Recordset
Public strcon As String
Public strsql As String

Public Sub buka()
On Error GoTo pesan
strcon = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=mybiodata;Initial Catalog=dbbiodata"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strcon
Else
con.Open strcon
End If
Exit Sub
pesan:
MsgBox "Tidak ada koneksi ke database..!", vbInformation, "Informasi"
End Sub

Public Sub tutup()
con.Close
End Sub

jika sudah kita kembali ke tampilan form,silahkan tambahkan perintah berikut di (general) (declaration)
Option Explicit
Dim lihat As New Recordset
Dim sql As String

selanjutnya klik 2x di form load
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem ("Nama")
Combo1.AddItem ("Alamat")
Combo1.AddItem ("Telepon")
'perintah di atas digunakan untuk menambahkan kategori di combo pada saat form dijalankan

'perintah ini dipakai untuk menampilkan seluruh data dari tabel biodata
buka
con.CursorLocation = adUseClient
Set lihat = New Recordset
sql = "Select * From tbbiodata"
lihat.Open sql, con, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = lihat.DataSource
'berakhir sini
End Sub

dan terakhir kita tambahkan perintah berikut di tombol tampilkan data
Private Sub Command1_Click()
If Combo1.Text = "" Then
MsgBox "Pilih Kategori Dahulu !"
 Combo1.SetFocus
Exit Sub
End If
'perintah di atas akan menampilkan pesan jika kategori belum dipilih

'perintah dibawah digunakan untuk pencarian berdasarkan
buka
con.CursorLocation = adUseClient
Set lihat = New Recordset

'jika kategori nama dipilih
If Combo1.ListIndex = 0 Then
    'jika text masih kosong akan menampilkan pesan
    If Text1.Text = "" Then
    MsgBox "Masukkan nama yang anda cari !"
    Text1.SetFocus
    Exit Sub
    End If
    'perintah select berdasarkan nama menggunakan like (dikarenakan untuk nama bisa saja sama)
    sql = "Select * From tbbiodata where nama like '%" & Text1.Text & "%'"
'jika kategori alamat dipilih

ElseIf Combo1.ListIndex = 1 Then
    If Text1.Text = "" Then
    MsgBox "Masukkan alamat yang anda cari !"
    Text1.SetFocus
    Exit Sub
    End If
    'perintah select berdasarkan alamat
    sql = "Select * From tbbiodata where alamat like '%" & Text1.Text & "%'"
'jika kategori telepon dipilih

ElseIf Combo1.ListIndex = 2 Then
    If Text1.Text = "" Then
    MsgBox "Masukkan no telepon yang anda cari !"
    Text1.SetFocus
    Exit Sub
    End If
    'perintah select berdasarkan telepon
    sql = "Select * From tbbiodata where telepon='" & Text1.Text & "'"
End If

'menampilkan kedalam datagrid
lihat.Open sql, con, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = lihat.DataSource

End Sub

akhirnnya selesai kita ngodiing.. silahkan jalankan dengan menekan F5

sekian tutorial pencarian berdasarkan beberapa kategori di vb 6 dengan Mysql

jika masih kurang paham silahkan komen

untuk source code silahkan download disini

About Me :

Saya Martin Purnansyah
Nama Marcode adalah singkatan dari martin code, niat awal saya membuat website ini bertujuan untuk berbagi pengalaman yang saya dapat selama belajar pemrograman. Semoga situs marcode.web.id kedepannya rutin membuat tutorial - tutorial baru. Salam Coding.. :)