COMPACTAR BANCO.ACCDB, ACCESS 2007 EM VB6.

EJOPE 19/08/2010 09:08:09
#350667
não estou conseguindo compactar minha base de dados direto pelo vb6.

da o seguinte erro: [Ô]NÃO FOI POSSÍVEL ENCONTRAR ISAM INSTALÁVEL[Ô]

ja tenter procurar alguam solução mais não encontro.

segue o cófigo usado:

[ô]*******************************
[ô]para compactar o banco de dados
[ô]*******************************
Dim JRO As JRO.JetEngine
Set JRO = New JRO.JetEngine

DB_origem = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & bancoORIGEM & [Ô];pwd=senhaBANCO[Ô]
DB_destino = [Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & bancoDESTINO & [Ô] ;Jet OLEDB:Encrypt Database=True[Ô]

JRO.CompactDatabase DB_origem, DB_destino
[ô]*******************************
[ô]*******************************
[ô]*******************************

será que alguem pode me ajudar.
obrigado.
JAMESBOND007 19/08/2010 09:11:54
#350668
Segue o codigo.

Dim AcApp As Access.Application
    Dim pathBKP As String
    Dim PathBase As String
    Dim Path As String
    Dim Tamanho As Integer
    Dim Destino As String

    Tamanho = Len(Text1.Text)
    Destino = Left(Text1.Text, Tamanho - 4)
    PathBase = Text1.Text
    Path = Destino & [Ô]_TEMP.mdb[Ô]
    Set AcApp = New Access.Application
    AcApp.CompactRepair PathBase, Path
    AcApp.Quit acQuitSaveNone
    Kill PathBase
    FileCopy Path, PathBase
    Kill Path


ou

http://www.macoratti.net/compacta.htm
MENDESCCO 19/08/2010 10:03:41
#350671
Bom dia EJOPE.

Voce pode estar utilizando dll's de compactacao e descompactacao.
Azip32.dll e Aunzip32.dll
Eu utilizo deste metodo, para diversas situações onde necessito de backup.
é bem simples o metodo, e eficaz.

Fonte: http://www.macoratti.net/pac_arq.htm

Espero que lhe ajude.
EJOPE 19/08/2010 12:04:35
#350685
obrigado pelas respostas, mais o que eu quero é reparar e compactar o banco.accdb.
no exemplo do JAMESBOND007 mandado acima, não está funcionando para essa versão.

alguem tem mais alguma sugestão????
Tópico encerrado , respostas não são mais permitidas
Voltar