opendatabase中的options参数怎用

smileblack 2000-08-26 03:05:00
Sub op()
Dim dbnew As Database
Dim dbagain As Database
Set dbnew = OpenDatabase(CurDir + "\db1", True) 'True
'按照书上所写以独占方式打开db1.mdb
Set dbagain = OpenDatabase(CurDir + "\db1", True)
dbnew.Close
dbagain.Close
End Sub
本以为会有错,可是运行后没出错,
db1.mdb已经以独占方式打开,
为何还能打开db1.mdb,
怎麽回事儿,我写错了吗?
...全文
122 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
lty 2000-08-27
  • 打赏
  • 举报
回复
你怎么测试的?程序肯定是在后台运行并保证库是打开的吗?
earphone 2000-08-26
  • 打赏
  • 举报
回复
没用独占方式打给,可能是参数错了

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧