access数据库加密码后不能使用？

Question

ADO:
dim cn as new ADODB.Connection
cn.ConnectionString="Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & app.path & "\test.mdb;Jet OLEDB Database:password=" & yourpass
cn.openDAO:
dim cn as Database
set cn=opendatabase(app.path + "\test.mdb",false,false,";pwd=" & yourpass )

Answer 1

在连接字符串中加入Jet OLEDB:Database Password=密码，举例如下
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\Nwind.mdb;Persist Security Info=False;Jet OLEDB:Database Password=MyPW"

Answer 2

我是用DataEnvironment的，应该不用上面这些吧？

Answer 3

DataEnvironment不是很好还是楼上的方法比较灵活一点

Answer 4

我现在也终于明白，数据库的密码要在“Database Password=密码”上表现出来
piip

Answer 5

Public con As New ADODB.Connection   
  Dim PathName As String   
  Dim Password As String''''''''给变量付值      
     
With con
   .ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;data source=" & PathName & ";jet oledb:database password=" & Password
  End With

Answer 6

Public con As New ADODB.Connection   
  Dim PathName As String   
  Dim Password As String''''''''给变量付值      
     
With con
   .ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;data source=" & PathName & ";jet oledb:database password=" & Password
  End Withcon.open          '刚才忘了