Comment emplir une liste par SQL
Unrealll
-
5 nov. 2001 à 01:39
mnemo95 Messages postés 8 Date d'inscription dimanche 28 mars 2004 Statut Membre Dernière intervention 20 juillet 2007 - 12 avril 2004 à 21:37
mnemo95 Messages postés 8 Date d'inscription dimanche 28 mars 2004 Statut Membre Dernière intervention 20 juillet 2007 - 12 avril 2004 à 21:37
A voir également:
- Comment emplir une liste par SQL
- Decimal sql - Forum SQL
- SQL Insert into de nombre décimal - Forum Visual Basic
- Commit sql ✓ - Forum SQL
- Decimal, float, double... en C# avec SQL Server ✓ - Forum C# / .NET
- Lpad sql server ✓ - Forum SQL
2 réponses
dim bd as database
dim rs as recordset
dim sql as string
sql="select " etc...
set rs = bd.openrecordset(sql,dbopendynaset)
if rs.recordcount > 0 then
do while not rs.eof
remplissage une ligne de la liste
rs.movenext
loop
endif
rs.close:set rs=nothing
bd.close:set bd=nothing
Ce code est pour DAO, si tu travailles en ADO les
instrutions sont legerement diff. mais l'architecture
du code est la même
dim rs as recordset
dim sql as string
sql="select " etc...
set rs = bd.openrecordset(sql,dbopendynaset)
if rs.recordcount > 0 then
do while not rs.eof
remplissage une ligne de la liste
rs.movenext
loop
endif
rs.close:set rs=nothing
bd.close:set bd=nothing
Ce code est pour DAO, si tu travailles en ADO les
instrutions sont legerement diff. mais l'architecture
du code est la même
mnemo95
Messages postés
8
Date d'inscription
dimanche 28 mars 2004
Statut
Membre
Dernière intervention
20 juillet 2007
12 avril 2004 à 21:37
12 avril 2004 à 21:37
Petite application du code :
sql = "select nom_cli from client"
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
If rs.RecordCount > 0 Then
Do While Not rs.EOF
lst_cli.List(cpt) = rs("nom_cli")
cpt = cpt + 1
rs.MoveNext
Loop
End If
sql = "select nom_cli from client"
Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
If rs.RecordCount > 0 Then
Do While Not rs.EOF
lst_cli.List(cpt) = rs("nom_cli")
cpt = cpt + 1
rs.MoveNext
Loop
End If
