Boa tarde!

 

EU gostaria de saber se alguém conhece algum código que via vb ative aquela função compactar e corrigir banco de dados access. Ou seja, via vb, executar a opção do access de compactar e corrigir o banco de dados.

 

Obrigado,

Victor

Você deverá utilizar o objeto DBEngine do DAO para poder compactar e reparar o banco de dados. O método do DBEngine para Compactação é RepairDatabase e o método para compactação é CompactDatabase, onde deverá ser informado o banco de dados origem e o banco de dados destino, ou seja, o destino seria o banco de dados já compactado. Segue abaixo um exemplo:

Private Sub Form_Load()
    Reparar "C:CaminhoBancoDeDados.mdb"
    Compactar "C:CaminhoBancoDeDados.mdb", "C:CaminhoXBancoDeDados.mdb"
End Sub

Private Sub Reparar(Nome As String)
On Error GoTo Erro
    DBEngine.RepairDatabase Nome
    MsgBox "Banco de dados reparado com sucesso", vbInformation, "Reparar banco de dados"
    Exit Sub
Erro:
    MsgBox Err.Number & " - " & Err.Description, vbCritical, "Reparação falhou"
End Sub

Private Sub Compactar(Origem As String, Destino As String)
On Error GoTo Erro
    DBEngine.CompactDatabase Origem, Destino
    MsgBox "Banco de dados compactado com sucesso", vbInformation, "Compactar banco de dados"
    Exit Sub
Erro:
    MsgBox Err.Number & " - " & Err.Description, vbCritical, "Compactação falhou"
End Sub

e se eu estiver usando ADO ao invéz de DAO?

Para isto, vá ao menu Project/References e escolha Microsoft Jet and Replication Objects 2.1 Library. Depois utilize o método CompactDatabase, que além de compactar também faz a reparação da base de dados.

 

Sub JROCompactDatabase()
    Dim je      As New JRO.JetEngine     
    ' Make sure there isn't already a file with the
    ' name of the compacted database.
    If Dir("c:ewnwind.mdb") <> "" Then _
        Kill "c:ewnwind.mdb"
    ' Compact the database
    je.CompactDatabase "Data Source=C:wind.mdb;", _
        "Data Source=C:ewnwind.mdb;"
    ' Delete the original database
    Kill "c:wind.mdb"
    ' Rename the file back to the original name
    Name "c:ewnwind.mdb" As "c:wind.mdb"
End Sub