COMO COMPACTAR E REPARAR BANCO DE DADOS ACCESS

SINKERTEC 17/02/2010 11:26:40
#334559

Qual versão do access? Veja se ajuda

http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=6675

http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=2082

boa sorte

THIAGO.CC 17/02/2010 11:26:52
#334560 Resposta escolhida

IDELVAN,

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

Thiago

IDELVAN 17/02/2010 11:36:10
#334563

Tiago.. o text1.text seria o caminho + o nome do banco de dados para compactar ?

ex

c:\masterpdv\app_diafrios\dados\pdv.mdb ?

abraços.

THIAGO.CC 17/02/2010 13:37:24
#334580

IDELVAN,

é exatamente isso.

Thiago

IDELVAN 14/07/2010 12:27:15
#347293

Thiago. Desculpe-me a demora.

Agradeço pela sua preciosa ajuda.

IDELVAN 14/07/2010 12:32:38
#347294

Pessoal.

Obrigado pela ajuda.

Irei fazer um teste