Mas kalau aku sih passwordnya saya sertakan di open database seperti contoh
code dibawah ini :
Private Sub Form_Load()
On Error Resume Next
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\data\Akuntansi.mdb; Jet OLEDB:Database
Password=newpassword;"
Set Rh = New Recordset
Rh.Open "SELECT * FROM " & FileHapus1, db, adOpenStatic, adLockOptimistic
Set Rs = New Recordset
Rs.Open "SELECT rekening,nama FROM AknSandi order by rekening ", db,
adOpenStatic, adLockOptimistic
Set Rkt = New Recordset
End Sub
untuk kondisi diatas Password MDB = newpassword
Frangky
________________________________
From: Yunatan S. Widada <[email protected]>
To: [email protected]
Sent: Mon, June 7, 2010 3:44:43 PM
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
