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