当源有密码时，MS访问DoCmd.Transferdatabase

Question

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

我有以下VBA代码，当DB不受密码保护时，它可以正常工作：

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 编程导入表的方法，如果是的话，如何导入？

Answer 1

使用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数据库链接表。

Answer 2

您可以使用SQL并构建我相信的SQL语句和.RunSQL。

一个示例SQL将是

SELECT * into tblIMPORT FROM xyz IN '' '; database=C:\Workspace\Database1.accdb;PWD=test';

希望这能有所帮助。