Source Code & Tutorial Membuat Form Pencarian Barang VB 6.0

Source Code & Tutorial Membuat Form Pencarian Barang VB 6.0

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Source Code & Tutorial Membuat Form Pencarian Barang VB 6.0.

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
Cara Membuat Form Pencarian Barang VB 6.0, Membuat Form Pencarian Barang.
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
Cara Membuat Form Pencarian Barang VB 6.0
10. Kemduian masukan Koding dibawah ini :
Dim Koneksi As New ADODB.Connection
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
11. Kemudian Jalankan Program anda
Cara Membuat Form Pencarian Barang VB 6.0, Membuat Form Pencarian Barang.

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

Tag : Cara Membuat Form Pencarian Barang VB 6.0, Membuat Form Pencarian Barang.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Source Code & Tutorial Membuat Form Pencarian Barang VB 6.0"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel