ＶＢ程序怎么调用带密码的Ａccess库文件

Question

Public cnn As ADODB.Connection
    
    Set cnn = New ADODB.Connection
    Dim strcnn As String
    With cnn
         .Provider = "Microsoft.Jet.OLEDB.4.0"
         .Properties("Data Source") = App.Path & "\data\aaaa.wwh"
         .Properties("Jet OLEDB:Database Password") = "bbbbbb"
         .Open
    End With

Answer 1

DAODC
data1.connect=";pwd=XXXXX;"ADODB
connection属性里面加上";pwd=XXXXX;"

Answer 2

dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\XXX.mdb" & ";Jet OLEDB:Database password='XXXX';"

Answer 3

很简单的,先引用ado2.5再使用如下的函数:
  '用特定的筛选条件(MyRecordSource)连接特定的数据库(MyDatabase)两个参数来连接数据库中的某张表(MyTable),数据库的密
                                     '码为DataBasePassword 
                                      '并指定特定的字段(MyFields)，返回特定的值,不绑定数据控件Function adoconnect3(ByVal MyDatabase As String, ByVal MyTable As String, ByVal MyFields As String, ByVal MySQLCondition1 As String) As Recordset
   
   Dim MyRs As ADODB.Recordset
   Dim MyConnectString As String
   Dim sql As String
   
 ''' 打开连接。
  'MyPath = "\\192.168.9.211\" + "database\"
   MyPath =app.patht + "database\"
   MyConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & MyPath & MyDatabase & ";Jet OLEDB:Database Password=" & DataBasePassword 
   Set MyCnn = New ADODB.Connection
   MyCnn.Open MyConnectString
   
   ''建立RecordSet
   Set MyRs = New ADODB.Recordset
   sql = "SELECT " & MyFields & "  FROM " & MyTable & MySQLCondition1
    MyRs.CursorLocation = adUseClient
   MyRs.LockType = adLockBatchOptimistic
   MyRs.CursorType = adOpenKeyset
  
   ''给函数赋值
   MyRs.Open sql, MyCnn
   Set adoconnect3 = MyRs
   
  End Function