gpt4 book ai didi

ms-access - 源具有密码时的 MS Access DoCmd.Transferdatabase

转载 作者:行者123 更新时间:2023-12-04 14:26:26 24 4
gpt4 key购买 nike

我需要每月从各种数据库中导入表格。导入表后,数据库将被存档,不再查看。

我有以下 VBA 代码,当数据库不受密码保护时,它可以正常工作:

Private Sub ImportTheData(ByVal dbImport As String)

DoCmd.SetWarnings False 'Turn OFF display alerts

'Import the full activity & comments table from the Import DB to a temporary table
DoCmd.TransferDatabase acImport, "Microsoft Access", dbImport, acTable, "tbl_Activity", "tbl_TempActivity", True
DoCmd.TransferDatabase acImport, "Microsoft Access", dbImport, acTable, "tbl_Comments", "tbl_TempComments", True

'code continues ...

最后一个参数 (storelogin) 设置为 true,但似乎无法以编程方式设置这些登录参数(密码)。

当我运行代码时,系统会提示用户输入密码(尽管 SetWarnings = False)。因为我每次都要导入几十个文件,所以这不是一个可行的解决方案。

当文件受密码保护时,是否有一种方法可以使用 DoCmd.TransferDatabase 以编程方式导入表?如果是,如何实现?

最佳答案

使用 DAO 打开数据库,提供密码,然后您可以导入表。

Public Sub ImportEncr()

Const dbImport = "D:\DbEncr.accdb"
Const sPassword = "foobar"

Dim DB As DAO.Database
Set DB = DBEngine.OpenDatabase(Name:=dbImport, Options:=False, ReadOnly:=False, Connect:=";PWD=" & sPassword)

DoCmd.TransferDatabase acImport, "Microsoft Access", dbImport, acTable, "tblEncr", "tblEncr", False

DB.Close
Set DB = Nothing

End Sub

StoreLogin 适用于从 ODBC 数据库链接表。

关于ms-access - 源具有密码时的 MS Access DoCmd.Transferdatabase,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/55373386/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com