如何访问加密数据库？Access

Question

我自己设置的密码，但是不知道有密码后该如何访问？
请问该如何访问？
我用的是Data控件！

Answer 1

Data 控件使用有密码的 Access 数据库使用 Data 控件打开 Accecc 数据库：设置 Connect 属性为 ;pwd=密码Data1.Connect = ";pwd=密码"修改密码：Data1.Database.NewPassword _老密码_, _新密码_　

Answer 2

'用 Data 控件访问有密码的 Access 数据库
With Data1
     .DatabaseName = [数据库路径及名称]
     .Connect = ";pwd=" + [数据库密码]
     .RecordSource = [查询语句]
     .Refresh
'    ...
End With'用 DAO 访问有密码的 Access 数据库
Dim OpenDB As Database
Dim Rst As DAO.Recordset
Set OpenDB = DBEngine.Workspaces(0).OpenDatabase([数据库路径及名称], False, False, "MS Access;PWD=" + [数据密码])
Set Rst = OpenDB.OpenRecordset([查询语句], dbOpenSnapshot)
'...'用 ADO 访问有密码的 Access 数据库
Dim adoCnn As ADODB.Connection
Dim CnnStr As String
CnnRst = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" + [Access97、Access2000 数据库路径及名称] + " ;Persist Security Info=False;Jet OLEDB:Database Password=" + [数据库密码]
With adoCnn
     If .State = adStateOpen Then .Close
    .ConnectionString = CnnStr
    .Open
    If .State = adStateOpen Then
'   数据库打开成功
'   ...
    Else
'   数据库打开失败
'   ...
    End If
'说明：Microsoft.Jet.OLEDB.3.51  只支持 Access97，不支持 Access2000
'      Microsoft.Jet.OLEDB.4.0 不仅支持 Access97，也支持 Access2000
End With'用 ADODC 控件访问有密码的 Access 数据库
With Adodc1
       .ConnectionString = CnnStr
       .CommandType = adCmdText
       .RecordSource = [查询语句]
       .Refresh
'      ...
End With

Answer 3

更正：Dim adoCnn As ADODB.Connection
改为：
Dim adoCnn As New ADODB.Connection

Answer 4

DATA控件中有User和password的屬性，可以將密碼和和用戶名寫入就行了！