- 帖子
- 76
- 主題
- 17
- 精華
- 0
- 積分
- 95
- 點名
- 0
- 作業系統
- windowsxp
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2016-8-19
- 最後登錄
- 2021-5-5
|
[發問] Excel連結有加密Access資料庫語法除錯
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
 access加密.zip (415.17 KB)
|
|
發表於 2018-8-6 14:18
| 
