Public DB As
ADODB.Connection
Public rsBarang As ADODB.RecordsetPublic Sub KonekData()
Set DB
= New ADODB.Connection
DB.CursorLocation = adUseClient
DB.Open "Provider=Microsoft.jet.oledb.4.0;Persist Security Info=true;Data
Source=" & App.Path & "\XXX.mdb;Jet OLEDB:Database Password = YYY"
XXX = nama database access
YYY = password database nya
________________________________
From: Yunatan S. Widada <[email protected]>
To: [email protected]
Sent: Mon, June 7, 2010 1:44:43 AM
Subject: [programmer-vb] Membuka database access berpassword
Dear all,
saya biasa menggunakan koneksi ado dengan metode
seperti di bawah ini :
' ini ada di global module
Public DB As
ADODB.Connection
Public rsBarang As ADODB.Recordset
Public Sub KonekData()
Set DB
= New ADODB.Connection
DB.Provider =
"microsoft.jet. oledb.4.0"
DB.Open App.Path +
"\newtb.mdb" , "Admin", ""
DB.CursorLocation =
adUseClient
End Sub
'ini di form barang
Private Sub Form_Load()
KonekData
Set rsBarang = New
ADODB.Recordset
rsBarang.Open "select * from Barang order
by kode", DB, adOpenDynamic, adLockOptimistic
Set
DataGrid1.DataSourc e = rsBarang
End Sub
Masalahnya jika database acces yang saya gunakan
(newtb.mdb) saya password, akan ada
pesan error sekan-akan database sudah dibuka
exclusie.
Ada yang bisa membantu??
terima kasih
tan
