Executer une commande DOS:sauvegarde d'une base de données PostgreSQL

Bonsoir a tous!
Je désire sauvegarder une base de données postgresql. J'ai bouton et dès que je clique dessus la commande s'exécute pour sauver la base.
j'ai essayé ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub bouton_Click() Dim Commande As String Dim Resultat As Long   Commande = "C:\Program Files\PostgreSQL\8.2\bin\ pg_dump.exe -i -h localhost -p 5432 -U postgres -F c -b -v -f "C:\Documents and settings\POSTE\Bureau\rapport\rolls.backup " testrolls " ' testrolls :nom de ma base rolls.backup :fichier de sauvegarde   Resultat = Shell(Commande, vbHide) If Resultat = 0 Then 'teste de l'ID du processus MsgBox "Erreur" Else MsgBox "Succès" End If   End Sub

---

mais il y'a une erreur: le fichier n'existe pas.
cependant quand j'exécute ceci

Code:

---

C:\Program Files\PostgreSQL\8.2\bin\ pg_dump.exe -i -h localhost -p 5432 -U postgres -F c -b -v -f "C:\Documents and Settings\POSTE\Bureau\rapport\rolls.backup " testrolls "

---

dans la fenetre DOS ca marche.
Quelqu'un peut-il m'aider?
D'avance merci!

Surement un problème de " ..... , les " qui doivent être dans ta ligne de commande doivent être doublés dans la chaine Commande.

Mais déjà il y as surement un problème dans la ligne de commande "qui marche" car je ne vois que 3 " !

Citation:

---

Envoyé par bbil

Surement un problème de " ..... ,

Mais déjà il y as surement un problème dans la ligne de commande "qui marche" car je ne vois que 3 " !

---

bonjour bbil effectivement dans le code qui marche il y'a une côte qui manque.

Code:

---

C:\Program Files\PostgreSQL\8.2\bin\ pg_dump.exe -i -h localhost -p 5432 -U postgres -F c -b -v -f "C:\Documents and Settings\POSTE\Bureau\rapport\rolls.backup " "testrolls "

---

Donc pour écrire ta ligne commande = .. tu commence par doubler tous les " qui sont présent dans la ligne de commande 'qui marche' et tu rajoute 2 " autour ..;)

Code:

---

commande= "C:\Program Files\PostgreSQL\8.2\bin\ pg_dump.exe -i -h localhost -p 5432 -U postgres -F c -b -v -f ""C:\Documents and Settings\POSTE\Bureau\rapport\rolls.backup "" ""testrolls "" "

---

;)

je viens de tester les corrections que tu as apporté.il signale une erreur :fichier introuvable
Lorsque j'utiliseur le debogueur il souligne la ligne sous dessous (en rouge)
[QUOTE=rolls;3897955]

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub bouton_Click() ... ... Resultat = Shell(Commande, vbHide) If Resultat = 0 Then 'teste de l'ID du processus MsgBox "Erreur" Else MsgBox "Succès" End If End Sub

---

Vérifie ta ligne de commande, j'ai fait un copier/coller de la ligne postée,... mais voir par exemple l'espace entre \ et pg..:

Code:

---

...bin\ pg_dump.....

---

Essai en remplaçant ta ligne d'affectation de la variable Commande par :

Code:

---

1 2	Commande = "C:\Program Files\PostgreSQL\8.2\bin\pg_dump.exe -i -h localhost -p 5432 -U postgres -F c -b -v -f " & Chr(34) & "C:\Documents and settings\POSTE\Bureau\rapport\rolls.backup" & Chr(34) & " testrolls"

---

Soit au final :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub bouton_Click() Dim Commande As String Dim Resultat As Long   Commande = "C:\Program Files\PostgreSQL\8.2\bin\pg_dump.exe -i -h localhost -p 5432 -U postgres -F c -b -v -f " & Chr(34) & "C:\Documents and settings\POSTE\Bureau\rapport\rolls.backup" & Chr(34) & " testrolls"   Resultat = Shell(Commande, vbHide) If Resultat = 0 Then 'teste de l'ID du processus MsgBox "Erreur" Else MsgBox "Succès" End If   End Sub

---

Edit : le code Chr(34) permet de remplacer le caractère " dans une chaine de caractères ce qui normalement reviens au même que la solutions proposée par bbil.

Cravis.

Merci cravis je viens de tester ta solution et ça marche.
merci beaucoup.:king:

De rien, n'oublie pas de mettre la balise RESOLU ;)

Cravis.

ok ça marche!;)

j'ai utilise les codes proposés mais aucun ne marche correctement.la base est sauvegarder mais ce vide

Bonjour également,

si tu ne nous montres pas ton code, ça va être dur à résoudre.