vbs accès database + liste des bases

Bonjour voici le code que j'utilise pour me connecter à une base de donnée local. Je souhaite lister les base via la table pg_databe et faire une sortie dans une message box:

Code:

---

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

Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = "DRIVER={PostgreSQL Unicode};" _ & "SERVER=127.0.0.1;" _ & "DATABASE=postgres;" _ & "UID=toto;PWD=toto" conn.Open   Set rst = CreateObject("ADODB.Recordset") sql = "select datname from pg_database;" rst.open sql,conn   for each datname in rst.fields msgbox "Base: "&datname next   conn.close

---

Seulement voilà arriver au message box il me donne uniquement le nom de la première base puis il sort.
Je cherche:
soit à lister à la suite toutes les base(plusieurs box l'une après l'autre)
dans une même message box toutes les bases

Merci de votre aide. Il ne manque surement pas grand chose

Bonjour

A la place de

Code:

---

1 2 3

for each datname in rst.fields msgbox "Base: "&datname next

---

Essayes

Code:

---

1 2 3 4

While Not rst.EOF msgbox "Base: "& datname rst.MoveNext Wend

---

Je l'ai tapé à la main, mais cela devrait marcher ;)

Ton code précédent parcourant la collection des champs (fields) hors il faut que tu parcours les enregistrements.

Starec

Merci starec.:yaisse2:
En m'appuyant sur cet exemple, voici mon code qui fonctionne bien.
Le but final étant de faire une maintenance(backup) de base postgres sous windows (et oui! pas le choix, qui n'est pas le mien: linux love.....)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Dim Wshell Set Wshell = Createobject("Wscript.Shell")   Set conn = CreateObject("ADODB.Connection") Set rst = CreateObject("ADODB.Recordset")   stRep = "d:\sauv\"   'Initialisation de la connexion à la base postgre locale conn.ConnectionString = "DRIVER={PostgreSQL Unicode};" _ & "SERVER=127.0.0.1;" _ & "DATABASE=postgres;" _ & "UID=xxx;PWD=xxx" conn.open   'on initialise la liste des bases sql = "select datname from pg_database;" rst.open sql,conn   'Première passe: on nettoie la base puis 'On sauvegarde les bases avec pg_dump while not rst.eof for each datname in rst.fields Wshell.Run "vacuumdb -z -d "&datname&" -h localhost -U postgres",0,True Wshell.Run "pg_dump -h localhost -U postgres -F c -f "&stRep&datname&".dmp "&datname,0,True next rst.movenext wend conn.close

---

PS: aurais tu une idée sur la methode que je pourrais utiliser pour exclure de la liste des bases que je ne souhaite pas sauvegarder(exemple, template..)
Merci

Citation:

---

Envoyé par cubepiege

(et oui! pas le choix, qui n'est pas le mien: linux love.....)

---

Null n'est parfait :lol:

Citation:

---

aurais tu une idée sur la methode que je pourrais utiliser pour exclure de la liste des bases que je ne souhaite pas sauvegarder(exemple, template..)
Merci

---

Un champ en plus dans ta table (style Oui/Non ou Booléen, mais je ne connais pas les types disponibles dans ce type de base), qui identifie si tu veux ou non la sauvegarder, et une clause Where dans ta requête SQL pour sélectionner que ce que tu veux.

Starec

Merci pour tes réponses.
Je clôture.

Addon: Pour ceux que cela intéresse, afin de filtrer les bases, j'ai tout simplement changer ma requête SQL(suis je bête ! :roll: )
çà donne:

Code:

---

1 2	sql = "select datname from pg_database where ((Not(pg_database.datname)='template0' And Not(pg_database.datname)='template1' And Not(pg_database.datname)='postgres'));"

---

Voilà c'est réglé.
PS: pour le bourrin de base on peut utiliser aussi pg_dumpall et basta !

Bye