Re: plugin postgresql

[Robin de Kat <sxenvironnement at mac dot com>]

Le 14 mars 08 à 14:07, Stephane Pinel a écrit :

> peux-tu nous montrer ta requête (si ce n'est pas top secret défense) ?
Voici le code, situé dans la partie "Open" du PopupMenu1:

  Dim db as PostgreSQLDatabase
  db= New PostgreSQLDatabase
  dim query as string
  dim rs as recordset
  Dim V as String
  dim Toto as string
  Dim i as Integer

  db.host="10.0.1.2"
  db.port=64998
  db.DatabaseName="sxcollecte"
  db.Username="serveur"
  db.Password=""

  If db.connect then


    query="SELECT nom FROM clients order by nom"

    rs=db.SQLSelect(query)

    PopupMenu1.DeleteAllRows

    While Not rs.eof
      v = rs.IdxField(1).StringValue
      PopupMenu1.AddRow v

      For i = 2 to rs.fieldcount
        PopupMenu1.addRow rs.IdxField(i).StringValue
      next

      rs.MoveNext
    Wend
    popupmenu1.listindex=0
  else
    MsgBox "The connection failed."
  end if