Artikel Terkait Tutorial VB6
Pada Belajar VB 6.0 kali ini adalah Cara Membuat Form Pencarian Barang VB 6.0
Mungkin bagi anda yang sedabg belajar VB 6.0 ini adalah Pembelajaran favorit karena dengan ini anda bisa mencari data pada setiap Form yang anda buat.Tutorial Membuat Form Pencarian Barang VB 6.0
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 :
Dim Koneksi As New ADODB.Connection11. Kemudian Jalankan Program anda
Dim RSBarang As ADODB.Recordset
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
Jika Artikel ini bermanfaat, kami senang jika anda berkomentar dibawah :)
Tag : Cara Membuat Form Pencarian Barang VB 6.0, Membuat Form Pencarian Barang.
Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :
Rekomendasi Web Hosting
- 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
- 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
- 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).