EXCEL VBA 打开有密码的access文件的连接字符串

rendiule01 · 发表于 2023-8-18 15:59

本帖最后由 rendiule01 于 2023-8-18 16:00 编辑

EXCEL VBA 打开有密码的access文件的连接字符串

Const StrdbPath As String = "D:\出入库\Data.accdb" 'access文件路径
Const Strpassword As String = "as123456as" 'access文件打开密码

Public Function connStr() As String '无密码的
connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & StrdbPath
End Function

Public Function Strconn() As String '有密码的
StrconnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & StrdbPath '& ";User id=Admin;Jet OLEDB:Database Password=" & Strpassword
End Function

rendiule01 · 发表于 2023-8-18 16:14

密码是对的，可以单独打开
Public Function connStr() As String
connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & StrdbPath & ";User id=Admin;Jet OLEDB:Database Password=" & Strpassword

End Function

rendiule01 · 发表于 2023-8-22 21:01

来个大神啊？

vitrel · 发表于 2023-8-23 07:36

Dim cn As Object, rs As Object
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source = " & ThisWorkbook.Path & "\数据库.accdb" & ";Jet OLEDB:Database Password = " & myPassword

希望对楼主有帮助！

arjzip · 发表于 2024-3-8 08:09

vitrel 发表于 2023-8-23 07:36
Dim cn As Object, rs As Object
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider = Micro ...

压缩数据库的代码怎么写，需要引用什么？

		自动登录	找回密码
密码			免费注册

[求助] EXCEL VBA 打开有密码的access文件的连接字符串