|
'Prova amb aix�:
Screen.MousePointer = vbHourglass
wDataAct =
App.Path & "\BaseDades.MDB"
wDataBis = App.Path &
"\Compactacio.BIS"
wDataBak = App.Path &
"\Compactacio.BAK"
DBEngine.CompactDatabase wDataAct, wDataBis
If
Dir(wDataBak) <> "" Then Kill wDataBak
Name wDataAct As
wDataBak
Name wDataBis As wDataAct
Screen.MousePointer =
vbDefault
' Es guardar� una c�pia de tal com estava abans a
'Compactacio.BAK'
----- Original Message -----
Sent: Wednesday, February 26, 2003 7:43
PM
Subject: [Internauta] Problema
Acces/Visual Basic
Hola estic fent un programa amb visual Basic que
treballa sobre Acces , el que passa es que quan comences a eliminar registres
desde visual amb la opci� del adodc hi ha un moment en que acces comen�a a
fallar una mica. la Soluci� facil es entrar a Acces i fer servir la opcio
compatar i reparar bases de datos.. pero clar a mi el que m'interessaria es
poder fer aixo desde Visual basic sense haver de tocar el Acces per a res.
Alg� sap si hi ha alguna manera?
Gracies
|
Respondre per correu electrònic a
