C# 操作.mdb文件出现.ldb锁死文件 无法删除.mdb文件

问题:   有个问题困扰我很长时间了 access数据库操作 当访问.mdb文件会出现一个.ldb锁死文件 我想用代码删除.mdb文件 可是操作不了 提示被另一个程序调用

 

c#做法类似

  Dim SaveFile As String = "F:test.mdb"
  Dim SaveFileName As String = SaveFile
  Dim Cat As New ADOX.Catalog

  Cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + SaveFile + ";")
  Dim tbl As New ADOX.Table()
  tbl.ParentCatalog = Cat
  tbl.Name = "Table1"

  '增加字段
  tbl.Columns.Append("id", ADOX.DataTypeEnum.adInteger)
  tbl.Columns.Append("工况", ADOX.DataTypeEnum.adVarWChar, 255)
  tbl.Columns.Append("船舶运动", ADOX.DataTypeEnum.adVarWChar, 255)
  tbl.Columns.Append("纵荡加速度", ADOX.DataTypeEnum.adVarWChar, 255)
  tbl.Columns.Append("横荡加速度", ADOX.DataTypeEnum.adVarWChar, 255)
  tbl.Columns.Append("垂荡加速度", ADOX.DataTypeEnum.adVarWChar, 255)
  tbl.Columns.Append("测试", ADOX.DataTypeEnum.adVarWChar, 255)
  tbl.Columns.Append("测试2", ADOX.DataTypeEnum.adVarBinary)

  '主键
  tbl.Columns("id").Properties("autoincrement").Value = True
  tbl.Keys.Append("PrimaryKey", ADOX.KeyTypeEnum.adKeyPrimary, "id")
  Cat.Tables.Append(tbl)



  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  ''''''''''''写入ACCESS数据库
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Dim ConnectionStr As String = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & SaveFile
  Dim myConn As New OleDbConnection
  myConn.ConnectionString = ConnectionStr
  Dim sqlString As String
  Dim myCmd As OleDb.OleDbCommand = Nothing
  myConn.Open()
  sqlString = "INSERT INTO Table1 (工况,船舶运动,纵荡加速度,横荡加速度,垂荡加速度,测试,测试2) "
  sqlString = sqlString + vbCrLf + "VALUES(@工况,@船舶运动,@纵荡加速度,@横荡加速度,@垂荡加速度,@测试,@测试2)"
  For i As Integer = 1 To 200
  myCmd = New OleDbCommand(sqlString, myConn)
  myCmd.Parameters.AddWithValue("@工况", "满载")
  myCmd.Parameters.AddWithValue("@船舶运动", "纵摇")
  myCmd.Parameters.AddWithValue("@纵荡加速度", i)
  myCmd.Parameters.AddWithValue("@横荡加速度", i)
  myCmd.Parameters.AddWithValue("@垂荡加速度", i)
  myCmd.Parameters.AddWithValue("@测试", i)
  myCmd.Parameters.AddWithValue("@测试2", i * i)
  myCmd.ExecuteNonQuery()
  Next
  myCmd.Dispose()
  myCmd = Nothing
  myConn.Close()
  myConn.Dispose()
  myConn = Nothing

  '释放ldb文件的关键
  Cat.ActiveConnection.Close()

  System.Runtime.InteropServices.Marshal.ReleaseComObject(tbl)
  System.Runtime.InteropServices.Marshal.FinalReleaseComObject(tbl)

  System.Runtime.InteropServices.Marshal.ReleaseComObject(Cat)
  System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Cat)
  Cat = Nothing
  GC.WaitForPendingFinalizers()
  GC.Collect()

  GC.WaitForPendingFinalizers()
  GC.Collect()

  If My.Computer.FileSystem.FileExists(SaveFile) = True Then
  My.Computer.FileSystem.DeleteFile(SaveFile)
  End If

http://topic.csdn.net/u/20120528/16/1638f17f-9839-45d5-8427-5b30586bce94.html?seed=1172642860&r=78710267#r_78710267