realbasic-nug.fr
[Top] [All Lists]

Re: postgreSQL et Mac Intel

To: REALbasic NUG French <realbasic-nug dot fr at lists dot realsoftware dot com>
Subject: Re: postgreSQL et Mac Intel
From: Michel LO <michel dot lo at albireo dot biz>
Date: Mon, 26 May 2008 18:47:45 +0200
Authentication-results: mx.google.com; spf=pass (google.com: domain of realbasic-nug dot fr-bounces at lists dot realsoftware dot com designates 66.116.103.65 as permitted sender) smtp dot mail=realbasic-nug dot fr-bounces at lists dot realsoftware dot com
Delivered-to: listarchive at realsoftware dot com
Delivered-to: realbasic-nug dot fr at lists dot realsoftware dot com
References: <240CEAE3-80F8-4565-A7E2-474A705BFEF2 at mac dot com> <0FD3A1BF-B3A8-4B76-9908-BF3447CB8673 at realsoftware dot fr> <962E46BD-1FFD-483C-B94A-644E76250CAF at mac dot com> <FF9EAC26-95FD-4698-BFA2-76ED923E115A at realsoftware dot fr> <E06AF1F0-D067-4931-B67C-779AB662FF29 at mac dot com> <51343DA4-A4C4-4496-9B80-AB1F9442F301 at edlr dot fr>
Une question très bête de ma part : comment tu as défini rs ?

Michel Lo

Le 26 mai 08 à 18:05, Eric de La Rochette a écrit :

Ouuuppppss !

Après relecture, je vois que tu testes bien rs.EOF dans la boucle while/wend.
Essaye avec la syntaxe suivante:

        rs=db.SQLSelect(query)
if rs <> nil and not db.Error then // Teste une erreur possible sur 'db'
            popupmenu1.DeleteAllRows
        
            While Not rs.eof
              v = rs.IdxField(1).StringValue
              popupmenu1.AddRow v
              rs.MoveNext
            Wend
            popupmenu1.listindex=0
          else
            MsgBox "rs nil : " + db.ErrorMessage
          end if

Et dis-nous ce que ça donne.
Courage...
Eric.



<Prev in Thread] Current Thread [Next in Thread>