<<< 返回 access911.net 编程静态资料库索引页

如何判断是否以独占方式打开当前数据库?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2003-11-27  浏览人次:3211


专题地址:http://access911.net/fixhtm/79FAB01E1BDC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:如何判断是否以独占方式打开当前数据库?

    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;Mode=Share Deny Read|Share Deny Write;"


独占方式打开了数据库,在不知道的情况下如何判断呢?

 


问题:

如何判断是否以独占方式打开当前数据库?

    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;Mode=Share Deny Read|Share Deny Write;"


独占方式打开了数据库,在不知道的情况下如何判断呢?

 


方法一:


很简单,只要判断 currentproject.connection.ConnectionString中是否包含以下字母
Share Deny Read|Share Deny Write
写一个函数就可以判断:

Function testLockMode()
    If InStr(CurrentProject.Connection.ConnectionString, "Share Deny Read|Share Deny Write") > 0 Then
        MsgBox "本数据库已经用独占方式打开"
    Else
        MsgBo.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/79FAB01E1BDC.htm

 


上一篇:使用 ADO.NET 解锁 Ms Access 数据 

下一篇:能否将MDE文件反编译为MDB文件?

2017年2月22日生成静态资料