vb6+resultat d'une requeteRésolu

Question

Salut,
Pourriez vous me dire comment je peux afficher le resulat d'une requete select dans une listebox?
merci.

tof008 · Accepted Answer

Salut,
 essaie : while not rs.EOF
            List1.Additem oRs!url
            rs.next
            wend
Ca devrait marcher!

Et au passage salut jrivet!

         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT

jrivet · Answer

Salut,
A l'aide de quel objet effectues tu la requete?

Si c'est un Recordset, effectue une recherche sur le site tu devrais trouver assez rapidement ton bonheur

@+: Ju£i?n
Pensez: Réponse acceptée

spootnic22 · Answer

Salut,
oui c avec l'objet Recordset.
Merci.

jrivet · Answer

Salut,
Sais tu parcourir un recordset?

@+: Ju£i?n
Pensez: Réponse acceptée

spootnic22 · Answer

Salut,
Oui, je sais.le problème c'est que comment afficher le résultat dans une liste box?
j'ai effectué la recherche que tu m'as dis et j'ai pas trouvé qlq chose.
Merci.

spootnic22 · Answer

Salut,
le code que j'ai utiliser est :
------------------------------------
Function charger() As Integer
    Dim Fso
    Dim i, iRec As Integer
    Dim sVal, sSheet, sQuery, sLogFile, sDate As String
    Dim oConn As New ADODB.Connection
    Dim oRs As New ADODB.Recordset
    sDate = Format(Date, "yyyymmdd")
    sLogFile = SourceDir + "LOG_" + sDate + ".dbf"
    Set Fso = CreateObject("Scripting.FileSystemObject")
   
    If Fso.fileexists(sLogFile) Then
        oConn.open "provider=vfpoledb;data source=C:\;"
        sQuery = "Select url from " + sLogFile + " where status<> 'O'"
        oRs.open sQuery, oConn
      While oRs.EOF = False
        oRs.MoveNext
         List1   //// à ce niveau 
         Wend
    oRs.Close
    oConn.Close
    Else: MsgBox "Base de données n'existe pas"
    End If
    Set Fso = Nothing
    Set oRs = Nothing
    Set oConn = Nothing
    
End Function
--------------------------

jrivet · Answer

SAlut,
Essaie ceci
List1.Additem oRs!url

@+: Ju£i?n
Pensez: Réponse acceptée

spootnic22 · Answer

Salut,
Oui elle affiche seulement un seul url lorsque je clic sur le bouton charger de mon application.
moi je veux une fois que je clic sur ce boutton tous les url s'affiche dans la listebox.
Je serai très reconnaissant Ju£i?n.

spootnic22 · Answer

Salut, 
oups Julien,j'ai essayé avec la boucle, ca marche mais l'application genere une erreur :
"La methode Value de l'objet Field a echoué".
est ce que tu as une solution Julien?
Merci d'avance.

spootnic22 · Answer

Salut,
Oui merci Julien ça marche très bien!!!!
Merci.

tof008 · Answer

tu as peut etre une valeur nulle dans le resultat de ta requete...

         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT

Vb6+resultat d'une requete

11 réponses

Votre réponse

Discussions similaires