如何判断一个数据库是否打开

[linwenfeng]

如何用一句代码判断1.mdb是否打开，如果开着，就关闭它，只能用一句代码，我以前看过，忘了。。有哪位兄弟知道告诉我下

[faysky2]

是判断文件打开还是数据库的连接打开？

如果是判断连接是否打开，可以这样：
If cn.State<>adStateOpen Then MsgBox "数据库连接没打开！"

[faysky2]

如果判断文件是否已经打开，可以这样：

Function IsOpen(sFile As String) As Boolean
IsOpen=False
Dim fFile As Integer
fFile = FreeFile()
On Error GoTo ErrOpen
Open sFile For Binary Lock Read Write As fFile
Close fFile
Exit Function
ErrOpen:
If Err.Number = 70 Then
IsOpen = True
End If
End Function

'调用：
Private Sub Command1_Click()
If IsOpen("C:\test.mdb") Then MsgBox "文件已经打开！"
End Sub

[sgh321]

判断rs.State=0则关闭rs.State=1则打开

[linwenfeng]

楼上的是正解，谢谢，也谢谢faysky2的回答，不过我要简短一点的代码