If InStr(CurrentProject.Connection.ConnectionString, "Jet OLEDB:Database Locking Mode=0") > 0 Then
MsgBox "本数据库已经用独占方式打开"
Else
MsgBox "本数据库未用独占方式打开"
End If
MsgBox "本数据库已经用独占方式打开"
Else
MsgBox "本数据库未用独占方式打开"
End If
本文提供了一段VBA代码,用于检查当前项目的数据库连接是否使用了独占方式打开。通过搜索连接字符串中的特定文本来判断数据库的锁定模式。
3583
172

被折叠的 条评论
为什么被折叠?