Cara Membuat Pencarian Data Dengan Visual Basic 6.0

Salam semangat ya baut anda semua, bagi yang tidak semangat mohon untuk semangat, karna dalam menjalani hibup itu harus penuh semangat, tanpa adanya rasa semangat kalian semua pasti gak bakalan maju-maju. ok pada waktu yang berbahagia ini akan saya berikan sedikit tentang bagaimana cara dalam pembuatan atau koding dari aplikasi pencarian data pada visual basic 6.0. kenapa saya ingin berbagi tentang artikel pencarian data di visual basic. karna banyak teman saya yang agak kesulitan dalam pembuatanya maka dari itu saya punya fikirna ingin mempublikasinya ke dalam dunia maya.

Dalam pembuatan aplikasi pencarian data visual basic, akan saya jelaskan coding atau source code dari program tersebut.

Pertama yang dilakukan adalah anda harus membuat data base terlebih dahulu, nah disini saya contohkan akan menggunakan database microsoft access 2003 dengan nama "Pegawai" dan didalam database tersebuat akan saya buat tabel dengan nama "nasaba" yang memiliki 2 fiel yaitu ID dan Nama yang sudah saya isi seperti dibawah ini

Jika sudah di buat langkah berikutnya yaitu anda buka atau jalankan program visual basic 6.
Setelah itu anda Buat form beserta componen yang di butuhkan untuk pembuatan program pencarian data seperti di bawah ini :

Komponen yang dibutuhkan sesuai dengan gambar di atas yaitu
- Textbox dengan nama 'txtcari'
- DataGrid dengan nama 'DataGrid11'

Untuk selanjudnya anda buat modul dengan nama 'modul'1 dimana modul ini digunakan untuk koneksi database access.
Adapun sour codenya seperti di bawah ini :

Public konek As New ADODB.Connection

Sub RINAWATI()
Set konek = New ADODB.Connection
        konek.Provider = "Microsoft.Jet.OLEDB.4.0"
        konek.CursorLocation = adUseClient
        konek.Open App.Path & "\PEGAWAI.mdb"
End Sub

Jika sudah sekarang kita buat koding atau source sode Form_Load dengan koding di bawah ini

Private Sub Form_Load()
Call RINAWATI
Call susanto
End Sub

Selanjudnya anda buat  variabel yang berisi koding pencarian dengan nama susanto dimana koding tersebut seperti di bawah ini :

Private Sub susanto()
Set rs = New ADODB.Recordset
  If rs.State = adStateOpen Then
    rs.Close
    Set rs = New ADODB.Recordset
  End If
rs.CursorLocation = adUseClient
rs.Open "select * from nasabah where nama like '" & txtcari.Text & "%'", konek, adOpenStatic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Langkah terakhir ketik kan koding seperti di bawah ini pada txtcari_ yang sudah kita buat tadi

Private Sub txtcari_Change()
Call susanto
End Sub


Berikan donasi anda ke-pada kami
ke rek BNI : --
AN. Susanto

Untuk unduh file tersebut.
konfirmasi bisa ke wa : --

Sampai di sini sudah paham kan bagai mana membuat program pencarian data pada visual basic
Agar lebih jelas anda dapat mendownload program tersebut dengan Klik Download Program Pencarian.
Semoga artikel ini dapat bermanfaat bagi kita semuanya......

Tweet