如何用DAO对象打开带口令的Access数据库

Question

请问在VB环境编程中:
    如何实现,用DAO对象打开带口令的Access数据库,以便进行读写.
    谢谢!

Answer 1

Public AccessDBF          As Database
Public thePrintTable      As Recordset
Public mWorkspaces         As Workspace
Private Sub Form_Load()    Dim sConeect As String
    Set mWorkspaces = DBEngine.Workspaces(0)
    sConnect = ";PWD = ; UID =  "    '设置打开时的用户名、口令等参数    Set AccessDBF = Nothing    '确认关闭对象实例
     strpath = App.Path & "\ToXls.MDB"
    Set AccessDBF = mWorkspaces.OpenDatabase(strpath)    '打开当前路径的ToXls.MDB数据库    End Sub

Answer 2

Dim db As Database
Dim db_path as String
Dim connect_str as String
db_path="c:\test.mdb"
connect_str=";PWD=12345;"  '密码为12345,如果有UID的后面，类似于楼上写
Set db = OpenDatabase(Trim(db_path), False, False, Trim(connect_str))
'第一个FALSE是是否独占方式，第二个FALSE为是否只读方式

Answer 3

二楼的
   '设置打开时的用户名、口令等参数    Set AccessDBF = Nothing
这句是不是多了出来的?
我操作数据库都是使用ado居多,对dao不是很熟悉,所以问问

Answer 4

Provider= 'Microsoft.Jet.OLEDB.4.0'; 
Data Source='mydb.mdb';
User ID = 'Admin';
Jet OleDB:Database Password = 'password';