Salve a tutto il forum, avrei il seguente problema.
Per fare la compattazione da Vb.Net di un file *.mdb ho usato sempre un determinato codice e dll, cosa che con le quali mi è andato sempre a buon fine.
Sta volta sto avendo qualche errore ed è da premettere che non programmo da un pò di tempo, quindi magari mi sfugge qualcosa.
Dim jro As JRO.JetEngine
JRO = New JRO.JetEngine
JRO.CompactDatabase("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Bonifici Sindaco Fabio\Database1.mdb;Jet OLEDB:Engine Type=5",
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Bonifici Sindaco Fabio\Database1 compact.mdb;Jet OLEDB:Engine Type=5")
My.Computer.FileSystem.DeleteFile("Bonifici Sindaco Fabio\Database1.mdb")
My.Computer.FileSystem.RenameFile("Bonifici Sindaco Fabio\Database1 compact.mdb", "Database1.mdb")
Dll sotto cartella Debug
Interop.ADODB.dll
Interop.DAO.dll
Interop.JRO.dll
Riferimenti:
Microsoft Activex Data Objects6.1 Library
Microsoft Jet And ReplicationObjects 2.6 Library
Errore restituito:
Il tool Access Runtime lo tengo installato
Se metto il Try….. catch
Dim jro As JRO.JetEngine
Try
jro = New JRO.JetEngine
jro.CompactDatabase("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Bonifici Sindaco Fabio\Database1.mdb;Jet OLEDB:Engine Type=5",
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Bonifici Sindaco Fabio\Database1 compact.mdb;Jet OLEDB:Engine Type=5")
'My.Computer.FileSystem.DeleteFile("Bonifici Sindaco Fabio\Database1.mdb")
'My.Computer.FileSystem.RenameFile("Bonifici Sindaco Fabio\Database1 compact.mdb", "Database1.mdb")
Catch ex As Exception
End Try
Scapolo l' errore ma non ho alcun risultato, non mi crea neanche il file Database1 compact.mdb
Da premettere che ha da un pò che non programmo e penso che mi sfugge qualcosa.
Del resto l' applicazione funziona correttamente con tutte le sue funzioni.
Dove sbaglio?
Distinti Saluti
Fabio Messina