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

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Compatação de BD Access em ADO (Access 2000)
Postada em 11/3/2003 por Ricardo         
Public Function CompactaBD(ByVal pathOrigem As String, ByVal pathDestino As String, senhabd as string) As Boolean
'   Função que realiza a compactação do banco de dados
    Dim dbOrigem As String, dbDestino As String
    Dim JRO As JRO.JetEngine
    Set JRO = New JRO.JetEngine
    DoEvents
    dbOrigem = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathOrigem & "; Jet OLEDB:Database Password = " & senha
    dbDestino = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathDestino & " ;Jet OLEDB:Engine Type=5; Database Password = " & senhabd
    JRO.CompactDatabase dbOrigem, dbDestino
    CompactaBD = True
    Exit Function
End Function
 


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