请教！如何将表导出到另个带密码的数据库中？

sxgaobo

    DoCmd.TransferDatabase acExport, "Microsoft Access", "D:\备份.mdb", acTable, "表", "表8", False
备份.mdb设置了密码123456，在哪加参数啊？

tmtony

试试这个: DoCmd.TransferDatabase LinkType, "ODBC 数据库", "ODBC;DSN=" & DSNStr & ";SERVER=" & IPStr & ";DATABASE=" & DSNStr & ";UID=" & ODBCUser & "WD=" & ODBCPass, acTable, TableName, TableName, False, True
或
http://www.office-cn.net/forum.p ... base%2B%C3%DC%C2%EB

sxgaobo

搞定。谢谢tmtony   andymark ！！！
   Dim db As Database
    Dim strPath As String
    strPath = "D:\备份.mdb"
    Set db = DBEngine.Workspaces(0).OpenDatabase(strPath, False, False, "MS Access;pwd=123456")
    DoCmd.TransferDatabase acExport, "Microsoft Access", strPath, acTable, "表", "表8", False
    db.Close
    Set db = Nothing