Cara membuat Module VB6 Dengan Data Base Acces
Membuat module sebenarnya tidaklah sulit, karena semua module intinya sama , hanya nama databasenya saja yang dirubah. Bagi anda yang sih awam memang terasa sulit jika akan membuat module data base kususnya acces yang akn kita bahas kali ini.
Untuk membuat module langakh langkah yang harus dilakukan adalah :
1. Klik pada menu project yang berada diatas bar vb6. Lalu pilih Add Module
2.Akan muncul notif seperti gambar dibawah. Pilih Open
3. Lalu akan muncul tampilan layar untuk mengisi source kode module anda . Lihat gambar dibawah
4. Ketikan source kode seperti gambar dibawah ini.
NB :.Berikut ini penjelasan coding di atas.
Public Conn As New ADODB.Connection à mendeklarasikan variabel Conn sebagai ADODB Connection, yang nanti akan digunakan untuk mengkoneksikan dengan database
Public Rs As New ADODB.Recordset à mendeklarasikan variabel Rs sebagai ADODB Recordset, yang nanti akan digunakan untuk mengkoneksikan dengan field yang ada dalam database
Public Sub koneksi() à membuat fungsi dengan nama koneksi
StrConnext = “PROVIDER......\penjualan.mdb” àvariabel untuk mengkoneksikan dengan database dengan nama penjualan (ingat, jika nama database anda berbeda cukup ganti penjualan dengan nama database anda, dan database harus diletakkan satu folder dengan program)
5. Ini source kodenya
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Sub koneksi()
strconnect = "PROVIDER=microsoft.jet.OLEDB.4.0;Data Source=" & App.path & "\penjualan.mdb"
If Conn.State = adStateOpen Then
Conn.Close
Set Conn = New ADODB.Connection
Conn.Open (Strconnect)
Else
Conn.Open (Strconnnect)
End If
End Sub
Ganti nama data base pada koding yang berwarna yang berwarna merah dengan nama database anda. Yang terpenting format data base harus .mdb .
Saya harap untuk mengetik ulang koding module yang akan di gunakan agar tidak eror.
Komentar
Posting Komentar