Vb.Net Rotina de backup

[aprendiz93]

Bom dia!!

Gostaria de saber como eu faço para fazer um backup compactado do meu banco de dados Acces.

Agradeço desde já pela atenção.

[gastao]

Dim sDBFile As String = "E:\myDB.mdb"

Dim sBackUpFile As String = "E:\myDB_BackUp.mdb"

' Backup *.mdb database

If File.Exists(sDBFile) Then

Dim db As New DAO.DBEngine

'CompactDatabase has two parameters, creates a copy of compact DB at the Destination path

db.CompactDatabase(sDBFile, sBackUpFile)

End If

[aprendiz93]

Vou fazer o teste. obg pela atenção.

[aprendiz93]

Esta dando este erro:

Error    2    Type 'DAO.DBEngine' is not defined.    G:\Projects\Visual Studio 2010\Projects\Form6.vb    17  

Precisa criar uma classe algo do genero?

[samesdavis]

Aqui neste link lhe mostrará qual referencia deverá marcar

http://support.microsoft.com/kb/306287

Aqui tem um exemplo que funciona:

Public Sub BackupBaseDados(ByVal sDBFile As String, ByVal sBackUpFile As String)

If IO.File.Exists(sDBFile) Then

Dim db As New JRO.JetEngine

db.CompactDatabase(sDBFile, sBackUpFile)

End If

End Sub

[aprendiz93]

obg. vou fazer o teste.

[aprendiz93]

Boa Noite!

Fiz o teste e agora esta dando outro erro:

An unhandled exception of type 'System.StackOverflowException' occurred in Controle.exe

Segue o código.

Jetenginer.vb

Namespace JRO
Class JetEngine

Sub CompactDatabase(ByVal sDBFile As String, ByVal sBackUpFile As String)

Dim jro As JRO.JetEngine

jro = New JRO.JetEngine()

jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\Projects\Visual Studio 2010\banco de dados.accdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\Projects\Visual Studio 2010\bancodedados.accdb;Jet OLEDB:Engine Type=5")

MsgBox("Finished Compacting Database!")
End Sub


End Class
End Namespace

[aprendiz93]

Já consegui resolver. obg