Menghubungkan Aplikasi Front End Ke Database Microsoft Access Via ODBC

Niguru.com | Minggu, 24 Mar 2019 | Pada posting kemarin, Niguru.com sudah menjelaskan cara untuk menghubungkan database MS (Microsoft) Access ke ODBC.

Sebagai kelanjutannya, pada posting kali ini Niguru.com akan menjelaskan cara untuk menghubungkan aplikasi front end ke database yang sudah terhubung ke ODBC pada VBA (Visual Basic Application).



Berikut ini adalah instruksi yang harus dituliskan, untuk membuat koneksi ke ODBC dan membuka tabel yang ada pada database yang sudah terhubung dengan menggunakan ADODB.Connection:

Private Sub TestOpenODBC()
Dim MyConn As String
Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset

MyConn$ = "Dsn=[nama_dsn]"

Set cn1 = New ADODB.Connection
Set rs1 = New ADODB.Recordset

cn1.Open MyConn
rs1.Open "SELECT * FROM Table1", cn1, 1, 3 '=adOpenKeyset, adLockOptimistic

[instruksi-instruksi manipulasi record pada tabel]
..................
..................

rs1.Close
cn1.Close

End Sub

-------------------------------

Berikut ini untuk menghubungkan ke file yang menggunakan password:

Private Sub TestOpenODBC()
Dim MyConn As String
Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset

MyConn$ = "Dsn=[nama_dsn];Uid=[user_name];Pwd=[password];"

Set cn1 = New ADODB.Connection
Set rs1 = New ADODB.Recordset

cn1.Open MyConn
rs1.Open "SELECT * FROM Table1", cn1, 1, 3 '=adOpenKeyset, adLockOptimistic

[instruksi-instruksi manipulasi record pada tabel]
..................
..................

rs1.Close
cn1.Close

End Sub

-------------------------------

Contoh:

Private Sub TestOpenODBC()
Dim MyConn As String
Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset

MyConn$ = "Dsn=ngr;Uid=;Pwd=;"

Set cn1 = New ADODB.Connection
Set rs1 = New ADODB.Recordset

cn1.Open MyConn
rs1.Open "SELECT * FROM Table1", cn1, 1, 3 '=adOpenKeyset, adLockOptimistic


rs1.Close
cn1.Close

End Sub

-------------------------------

Demikianlah cara untuk menghubungkan aplikasi front end dengan database yang sudah terhubung ke ODBC. Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Lokasi:

Berbagi :