i est un entier
sReq est une chaîne
nNbReq est un entier

//Supprime tous les éléments
ListeSupprimeTout(NOM_DU_COMBO)

//Création de la requête
sReq = "SELECT Nom, "
sReq+= "FROM Client "

//Execution de la requête
SI SQLExec(sReq,"Req") ALORS
//Placement sur la première occurence
SQLPremier("Req") ;
//Information en cas d'erreur
SQLInfoGene("Req") ;
//Nombre de ligne dans la table
nNbReq = SQL.NbLig ;

//Mettre toute les lignes dans le tableau
POUR i = 1 A nNbReq
ValeurTrouve est une chaîne = SQLCol("Req",1) + gStylo(Noir)
ListeAjoute(Nom_Du_Combo,ValeurTrouve)
//Passer à la requête suivante
SQLSuivant("Req")
FIN
FIN

MoiMême..Curseur = 1
MoiMême..FinCurseur = Taille(MoiMême) + 1
EcranPremier(MoiMême)

nVar est un entier = ListeCherche(NOM_DU_COMBO,MoiMême,Faux,1)
ListePosition(NOM_DU_COMBO,nVAr)
ComboOuvre(NOM_DU_COMBO)