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.
Tutorial komputer , VB
