如何判断是否以独占方式打开当前数据库
1个回答
展开全部
很简单,只要判断 currentproject.connection.ConnectionString中是否包含以下字母
Jet OLEDB:Database Locking Mode=0
写一个函数就可以判断:
Function testLockMode()
If InStr(CurrentProject.Connection.ConnectionString, "Jet OLEDB:Database Locking Mode=0") > 0 Then
MsgBox "本数据库已经用独占方式打开"
Else
MsgBox "本数据库未用独占方式打开"
End If
End Function
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询