<<< 返回 access911.net 编程静态资料库索引页 如何判断是否以独占方式打开当前数据库？ 作者：cg1 摘自：access911.net 录入：cg1 时间：2003-11-27 浏览人次：593
专题地址：http://access911.net/index.asp?u1=a&u2=79FAB01E1BDC 如果需要更详细的评论或说明，请点击该地址。 简述：如何判断是否以独占方式打开当前数据库？
用
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.....................
........... |
|
| 
