返回列表 上一主題 發帖

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

Changbanana

帖子
76 
主題
17 
精華
0 
積分
95 
點名
0  
作業系統
windowsxp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2016-8-19 
最後登錄
2021-5-5 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-8-6 14:18 | 只看該作者

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

HI 各位前輩高手
目前在excel中寫了巨集連結access資料庫
在未加密之前是可順利執行的
但一把access加密後
access出現
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()

  6. Dim tblName As String

  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


  34.     Else
  35.         MsgBox ("查無使用人員"), vbExclamation

  37.     End If





  43. End Sub
複製代碼
access加密.zip (415.17 KB)
收藏 分享

Changbanana

帖子
76 
主題
17 
精華
0 
積分
95 
點名
0  
作業系統
windowsxp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2016-8-19 
最後登錄
2021-5-5 

論壇贊助勳章
3#
發表於 2018-8-8 13:28 | 只看該作者
回復 2# imingho

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

TOP

imingho
　暱稱: 彰化一整天

中學生Rank: 2

帖子
56 
主題
11 
精華
0 
積分
115 
點名
0  
作業系統
windows 
軟體版本
windows 7 
閱讀權限
20 
性別
男 
註冊時間
2013-3-13 
最後登錄
2023-7-13 
2#
發表於 2018-8-7 16:07 | 只看該作者
回復 1# Changbanana

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

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題