[發問] Excel連結有加密Access資料庫語法除錯

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-8-6 14:18 | 只看該作者

HI 各位前輩高手
目前在excel中寫了巨集連結access資料庫
在未加密之前是可順利執行的
但一把access加密後
access出現

run excel程式就會出現不是有效密碼的錯誤代碼
網上查過很多資訊了但都無法解決0.0

想請問該如何修改access加密語法?

Private cnnDB As ADODB.Connection
Private recSet As ADODB.Recordset
Private cnnStr As String
Sub Main()
Dim tblName As String
Set cnnDB = New ADODB.Connection
Set recSet = New ADODB.Recordset
'此行無加密，可運行
' cnnStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\Database3.accdb;" & "Jet OLEDB:Database"
'此行是access有加密會出現錯誤
cnnStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\Database3.accdb;" & "Jet OLEDB:Database Password=123"
tblName = "User_List"
cnnDB.Open cnnStr
With recSet
.CursorLocation = adUseClient
.Source = "SELECT * FROM " & tblName & " where [Number]= '" & Worksheets("main").Range("C5") & "';"
.ActiveConnection = cnnDB
.Open
End With
If recSet.RecordCount > 0 Then
MsgBox ("使用人員已登入" & vbCrLf & _
"Welcome, User.")
recSet.Close
cnnDB.Close
Set recSet = Nothing
Set cnnDB = Nothing
Else
MsgBox ("查無使用人員"), vbExclamation
End If
End Sub