设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

如何导入有密码的MDB文件而不会弹要求输密码的对话框?

1970-1-1 08:00| 发布者: 李寻欢| 查看: 2529| 评论: 0

先用带密码的set语句打开需要密码的数据库,然后再用DoCmd.TransferDatabase来导出就不会跳出输入密码的对话框了。

以下是示例语句:
Dim dbs As Object
Set dbs = DBEngine.Workspaces(0).OpenDatabase("e:\customer\BaseTplt.mdb", _
False, False, ";pwd=LuckStar")
DoCmd.TransferDatabase acImport, "Microsoft Access", "e:\customer\BaseTplt.mdb", _
acTable, "仓库", "cBc", False

注1:"e:\customer\BaseTplt.mdb"是带密码的数据库完整路径
注2:";pwd=LuckStar"中的LuckStar表示该数据库的密码

最新评论

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-4-4 05:12 , Processed in 0.066671 second(s), 16 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部