Cara Membuat Form Pencarian Barang VB 6.0

Pada Belajar VB 6.0 kali ini adalah Cara Membuat Form Pencarian Barang VB 6.0. Pada pembelaran Form pencarian Barang ini tidak dikhususkan pada Tabel ataupun Form Barang saja. Ini adalah sebuah contoh saja kami menggunakan Form Barang nantinya jika anda sudah bisa maka Tabel atau Formnya bisa diganti sesuai dengan keinginan anda.

Logika programnya adalah, pastikan anda bisa membuat koneksi database kedalam sebuah Form Visual Basic. Jika sudah bisa membuat Koneksi database maka selanjutnya adalah membuat koding tambahan untuk menyeleksi pencari data sesuai dengan keinginan kita.

Untuk lebih jauhnya silahkan ikuti secara detail dan fokus pada pembelajaran singkat dibawah ini :

Mungkin bagi anda yang sedang belajar VB 6.0 ini adalah Pembelajaran favorit karena dengan ini anda bisa mencari data pada setiap Form yang anda buat.

Langkahnya adalah sebagai berikut.
1. Buatlah sebuah Folder pada Drive D anda (nama Folder : VB Pencarian Barang)
2. Buatlah Database dengan Access 2003
3. Nama Database DBCari.mdb
4. Kemudian buatlah tabel Barang
5. Buatlah Field pada tabel barang yaitu : KodeBarang dan NamaBarang

6. Kemudian Masukan data seperti gambar diatas

7. Buatlah  Project Dengan VB 6.0
8. Simpan pada Folder yang telah kita buat diatas
9. Buat Design seperti gambar dibawah bawah ini

10. Kemduian masukan Koding dibawah ini :

Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBCari.mdb"
End Sub
Private Sub Form_Load()
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBCari.mdb; "
Adodc1.RecordSource = "Barang"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Text1_Change()
Call BukaDB
        RSBarang.Open "select * from Barang where NamaBarang like '%" & Text1 & "%'", Koneksi
        If Not RSBarang.EOF Then
                Adodc1.RecordSource = "select * from Barang where NamaBarang like '%" & Text1 & "%'"
                Adodc1.Refresh
                Set DataGrid1.DataSource = Adodc1
        End If
End Sub

11. Kemudian Jalankan Program anda

Untuk Hasilnya anda bisa DOWNLOAD DISINI

Jika Artikel ini bermanfaat, kami senang jika anda berkomentar dibawah :)

Salam
BelajarVB.com