Le 9 janv. 07 à 15:55, Michel LO a écrit :
Il faut faire un recordset
dim rs as recordset
dim query as string
query="SELECT * FROM TABLE"
rs=db.SQLSelect(query)
Pour lire le record set :
while not rs.eof
toto=rs.IdxField(1).StringValue // voir suite explications
wend
Evidemment, à la palce de toto, il faut mettre l'endroit où on
rage, ce peut être un listbox, un tableau vetoriel, etc...
le 1 du IdxField est le numéro de rang du champ dans le recordset,
le premier champ est 1 (et pas 0)
Hé oui, d'ailleurs il faudrait créer une classe 4D avec les commandes
4D :
CHERCHER([TABLE],[TABLE]Champ="valeur")
TRIER
AJOUTER ENREGISTREMENT
......
......
Qui s'y colle ? :-)
Cordialement.
--
Philippe GUEDJ, SGBD Products
Web : http://www.sgbd.com/, AIM / iChat : philippeguedj
HitUp uptime challenge for OSX www.hitup.org
|