Lancer mysqldump depuis delphi

Version imprimable

31/07/2006, 19h00
nopnop

Lancer mysqldump depuis delphi
bonjour.
Je souhaite que l'utilisateur de mon prog en delphi puisse faire une sauvegarde de la base de données. J'aimerai donc lancer :
'C:\Program Files\MySQL\MySQL Server 5.0\bin\mysqldump.exe',' -u root -pmdp --opt mabase -h localhost > c:\sauvegarde.sql'

J'ai donc essayé des milliers de combinaisons avec shellexecute et cmd, sans aucun resultat.
J'ai essayé des trucs du genre :
Code:

1 2 ShellExecute(Handle,'open','C:\Program Files\MySQL\MySQL Server 5.0\bin\mysqldump.exe',' -u root -pmdp --opt ird -h localhost > c:\sauvegarde.sql',nil,SW_SHOWNORMAL);
La fenetre ms-dos apparait et disparait, je n'ai aucune erreur en testant avec

Code:

<=32 then ShowMessage(SysErrorMessage(GetLastError));

mais je n ai jamais mon fichier de sauvegarde créé.

J'ai bien trouve quelques trucs sur els frum, genre ca:
http://www.developpez.net/forums/sho...&highlight=cmd
mais ca me parait bien compliqué pour mon pb.

Quelqu'un peut il m'aider?
Merci
Julie
02/08/2006, 11h33
c.devise

Je n'utilise pas mysqldump, mais je lance des requêtes par le client mysql :

Par exemple, pour charger une table dans ma base à partir d'un fichier csv :

Cde1 := '-e "load data local infile ''detvte.csv'' replace into table d2d.detail'+
copy(Id_DatFin.Text,5,2)+' fields terminated by '';''';
ExecAndWait('mysql.exe','-u root -h 192.168.10.5 '+ Cde1);

NB : ExecAndWait utilise en fait un ShellExecute dans une boucle pour attendre la fin d'execution du pgm lancé.

si ça peut te servir...
07/08/2006, 21h55
Jipété

Yep !

Si ça peut t'aider, je lance Word (oui je sais, rien à voir, mais continue à lire...) comme ça :

Code:

ShellExecute(Handle, 'open', 'winword.exe', PChar(mypath + '\one.dot /mLanceur'), '', SW_NORMAL);

(one.dot est un modèle à moi enregistré dans mypath.)

J'ai pas creusé le truc, la différence avec ton code c'est l'utilisation de PChar(les_param_qui_vont_bien).

Mes 2 cts,
JP

Salut,
Merci pour vos réponses.
Pour m'en sortir, j'ai fait :
Code:

1 2 3 4 5 AssignFile(F,ExtractFilePath(Application.ExeName)+'\doc\sauvegard.bat'); Rewrite(F); //Crée puis ouvre un nouveau fichier Writeln(F,ligne); //Writeln place une marque en fin de ligne CloseFile(F); ShellExecute(Handle,'open',PChar(ExtractFilePath(Application.ExeName)+'\doc\sauvegard.bat'),nil,nil,SW_hide)<=32
Bref, j'ai crée un fichier bat, que je lance ensuite. Je suis pas tres contente de ma solution, mais j'ai pas bcp de temps pour finir le projet, alors, j'avance comme je peux.
Dès que je finis, je testerai vos options.
Merci encore.
Julie

08/08/2006, 15h03
Jipété
Yep !

Citation:

AssignFile(F,ExtractFilePath(Application.ExeName)+'\doc\sauvegard.bat');
Rewrite(F); //Crée puis ouvre un nouveau fichier
Writeln(F,ligne); //Writeln place une marque en fin de ligne
CloseFile(F);

Pourquoi fais-tu tout ça (just curious) ?
Le ShellExecute de ton .bat ne suffit pas ? Tu l'as bien créé à la mano, ce bat, non ? (ou alors, t'as pas mis tout le code ?)

Permets-moi d'insister, tu ne devrais pas en avoir pour longtemps à tester ça, qui est un mix de ta question originale et de mon post Word (je ne peux pas tester, je n'ai pas MySQL Server -- mais bon, si je peux passer un paramètre à mon modèle Word [/mLanceur], ça doit fonctionner dans ton cas) :
Code:

1 2 3 4 ShellExecute(Handle, 'open', 'C:\Program Files\MySQL\MySQL Server 5.0\bin\mysqldump.exe', PChar(' -u root -pmdp --opt ird -h localhost > c:\sauvegarde.sql'), nil, SW_SHOWNORMAL);
Mes 2 cts,
JP