[VB6] AVANCEMENT COMPACTAGE BDD ACCESSRésolu

Question

Salut,

Je souhaite faire patienter l'utilisateur lors du compactage de la base ACCESS de mon appli

Sauf que plus rien ne répond dans l'appli lorsqu'elle passe sur la ligne
JRO.CompactDatabase MaBase, BaseTemp
(ce qui est assez normal)

Je ne trouve pas de solution à ce problème. Surtout que la base à compacter commence à grossir (50 Mo) et qu'elle se trouve sur un partage réseau. Le compactage commence donc à devenir un peu long et l'utilisateur va un jour penser que l'appli s'est bloquée et me faire un beau [Reset]

Ma question est donc : "Peut-on connaitre en temps réel l'état d'avancement du compactage de la BDD ?"
Ou
"Puis-je faire défiler ma ProgressBar à l'aide d'un Timer pendant le compactage ?"

Merci d'avance
Bonne prog ++

Renfield · Accepted Answer

Salut Bouv

tu ne peux pas...

Pour commencer, je te conseillerais de faire plutot appel à cet utilitaire-ci (JetComp) pour compatcer tes bases, parce qu'il peut également les réparer, et fonctionne fort bien (et assez rapidement).
Dans mon precedent poste, j'ai eu besoin des services de JetComp plutot que du compactage offert par Access, parce que ma base était corrompue. JetComp me l'a réparée...

L'idée serait alors d'afficher une Fenetre invitant l'utilisateur a patienter, avec nue animation quelconque, pour lui indiquer que ca avance toujours. Pendant ce temps, on a lancé l'outil de compactage, et on attend simplement qu'elle termine...

voir cette source :
http://www.vbfrance.com/codes/SHELLANDWAIT-EXECUTER-APPLICATION-ATTENDRE-FIN-RENVOYER-SON-CODE_34867.aspx

Renfield
Admin CodeS-SourceS- MVP Visual Basic

bouv · Answer

Fonctionne nickel merci

Bonne prog ++

Renfield · Answer

bien joué

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_tolt · Answer

Bonjour,

Aurais tu un exemple simple qui compact via un VB6 une base Access avec jetcomp. J'essai de le faire depuis des jours et impossible.
Il faut dire que je débute en programmation VB, je fais ça pour la boite de mon pére.
Merci d'avance

tolt

bouv · Answer

Jette un oeil ici

http://www.vbfrance.com/code.aspx?ID=43977

Bonne prog
++

cs_tolt · Answer

OK Merci je jette un coup d'oeil demain car là j'en ai ras le boleee....
Merci beaucoup et j'espére que je pourais comprendre ton code et le mettre en place.

tolt

[VB6] AVANCEMENT COMPACTAGE BDD ACCESS

6 réponses

Votre réponse