请教！如何从带密码的数据库中导入表？

sxgaobo

    DoCmd.TransferDatabase acImport, "Microsoft Access", [路径], acTable, "情况表", "情况表-1", False
含有“情况表”的数据库有密码，在导入是需要输入，如何能在程序中做好，在导入的时候不输啊？

andymark

试试下面的方法:

Dim db As Database
Dim strPath As String

strPath = "d:\db19.mdb"

Set db = DBEngine.Workspaces(0).OpenDatabase(strPath, False, False, "MS AccessWD=123")


DoCmd.TransferDatabase acImport, "Microsoft Access", strPath, acTable, "Gy_Czygl", "Gy_Czygl", False

db.Close
Set db = Nothing

sxgaobo

谢谢斑竹！！！正是我需要的啊！

esnake

太好了，我搜索到了我想要的！！！

moonxc

我地妈呀，终于让我找到了。