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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  COMPACTAR
TIBONE
não registrado
Postada em 03/04/2006 21:12 hs   
Alguem sabe me dizer como que eu faço para Reparar e Compactar o BD do access automatico, sem precisar de abrir o access para reparar, tipo fazer um form somente para isto.
Muito grato
     
MooTechnologies
CARAZINHO
RS - BRASIL
Postada em 04/04/2006 09:14 hs            
 
no link acima existe um programa que utiliza a ocx xceedzip, mesma utilizada no Brazip, muito bom utilitario e vc pode chamar da sua aplicação através do comando shel.. da uma olhada ele serve para compactar, para descompactar vc pode utilizar outos utilitarios que tem na area 'Utilitários' aqui do site do vbweb mesmo.
 
Valeu!!
     
TIBONE
não registrado
ENUNCIADA !
Postada em 04/04/2006 10:41 hs   
Cara este sistema não serve, preciso de uma rotina para imcorporar dentro do meu sistema e fazer com que o Sistema Repare e Compacte o Banco de Dados.
Tem alguma dica
   
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 04/04/2006 10:44 hs            
Acho q o Tibone quis dizer outro tipo de compactção amigo...
bom, a sua dica é boa é com certeza pode ser útil...
 
Para reparar e compactar vc pode usar o Microsoft Jet and Replication Objects veja este link:
 
 
Explica como fazer...
 
t+
   
LCRamos
não registrado
ENUNCIADA !
Postada em 05/04/2006 03:13 hs   
Faça a referencia ao Jet
 
Para Reparar:
DBEngine.RepairDatabase BD   (este comando não funciona no XP)
 
Para Compactar:
On Error GoTo Repara
 NovoBD = NovoNome
 if Dir$(NovoBD) ?!<> ""  Then Kill NovoBD ' (?! sinal maior e menor, diferente) aqui some
 DBEngine.CompactDatabase BD, NovoBD
 Kill BD
DBEngine.CompactDatabase NovoBD, BD
Exit
REPARA:
 For Each ERRO In DBEngine.Errors
  Msgbox "Erro"
Next ERRO
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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