EXCEL连接带密码的ACCESS数据库，代码怎么加

余茂贤

把数据库加了个密码：123 但代码不知道怎么加

代码如下：

Sub 查询()
    On Error Resume Next '忽略错误值
    Set cn = CreateObject("ADODB.Connection")  
    Set rs = CreateObject("ADODB.Recordset")
    Dim strCn As String, strSQL As String
    Dim mdbFile As String
    mdbFile = ThisWorkbook.Path & "\基础数据库.accdb"  
    strCn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & mdbFile
    cn.Open strCn
    Sheet2.Range("A2:ZA1000").ClearContents
    Sql = "Select * from " & Sheet1.Cells(8, "b") & ""
    rs.Open Sql, cn, 1, 3
    Do While Not rs.EOF
        With Sheet2
            hs = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
            .Cells(hs, 1) = rs("111")
            .Cells(hs, 2) = rs("222")
            .Cells(hs, 3) = rs("333")
        End With
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing

Yalishanda30

连接字串要改一下

ivccav

这里有各种数据库的连接字符串

https://club.excelhome.net/forum.php?mod=viewthread&tid=1412070&extra=

余茂贤

Yalishanda30 发表于 2023-3-26 20:09
连接字串要改一下

感谢，我先试一下

余茂贤

Yalishanda30 发表于 2023-3-26 20:09
连接字串要改一下

方便加一下吗大哥，我小白，搞不定

Yalishanda30

余茂贤 发表于 2023-3-27 22:48
方便加一下吗大哥，我小白，搞不定

阔以加Q啊

ivccav

觉得你不适合搞编程啊，已直接投喂了，还搞不定....








TESTA.rar (643.78 KB, 下载次数: 16)

2023-3-28 09:10 上传

点击文件名下载附件

余茂贤

ivccav 发表于 2023-3-28 09:01
觉得你不适合搞编程啊，已直接投喂了，还搞不定....

同样的结果，也是同样的效果

(运行时错误 '-2147217843 （80040e4d)':
密码无效。

余茂贤

ivccav 发表于 2023-3-28 09:01
觉得你不适合搞编程啊，已直接投喂了，还搞不定....

搞不懂是哪里出了问题，说密码无效，数据库不加密码没事，一加密码就出错

Yalishanda30

余茂贤 发表于 2023-3-28 19:56
搞不懂是哪里出了问题，说密码无效，数据库不加密码没事，一加密码就出错

看仔细一点，2楼的和你的有什么区别