spootnic22
Messages postés84Date d'inscriptionmardi 31 octobre 2006StatutMembreDernière intervention30 janvier 2010 27 nov. 2006 à 10:56
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
Messages postés84Date d'inscriptionmardi 31 octobre 2006StatutMembreDernière intervention30 janvier 2010 27 nov. 2006 à 11:12
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
spootnic22
Messages postés84Date d'inscriptionmardi 31 octobre 2006StatutMembreDernière intervention30 janvier 2010 27 nov. 2006 à 11:38
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
Messages postés84Date d'inscriptionmardi 31 octobre 2006StatutMembreDernière intervention30 janvier 2010 27 nov. 2006 à 11:46
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.