本文介绍了该进程无法访问该文件,因为该文件正由另一个进程使用。 at line“FileIO.FileSystem.RenameFile(" c:\ Arjuonsoftshield\security.mdb";" security.sys")的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
Public Sub expass()
If FileIO.FileSystem.DirectoryExists("c:\Arjuonsoftshield") Then
FileIO.FileSystem.FileExists("c:\Arjuonsoftshield\security.sys")
FileIO.FileSystem.DeleteFile("c:\Arjuonsoftshield\security.sys")
Dim databaseName As String = "c:\Arjuonsoftshield\security.mdb"
Dim tableName As String = "KEYS"
Dim cat As ADOX.Catalog = New ADOX.Catalog()
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & databaseName & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=123;")
cat = Nothing
Dim con As New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Data Source =" & databaseName)
con.Open()
Dim cmd As New OleDb.OleDbCommand("CREATE TABLE [" + tableName + "] ([Field1] TEXT(10), [Field2] TEXT(10))", con)
cmd.ExecuteNonQuery()
MessageBox.Show("Exported Successfully")
con.Close()
con.Dispose()
System.GC.Collect()
FileIO.FileSystem.RenameFile("c:\Arjuonsoftshield\security.mdb", "security.sys")
Else
FileIO.FileSystem.CreateDirectory("c:\Arjuonsoftshield")
Dim databaseName As String = "c:\Arjuonsoftshield\security.mdb"
Dim tableName As String = "KEYS"
Dim cat As ADOX.Catalog = New ADOX.Catalog()
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & databaseName & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=123;")
cat = Nothing
Dim con As New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Data Source =" & databaseName)
con.Open()
Dim cmd As New OleDb.OleDbCommand("CREATE TABLE [" + tableName + "] ([Field1] TEXT(10), [Field2] TEXT(10))", con)
cmd.ExecuteNonQuery()
MessageBox.Show("Exported Successfully")
con.Close()
con.Dispose()
System.GC.Collect()
FileIO.FileSystem.RenameFile("c:\Arjuonsoftshield\security.mdb", "security.sys")
End If
End Sub
推荐答案
cat.ActiveConnection.Close()
我希望它会帮你。 :)
I hope it will help you. :)
Dim cat As ADOX.Catalog = New ADOX.Catalog()
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & databaseName & ";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password=123;")
cat = Nothing
删除此代码,因为我没有看到它被使用。可能没有必要它会解决您的问题。
Remove this code as I don't see it being used. May not be necessary it will solve your issue.
这篇关于该进程无法访问该文件,因为该文件正由另一个进程使用。 at line“FileIO.FileSystem.RenameFile(" c:\ Arjuonsoftshield\security.mdb";" security.sys")的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!