怎样在vb中用ado打开access有密码的数据库？

Question

我先是想试着用ado的测试方式来获得ado打开access有密码的数据库，但始终就测试失败，各位朋友，指点指点呀.谢了。

Answer 1

dim cn  As  New  ADODB.Connection  
    cn.ConnectionString  =  "Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=c:\trade.mdb;Jet  OLEDB:Database  Password=XXXX;"  
    cn.open

Answer 2

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\proCMMS(\mataformobile.mdb;Persist Security Info=True;Jet OLEDB:Database Password=****"

Answer 3

cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
    App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
    "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
    "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
    "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"

Answer 4

oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ 
　　　　　　　　　 "Dbq=c:\somepath\mydb.mdb;" & _ 
　　　　　　　　　 "Uid=Admin;" & _ 
　　　　　　　　　 "Pwd=;"

Answer 5

以只读方式打开
  localcon1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\localdb.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=" & mdbtmp
通过odbc
  Set localcon1 = New ADODB.Connection
  localcon1.ConnectionString = "DSN=localdb;UID=;PWD=" & mdbtmp & ";"
  localcon1.ConnectionTimeout = 60
  localcon1.Open

Answer 6

cn.ConnectionString  =  "Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=c:\trade.mdb;Jet  OLEDB:Database  Password=XXXX

Answer 7

cn.ConnectionString  =  "Provider=Microsoft.Jet.OLEDB.4.0;Data  Source=" & app.path & "\web.mdb";Jet  OLEDB:Database  Password=XXXX

Answer 8

参照MSDN中《Microsoft OLE DB Provider for Microsoft Jet》主题