KONEKSI JARINGAN VB WITH ACCESS

Menjawab pertanyaan mas buddy tentang koneksi jaringan menggunakan database access pada pemrograman VB6.




Kode pada Modul > General Public
Koneksi As New ADODB.Connection Public
RsUser As New ADODB.Recordset 'untuk koneksi ke tabel user

Sub Buka() 'untuk membuka koneksi ke database
Dim Koneksi As New ADODB.Connection
Koneksi.Provider = "Microsoft.Jet.OleDB.3.51" 'engine database, untuk office 2007 gunakan 4.0
Koneksi.CursorLocation = adUseClient Konesi.Open "\\Nama_server\Nama_sharing_folder\folder\nama_database.mdb" 'buka DB pada server
RsUser.open "User", Koneksi, adOpenStatic, adLockOptimistic 'buka tabel user

Bila diperlukan login maka tambahkan open koneksi menjadi sbb.
Koneksi.Open "\\Nama_server\Nama_sharing_folder\folder\nama_database.mdb; User ID=namaUserku;Password = Passwordku"