Membuat Program Perpustakaan visual basic 6 dengan microsoft access 2007 bagian pertama

Untuk Membuat Program Perpustakaan visual basic 6 dengan microsoft access 2007 akan saya terangkan dengan menggunakan artikel episode karena saking banyaknya kode yang akan digunakan sehingga membutuhkan banyak sekali artikel yang bersambung dan disini saya akan menerangkan dari awal hingga akhir pembuatan program Perpustakaan menggunakan visual basic 6 dengan database menggunakan microsoft access 2007.

Membuat program perpustakaan cukup rumit sehingga membutuhkan ketelitian yang sangat besar sekarang saya akan memulai pembuatan program perpustakaan menggunakan visual basic 6, untuk pertama kali saya akan membuat form untuk insert data buku kedalam database kali ini saya taruh di form1, komponen yang saya gunakan adalah 4 label, 4 text, 2 button dan 1 listview dengan header column Nama buku, Jumlah, Harga/1 dan Kode lihat gambar dibawah:

 

Kemudian buatlah database menggunakan Microsoft Access 2007 dengan table pertama dbuku dan 5 kolom yaitu ID,NBuku,Harga,Jumlah dan Kode lihat gambar dibawah ini:

 a. Insert data ke database

 

Setelah itu simpan database yang sudah dibuat seforlder dengan project yang sedang dalam proses pembuatan dengan nama perpus.accdb, setelah database sudah dibuat kembali lagi ke visual basic 6 simpan dahulu project yang dalam proses kedalam folder yang sama dimana database disimpan lalu klik Project-->Preference-->Microsoft ActiveX Data Object 6.0 Library->OK dan buatlah 1 module pada project visual basic, masukkan kode dibawah:

Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Sub Main()
Set cn = New ADODB.Connection
cn.ConnectionString = "provider = microsoft.ace.oledb.12.0; data source= " & App.Path & "\perpus.accdb;Persist Security Info=False"
cn.Open
Form1.Show
End Sub

Sub lihat()
Dim str As String
str = "select * from Dbuku"
Set rs = cn.Execute(str)
Form1.ListView1.ListItems.Clear
Do While Not rs.EOF
Set Item = Form1.ListView1.ListItems.Add(, , rs!Nama)
Item.SubItems(1) = rs!Jumlah
Item.SubItems(2) = rs!Harga
Item.SubItems(3) = rs!Kode
rs.MoveNext
Loop
Set rs = Nothing

End Sub

Selanjutnya klik kanan pada Project1(Project1.vbp) yang berada disebelah kanan atas pilih Project1 properties Start Up Object pilih Sub main, sebelum berlanjut ke tahap insert data ke database coba run dahulu, kalau form1 terbuka itu menandakan sodah connect kedatabase.

Jika form1 sudah terbuka kemudian klik 2 kali form1 hapus semua kode yang ada dan masukkan kode dibawah ini:

Private Sub Command1_Click()
Set rs = New ADODB.Recordset
rs.Open "select * from Dbuku", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs!Nbuku = Text1.Text
rs!Jumlah = Text2.Text
rs!Harga = Text3.Text
rs!Kode = Text4.Text
rs.Update
MsgBox "Data masuk"
Module1.lihat
Set rs = Nothing
End Sub


Private Sub Form_Load()
Module1.lihat
End Sub