Koneksi ADODC dan DATAGRID dengan MODULE pada VB.6

di pagi ini saya memposting tentang bagaimana cara mengkoneksikan database dengan module, kelebihan dari menggunakan cara ini adalah disaat file database access yg kalian simpan dipindahkan ke directory lain (flashDisk) insya'allah tidak menemukan error not database find, hmmmm jadi inget UTS Visual Basic diKampus, pada malam pengumpulan tugas saya santai aja alnya saya sudah mengerjakan tugas itu tapi setelah saya kumpulkan, ternyata program yg saya buat itu tidak konek dengan database , padahal di notebook saya itu program'a running dan success.....ahhhh galau dah.......tapi sekarang saya sudah tahu solusinya....hhehehe
" hmmmmmm ngefans ironman tapi UTS VB jeblok "
ya udah langsung ja baca bagaimana cara koneksi ADODC dan DATAGRID dengan MODULE pada VB.6 ini deh.....

cara koneksi dengan MODULE (ADODC & DATAGRID)
1. buatlah 1 folder utama yg berisi 3 folder yg bernama : DataBase, Form, Module

2. BUKA VISUAL BASIC 6, MUNCUL JENDELA NEW PROJECT LALU PILIH STANDART EXE (OPEN)

3. KLIK ADD-INS > VISUAL DATA MANAGER > LALU AKAN MUNCUL JENDELA VisData , klik file > new > Microsoft Access > Version 7.0 MDB...

4. Lalu simpan file ms.access'a di folder database yg sebelum'a anda buat, setelah disimpan lalu muncul jendela database windows , klik kanan pada properties pilih new table lalu muncul jendela table structure isi table name'a dan isi field list'a dengan mengklik add fields lalu build table lalu close dari jendela visidata

5. klik menu Project > Components ( Ctrl + T ) muncul jendela Components > controls > pilih dan centang Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB) > apply

6. BUATLAH FORM seperti ini dengan component ADODC dan DATAGRID

7. buatlah module dengan mengklik Menu Project > Add Module lalu muncul jendela add module pilih new lalu open

8. isikan Coding ini di module :

Public Conn As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Const dbasefile = "campret.mdb"  'campret.mdb adalah nama file access yg akan di koneksikan dengan ADODC
Public Sub koneksi()
If Conn.State = adStateOpen Then Conn.Close
Conn.Mode = adModeReadWrite
Conn.Open "provider=microsoft.jet.oledb.4.0; " & "Data source=" & App.Path & "\DataBase\" & dbasefile
Exit Sub
' "\DataBase\" adalah nama folder dimana yg menyimpan file access tersebut
' " & "Data source=" & App.Path &  adalah coding agar file access tidak error jika di pindah kan ke directory lain (dalam catatan masih berada di folder DataBase)

konekErr:
    MsgBox "Gagal menghubungkan ke Database ! Kesalahan pada : " & Err.Description, vbCritical, "Peringatan"
End Sub



Public Sub openRecordset(sql As String)
If rs.State = adStateOpen Then rs.Close
rs.Open sql, Conn, adOpenDynamic, adLockOptimistic, adCmdText
End Sub

9. lalu klik form1 dan isi kan Coding untuk mengkoneksikan ADODC & DATAGRID Dengan File access Tersebut:
Private Sub Form_Load()
koneksi
Adodc1.ConnectionString = Conn.ConnectionString
Adodc1.RecordSource = "select * from laporan"
' form laporan adalah nama table yg berada di file access tersebut
'Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1

Me.Adodc1.Refresh
Me.DataGrid1.Refresh

End Sub


10. klik Run > Start ( F5)

terimakasih semoga postingan Koneksi ADODC dan DATAGRID dengan MODULE pada VB.6 ini bermanfaat

catatan : jika error pastikan file project , form1 dan Module1 sudah tersimpan pada folder masing yg di buat tadi