Pencarian Dengan Metode Find, Move dan SQL Pada ADO Menggunakan Visual Basic 6.0

Pada pemprograman database, proses pencarian data umumnya sangat dibutuhkan agar data/record yang akan dimanipulasi sesuai dengan yang diinginkan. Berikut beberapa metode pencarian data yang akan kita bahas.

komponen tambahan dalam program ini adalah :

a. Microsoft Ado data Control 6

b. Microsoft DataGrid Control 6

Setelah mendesain form seperti diatas, lalu buat database dengan microsoft access seperti dibawah ini lalu isikan beberapa record untuk pencarian nanti :

setelah muncul jendela kode modul,,isikan kode berikut untuk koneksinya :

Public conn As New ADODB.Connection

Sub koneksi()
Set conn = New ADODB.Connection

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/latihan.mdb;Persist Security Info=False"
End Sub

Call koneksi
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/latihan.mdb;Persist Security Info=False"
Adodc1.RecordSource = "MHS"
Adodc1.RecordSource = "select * from MHS"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
txtcari.SetFocus

Kemudian klik dua kali pada tombol Cari Dengan Find atau cmdfind hingga muncul jendela kode untuk cmdfind, lalu tuliskan kode pencarian find seperti dibawah ini :

Private Sub cmdfind_Click()
Dim cari As String
cari = "NRP = '" & txtcari & "'"
Adodc1.Refresh
With Adodc1.Recordset
.Find cari
If Not .EOF Then
    MsgBox .Fields(0) & "-" & .Fields(1), vbExclamation, "Pencarian Data Find"
    Else
    MsgBox "Data Mahasiswa Dengan NRP " & txtcari & " tidak ada", vbCritical, "Perhatian"
    txtcari = ""
    Text1.SetFocus
    End If
End With
End Sub

Jika sudah, coba jalankan programnya, lalu inputkan NRP pada Text Box Cari NRP kemudian klik tombol Cari Dengan Find yang sudah kita isikan kode perintah pencarian dengan metode find. 

Jika data ditemukan maka akan muncul pesan yang berisi data NRP dan Nama seperti gambar dibawah ini :

Sekarang kita buat contoh pencarian dengan menggunakan metode move,,

Klik dua kali pada tombol Cari Dengan Move sampai muncul jendela kode, lalu isikan dengan kode perintah berikut :

Adodc1.Refresh
With Adodc1.Recordset
.MoveFirst
Do While Not .EOF
    If txtcari = .Fields("NRP") Then
    MsgBox "Data Mahasiswa yang dicari adalah " & vbCrLf & .Fields("NRP") & " " & .Fields("NAMA"), vbExclamation, "Pencarian Data Move"
    Exit Do
    End If
    .MoveNext
Loop
If .EOF Then MsgBox "Data tidak Ada !", vbCritical, "Perhatian"
End With

Klik dua kali pada txtcarisql atau text Cari NRP Dengan SQL kemudian isikan kode pencarian seperti dibawah ini :

Private Sub txtcarisql_Change()
If txtcarisql.Text = Empty Then
    Adodc1.RecordSource = "select * from MHS"
Else
    Adodc1.RecordSource = "select * from MHS where NRP like '%" & txtcarisql.Text & "%'"
End If
Adodc1.Refresh
If Not Adodc1.Recordset.EOF Then
    If txtcarisql.Text = Empty Then
    lblnama.Caption = ""
    lbljurusan.Caption = ""
    lblnilai.Caption = ""
    Else
With Adodc1.Recordset
lblnama.Caption = .Fields("NAMA")
lbljurusan.Caption = .Fields("JURUSAN")
lblnilai.Caption = .Fields("NILAI")
    End With
End If
    Else
    lblnama.Caption = ""
    lbljurusan.Caption = ""
    lblnilai.Caption = ""
End If
End Sub     

Sekarang jalankan programnya lalu inputkan NRP dengan 2 digit dulu, misalkan "01" lalu perhatikan perubahan data yang terjadi pada datagrid. Jika ditampilkan secara lengkap maka tampilan data dalam datagrid seperti gambar berikut ini :

Sampai disini dulu pembahasan tentang metode pencarian ADO,,untuk pencarian dengan metode Find dan Move bisa dikembangkan lagi, misalnya dengan menempatkannya pada even Change dari textbox seperti pada metode SQL., jadi bisa disesuaikan dengan kebutuhan teman-teman. ^_^

DOWNLOAD CONTOH PROGRAM DISINI

Artikel ini juga saya posting di blog saya : http://fadilcrows.blogspot.com/2012/07/metode-pencarian-find-move-dan-sql-pada.html

Form Komentar Via Komputer kampus :

M. Najamudin Ridha

Kategori Artikel

RSS Feed

Cari Artikel

Statistik Web

Poling

Link Sahabat