您所在位置：主题：怎么用VB访问带密码的ACCESS数据库
hsec
[专家分：0] 发布于 2008-09-10 21:59:00
我想用VB的数据库DAO方式访问一个ACCESS97格式的加密数据库，数据库密码为TigerMW
这是我访问没有加密的数据库的代码，可以正常访问
Set myworkspace = DBEngine.Workspaces(0)
Set mydatabase = myworkspace.OpenDatabase(App.Path & "\GSM.mdb")
把代码改为以下，用来访问加密的数据库，报实时错误3031，说密码无效
Set myworkspace = DBEngine.Workspaces(0)
Set mydatabase = myworkspace.OpenDatabase(App.Path & "\GSM.mdb", , , ":pwd=TigerMW")
再把代码改为以下，用来访问加密的数据库，报实时错误3151，说ODBC－connection to 数据库失败
Set myworkspace = DBEngine.Workspaces(0)
Set mydatabase = myworkspace.OpenDatabase(App.Path & "\GSM.mdb", False, False, ":pwd=" & "TigerMW")
请问各位大侠，要怎样改代码才能正确访问加密的数据库呢？
这是我访问没有加密的数据库的代码，可以正常访问
Set myworkspace = DBEngine.Workspaces(0)
Set mydatabase = myworkspace.OpenDatabase(App.Path & "\GSM.mdb")
把代码改为以下，用来访问加密的数据库，报实时错误3031，说密码无效
Set myworkspace = DBEngine.Workspaces(0)
Set mydatabase = myworkspace.OpenDatabase(App.Path & "\GSM.mdb", , , ":pwd=TigerMW")
再把代码改为以下，用来访问加密的数据库，报实时错误3151，说ODBC－connection to 数据库失败
Set myworkspace = DBEngine.Workspaces(0)
Set mydatabase = myworkspace.OpenDatabase(App.Path & "\GSM.mdb", False, False, ":pwd=" & "TigerMW")
请问各位大侠，要怎样改代码才能正确访问加密的数据库呢？