USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Compactar e Corrigir banco de dados
victor
não registrado
Postada em 16/09/2004 15:34 hs   
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
     
DennysFelix
SÃO PAULO
SP - BRASIL
Postada em 16/09/2004 15:39 hs            
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

Denis de L Felix

msn - dennysfelix_senac@hotmail.com

     
victor
não registrado
Postada em 16/09/2004 16:10 hs   
e se eu estiver usando ADO ao invéz de DAO?
     
DennysFelix
SÃO PAULO
SP - BRASIL
Postada em 16/09/2004 16:32 hs            
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
 
Emoções

Denis de L Felix

msn - dennysfelix_senac@hotmail.com

     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página