ok. terima kasih buat bantuan rekan-rekan. GBU tan
----- Original Message ----- From: Frangky Sumampouw To: [email protected] Sent: Tuesday, June 08, 2010 1:16 PM Subject: Re: [programmer-vb] Membuka database access berpassword 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
