Discussion :

[rolls]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[SfJ5Rpw8]

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 " !

[rolls]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 "

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 "" "

[rolls]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

...bin\ pg_dump.....

[Cravis]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[rolls]

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

[Cravis]

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

Cravis.

[rolls]

ok ça marche!

[sougrinoma]

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

[OhMonBato]

Bonjour également,

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