返回列表 上一主題 發帖

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

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

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

異常訊息

2018-08-06_141058.png
2018-8-6 14:10

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

想請問該如何修改access加密語法?
  1. Private cnnDB As ADODB.Connection
  2. Private recSet As ADODB.Recordset
  3. Private cnnStr As String
  4. Sub Main()

  5. Dim tblName As String

  6. Set cnnDB = New ADODB.Connection
  7. Set recSet = New ADODB.Recordset
  8. '此行無加密,可運行
  9. '  cnnStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\Database3.accdb;" & "Jet OLEDB:Database"
  10. '此行是access有加密會出現錯誤
  11.   cnnStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\Database3.accdb;" & "Jet OLEDB:Database Password=123"
  12.   
  13.     tblName = "User_List"
  14.     cnnDB.Open cnnStr
  15.    
  16.     With recSet
  17.         .CursorLocation = adUseClient
  18.         .Source = "SELECT * FROM " & tblName & " where [Number]= '" & Worksheets("main").Range("C5") & "';"
  19.         .ActiveConnection = cnnDB
  20.         .Open
  21.     End With
  22.    
  23.     If recSet.RecordCount > 0 Then
  24.         MsgBox ("使用人員已登入" & vbCrLf & _
  25.                             "Welcome, User.")
  26.         recSet.Close
  27.         cnnDB.Close
  28.         Set recSet = Nothing
  29.         Set cnnDB = Nothing


  30.     Else
  31.         MsgBox ("查無使用人員"), vbExclamation

  32.     End If





  33. End Sub
複製代碼
access加密.zip (415.17 KB)

回復 1# Changbanana

您好,
      請參考底下連結.
http://discuz.bestdaylong.com/thread-38249-1-1.html
Excel如何開啟有密碼保護的Access檔案accdb檔案
參考資料:
http://bestdaylong.com

TOP

回復 2# imingho

    謝謝您
    使用這方法有成功解決問題了!!

TOP

        靜思自在 : 一個人不怕錯,就怕不改過,改過並不難。
返回列表 上一主題