＋设为首页 ＋添加到收藏夹
好何用VB打开加密过的Access数据库？
给个例子:
Dim g_cnnSql As Connection
Dim strConnectSetting As String
Dim strDBFile as String
Set g_cnnSql = New ADODB.Connection
If g_cnnSql.State = adStateOpen Then
g_cnnSql.Close
End If
strDBFile = App.Path & "\" & "Test.mdb"
strConnectSetting = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & strDBFile & "; " & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password=Password"
With g_cnnSql
.ConnectionString = strConnectSetting
.CommandTimeout = 30
.CursorLocation = adUseClient
.Open
End With
用ADO
CN.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=system.MDB;" & _
"DefaultDir=" & App.Path & ";" & _
"UID=admin;PWD=youPassWord;"
up
用DAO
Set db = OpenDatabase(App.Path & "\data\H.mdb", False, False, ";Pwd=你的数据库密码")
