Koneksi Adodc VB 6 dengan Module

Setelah sebelumnya saya sempat membahas Tutorial Koneksi Database Access dengan Adodc VB 6

Tanpa menggunakan Module yaitu tinggal klik Build langsung terkoneksi. Tapi ada kelemahan tentunya dengan cara ini.

Kelemahannya yaitu ketika anda menjalankan Program Tersebut ke PC lain tentu harus mengkoneksikan ulang Adodc ke Database nya karna PC lain tidak mengenali App Path program tersebut.

Contohnya : 

Anda membuat Program VB 6 yang diberi Nama Folder "Program Barang", Nama Databasenya "DB_Penjualan" dengan App Path misalnya di :

• Drive D:\Kuliah\Semester 3\Program Barang\DB_Penjualan.

Ketika anda menyalin Folder Program tersebut ke PC lain dengan App Path yang berbeda, misalnya di :

• Drive E:\Program Barang\DB_Penjualan.

Maka Tentunya Akan Terjadi Error Koneksi di Adodcnya.


Lain Halnya jika Menggunakan Module....

Dengan menggunakan Module, anda ga perlu khawatir dengan pemindahan Data Programnya, selagi Database Accessnya masih dalam satu Folder dengan Program, maka tidak akan terjadi Error Koneksi.

Untuk mengkoneksikan Adodc dengan Module silakan simak tutorial berikut :

Disini Saya Asumsikan membuat koneksi ke Database DB_Jual. dengan Atribut Pelanggan.

1. Komponen yang diperlukan :

• Module
• Adodc
• DataGrid

Tutorial Menambahkan Komponen Adodc dan DataGrid bisa dilihat Disini.

2. Buatlah sebuah Module lalu isi dengan kodingan berikut :

Public Koneksi As New ADODB.Connection

Public Sub Konek_DB()

Set Koneksi = New ADODB.Connection

Koneksi.Provider = "Microsoft.Jet.OLEDB.4.0"
Koneksi.CursorLocation = adUseClient
Koneksi.Open App.Path & "\DB_Jual.mdb"

End Sub

Keterangan : Ganti DB_Jual dengan Nama Database Anda.

3. Buatlah Sub Statement seperti Berikut di Form Pelanggan :

Sub Atur_DG()
 
Call Konek_DB

Adodc1.ConnectionString = Koneksi.ConnectionString
Adodc1.RecordSource = "Select * From Pelanggan"
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1
End Sub

Keterangan : Ganti Pelanggan dengan Nama Tabel Anda.

4. Isi Form Load nya dengan kode berikut ini :

Call Atur_DG

Lebih Lengkapnya seperti gambar dibawah ini :

Untuk kodingan Cara Menyimpan,Edit & Hapus Record nya bisa dilihat di link dibawah ini :

Membuat Button Simpan,Edit,Hapus di VB 6