Script Visual Basic 6.0 Untuk Module Koneksi Database Access 2007

Script Visual Basic 6.0 Untuk Module Koneksi Database Access 2007 | Gho Blog's - Hampir disetiap tutorial pemrograman Visual Basic 6.0 yang menggunakan database, saya selalu menggunakan database Access 2003.

Kemudian seorang visitor bertanya, bagaimana jika yang digunakan adalah Access 2007, dan bagaimna coding untuk koneksinya...?

Menanggapi pertanyaan ini saya memberikan 2 solusi sederhana. Yang pertama silakan gunakan Access 2007 untuk membuat database, tetapi disimpan dalam format 2003 (*.mdb). Solusi yang kedua adalah dengan merubah sidikit script pada module koneksi seperti berikut ini :

Jika menggunakan Access 2003, module koneksinya seperti dibawah ini :

Global conn As ADODB.Connection Global rs As ADODB.Recordset Sub koneksi() On Error GoTo gagal: Set conn = New ADODB.Connection conn.Provider = "microsoft.jet.oledb.4.0" conn.CursorLocation = adUseClient conn.Open App.Path & "\dbbelajar.mdb" Exit Sub gagal: If (Err.Number = -2147467259) Then MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi" End End If End Sub

Sedangkan untuk Access 2007, ubah script diatas menjadi seperti berikut ini :

Global conn As adodb.Connection Global rs As adodb.Recordset Sub koneksi() On Error GoTo gagal: Set conn = New adodb.Connection conn.Provider = "Microsoft.ACE.OLEDB.12.0" '<---- Provider untuk database access 2007 conn.CursorLocation = adUseClient conn.Open App.Path & "\dbbelajar.accdb" '<---- Database Access 2007 Exit Sub gagal: If (Err.Number = -2147467259) Then MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi" End End If End Sub

Sekian jawaban saya pada posting yang berjudul Script Visual Basic 6.0 Untuk Module Koneksi Database Access 2007. Semoga bermanfaat dan bisa menjawab atas pertanyaan visitor lain.