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:  Reparar/Compactar banco de dados
Postada em 15/11/2004 por ~Ð@®£@Ñ            
Repara e compacta banco access com [DAO] usando senha e mantendo a senha.

Vá no menu Project -> Reference
Marque a opção Microsoft DAO 3.51 Object Library

[code]
                  Screen.MousePointer = 11
                  DBEngine.RepairDatabase App.Path & "Dados.Mdb"  
                  If Dir(App.Path & "Dados2.Mdb") <> "" Then Kill App.Path & "Dados2.Mdb" 'Verifica se o arquivo existe, e deleta
                  DBEngine.CompactDatabase App.Path & "Dados.Mdb", App.Path & "Dados2.Mdb", dbLangGeneral & "; pwd=senha", , "; pwd=senha" 'cria o arquivo compactado e mantem senha
                  Kill App.Path & "Dados.Mdb" 'deleta o arquivo antigo
                  FileCopy App.Path & "Dados2.Mdb", App.Path & "Dados.Mdb" 'efetua a cópia do novo para o antigo
                  Kill App.Path & "Dados2.Mdb" 'deleta o arquivo novo
                  Screen.MousePointer = 0
[/code]
 


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