判断Access资料是否打开

判断Access文件是否打开
如题：
1.判断Access文件是否打开，如果打开则关闭该文件。
2.如果该文件已关闭，则打开该文件。

其实此处关键点就是如何判断一个Access是否打开。
另，以下是网路收集的代码，根本不行。试过了。

万分感谢各位帮助。

 Private Function isFileOpen(ByVal sourceFilePath As String) As Integer
        Dim fs As System.IO.FileStream = Nothing
        Try
            fs = New System.IO.FileStream(sourceFilePath, IO.FileMode.Open, IO.FileAccess.ReadWrite, IO.FileShare.Write)
            If Not fs.CanWrite Then
                MsgBox("文件已经被打开")
            End If
        Catch ex As Exception
            MsgBox("文件已经被打开")
        Finally
            If fs IsNot Nothing Then
                fs.Close()
                fs.Dispose()
            End If
        End Try
    End Function

Access?文件是否打开?
[解决办法]
遍历进程试试

  For Each p As Process In Process.GetProcesses()
            If (p.ProcessName = "MSACCESS") Then
                If (p.MainWindowTitle.IndexOf("你的数据库名称") > 0) Then '文件名称，不包含扩展名
                    MsgBox("文件已经被打开")
                    Exit For
                End If
            End If
        Next

查看更多 下一篇