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

Changbanana

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

下載 (8.13 KB)
異常訊息

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. 
   
6. Dim tblName As String
   
7. 
   
8. Set cnnDB = New ADODB.Connection
   
9. Set recSet = New ADODB.Recordset
   
10. '此行無加密，可運行
    
11. '  cnnStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\Database3.accdb;" & "Jet OLEDB:Database"
    
12. '此行是access有加密會出現錯誤
    
13.   cnnStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & ThisWorkbook.Path & "\Database3.accdb;" & "Jet OLEDB:Database Password=123"
    
14.   
    
15.     tblName = "User_List"
    
16.     cnnDB.Open cnnStr
    
17.    
    
18.     With recSet
    
19.         .CursorLocation = adUseClient
    
20.         .Source = "SELECT * FROM " & tblName & " where [Number]= '" & Worksheets("main").Range("C5") & "';"
    
21.         .ActiveConnection = cnnDB
    
22.         .Open
    
23.     End With
    
24.    
    
25.     If recSet.RecordCount > 0 Then
    
26.         MsgBox ("使用人員已登入" & vbCrLf & _
    
27.                             "Welcome, User.")
    
28.         recSet.Close
    
29.         cnnDB.Close
    
30.         Set recSet = Nothing
    
31.         Set cnnDB = Nothing
    
32. 
    
33. 
    
34.     Else
    
35.         MsgBox ("查無使用人員"), vbExclamation
    
36. 
    
37.     End If
    
38. 
    
39. 
    
40. 
    
41. 
    
42. 
    
43. End Sub

複製代碼

access加密.zip (415.17 KB)

下載次數: 5

2018-8-6 14:15

imingho

回復 1# Changbanana

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

Changbanana

回復 2# imingho

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