打开带密码的数据库

shadowboxing 2002-03-18 09:49:12
请教
我初步学习到数据库
为打开一个带密码的mdb,我写了如下代码:
sub command1_click()
dim ws as workspace '(1)
dim db as database
set ws=dbengine.workspaces(0) '(2)
set db=ws.opendatabase("d:\db1\abc.mdb",,,";pwd=abc123") '(3)
text1.text="open!"
end sub
密码肯定没记错,也区分了大小写,但是运行时,总提示"密码无效",换成独占方式打开还是
说"密码错",但用access打开就可以用这个密码.这是为什么?

在别处请教时,提到了User,但讲的不是很详细
为什么不能打开呢???
谢谢了

...全文
8 点赞 收藏 4
写回复
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
shadowboxing 2002-03-27
怎么给分?
我还以为是自动的呢???
回复
shadowboxing 2002-03-23
Dim db As Database
Set db = OpenDatabase(strfilename, False,False, ";pwd=abc123")
可以打开了,谢谢

http://www.csdn.net/expert/topic/538/538289.xml?temp=.2223627的讨论也看过了,同样表示感谢
回复
tony_jian 2002-03-19
Dim db As Database
Set db = OpenDatabase(strfilename, False,False, ";pwd=abc123")

回复
gpo2002 2002-03-19
http://www.csdn.net/expert/topic/538/538289.xml?temp=.2223627
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告