Compresser une base

Version imprimable

14/10/2003, 12h12
cdlr27

Compresser une base

Je dois promener ma base d'un PC à un autre, mais même avec le compactage, j'atteint les limites d'une disquette.

J'ai voulu utiliser un compresseur extérieur (arj en autre) avec la commande ci-aprés :
' creer une version compressée de la base
call Shell("arj.exe a db_arj.arj db_sauve.mdb", 1)
' La recopie sur le fichier de destination
Reponse = Fs.CopyFile(Bd_Arj.arj, "a:\ Bd_Arj.arj")
mais, access lance la copie avant la fin de l'execution de ARJ.

Comment attendre la fin d'une appliaction extérieure.

Ou une autre solution pour compresser ma base.

:oops: Marcel
14/10/2003, 12h19
nikirikou

une carte mémoire USB 128Mo ( ou moins !! ), c'est pas chère, et ça peut rapporter gros... :wink:
D'autant plus que la disquette 3 1/2" est en voie de disparition... - à mon grand regret -...
14/10/2003, 12h38
Maxence HUBICHE

essaie plutôt de te faire ca dans un batch (.BAT)

cette fonction te permet d'attendre la fin du process mis en argument.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public Sub attente_fin_trt(id As Long) Dim ret As Long Dim pHandle As Long Dim i As Integer Do CloseHandle (pHandle) pHandle = OpenProcess(SYNCHRONIZE, False, id) DoEvents Loop Until pHandle = 0 End Sub
Code:

id = Shell(commande_ligne, vbMinimizedNoFocus)

14/10/2003, 13h30
Mr.Gus

Si çà passe pas pour pas grans chose, tu peux simplement zippé ton fichier.
14/10/2003, 14h09
cdlr27

Goshiz,
Ta réponse est trés intéressante pour son aspect technique.
Je suis sous access 2000, et le prgramme bute sur deux fonctions que je ne retrouve pas dans l'aide :
- CloseHandle & OpenProcess

Est-ce dù à une option du compilateur ou à autre chose ?.

Merci pour ton aide car cela répond exactement à ma question.

Id = Shell("ARJ.EXE a -e bd_arj.arj bd_source",vbMinimizedNoFocus)
puis ta procedure sub attente_fin_trt(Id)

Marcel

excuse moi j'ai oublié les déclarations :

ce sont en faites des API :

Code:

1
2
3
4
5
6
7
8
Private Declare Function CloseHandle Lib "kernel32" _
   (ByVal hObject As Long) As Long
 
Private Declare Function OpenProcess Lib "kernel32" _
   (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
    ByVal dwProcessId As Long) As Long
 
Private Const SYNCHRONIZE = &H100000

sinon tu as aussi ca qui marche bien :

Code:

1
2
3
4
5
6
7
Private Declare Function WaitForSingleObject Lib "kernel32" _
   (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Const INFINITE = -1&
 
pHandle = OpenProcess(SYNCHRONIZE, False, id)
ret = WaitForSingleObject(pHandle, INFINITE)
ret = CloseHandle(pHandle)

14/10/2003, 16h15
cdlr27

Sujet terminé

Les amis, pour une première utilisation de ce forum, chapeau pour l'aide.

En final, j'ai utilisé un mélange des deux solutions soit :
- Une commande shell pour le *.BAT et le paramêtre "fermer en quittant" sur le *.PIF qui s'est créer automatiquement.
- un appel à "attente_fin_trt(Id As Long)" pour attendre la fin du traitement.

Cela me donne un assez grand avenir, mon fichier compressé étant à 420Ko.

Pour répondre à d'autres, je n'ai pas de port USB sur un des PC et le sujet était intéressant.

A plus tard pour d'autres délires et je vais continuer à apprendre à utiliser ce forum.

Marcel :lol:
15/03/2004, 14h15
effree

Je voudrais faire la même chose, compresser des fichiers externe avec 7-Zip.
Mais dès que je mets la déclaration des API dans un module j'ai l'erreur suivante: 'Expected variable or procedure, not module' en pointant sur une ligne contenant une fonction shell.
Si je cherche dans l'explorateur d'objet shell, j'ai 2 réponses, la nomal et 1 autre: bibliothéque:nom_base Class:Shell.
Mais si je fais ca dans une base vide tout marche impec, et 1 réponse dans l'explorateur d'objet. Dans les 2 cas les ref sont identique et dans le même ordre.

Quelqu'un aurait une idée pour débloquer la situation??