以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Access 数据库 独占如何判断  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58505)
--  作者：打错潇洒
--  发布时间：2014/10/17 17:32:00
--  Access 数据库 独占如何判断
Access 数据库 独占如何判断
--  作者：有点甜
--  发布时间：2014/10/17 17:36:00
--  
 可以尝试打开多次，然后用 try Catch 捕捉错误。
--  作者：有点甜
--  发布时间：2014/10/17 17:38:00
--  

 参考代码

 

On Error Resume Next
Dim conn As New ADODB.Connection
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=L:\\IBM WinXP\\desktop\\mdb\\重复记录.mdb;Jet OLEDB:Database Locking Mode=0;")
If Err.Number = -2147467259 Then
    MsgBox("文件已经在使用中,估计是被别人以独占方式打开了")
End If
--  作者：tongliaozyr
--  发布时间：2014/10/18 16:49:00
--  
学习