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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Recuperar Bd Access com Rotina VB6
JJF
GUARULHOS
SP - BRASIL
Postada em 15/02/2005 23:22 hs            
Fvr informar se o VB6, "uso ADO"  tem uma rotina para indexar BD access2000 desindexado.  se aguém souber me informe aonde procurar.    grato  Jorge
     
Jayme
SÃO PAULO
SP - BRASIL
Postada em 16/02/2005 07:35 hs            
Referenciar Microsoft Jet and Replication Objects 2.6 Library
 
Private Sub Mnu_Compactar_Click()
  On Error GoTo Erro
  Dim Antigo, Atual As String
  Dim DB_Origem, DB_Destino As String
  Dim JRO As JRO.JetEngine
  Set JRO = New JRO.JetEngine
  Screen.MousePointer = vbHourglass
  If DB_VENDAS.State = adStateOpen Then
    DB_VENDAS.Close
  End If
  DB_Origem = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:TESTEVENDAS.MDB;Jet OLEDB:Database Password=SenhaDoMdb;"
  DB_Destino = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:TESTEVENDAS1.MDB" & ";Jet.OLEDB:Engine Type=5"
  JRO.CompactDatabase DB_Origem, DB_Destino
  If Dir("C:TESTEVENDAS.MDB", False) <> "" Then
    Kill ("C:TESTEVENDAS.MDB")
    Antigo = ("C:TESTEVENDAS1.MDB")
    Atual = ("C:TESTEVENDAS.MDB")
  Else
    Kill ("C:TESTEVENDAS.MDB")
    Antigo = ("C:TESTEVENDAS1.MDB")
    Atual = ("C:TESTEVENDAS.MDB")
  End If
  Name Antigo As Atual
  Screen.MousePointer = vbDefault
  MsgBox "O banco de dados foi desfragmentado com sucesso !", 64, "Atenção"
  Exit Sub
Erro:
  Screen.MousePointer = 0
  MsgBox Err.Description
  Err.Clear
  Exit Sub
End Sub
Jayme
     
JJF
GUARULHOS
SP - BRASIL
Postada em 25/02/2005 08:22 hs            
Jayme   deu certo   muito obrigado.   Jorge
     
Página(s): 1/1    

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