Re: Affichage table selon un champs

Posté par Machou43 le 29/6/2007 9:22:55

Code Non Vérifié mais qui pourrais te mettre sur la voie...

//** Déclaration des Variables **
Ch_Sql est une Chaine
RqtSql est une Source de Données
//** Suppression de toutes les lignes existantes de la table mémoire **
TableSupprimeTout(MaTable)
//** Mise en place de la requête Sql **
Ch_Sql = Tb_Adresses.codeClient..NomComplet + " AS codeClient," +
Tb_Adresses.raisonSocialeAdresse..NomComplet + " AS raisonSocialeAdresse
FROM " + Tb_Adresses..Nom + " where codeClient = '" + Fiche_Client.Onglet2.codeClient + "'"
//** Exécution de la requête SQL **
HExecuteRequeteSql(RqtSql,Ch_Sql)
//** On se positionne sur le premier enregistrement trouvé **
HLitPremier(RqtSql)
Tantque pas HEnDehors(RqtSql)
TableAjouteLigne(MaTable,RqtSql.IdClient,....)
//** Enregistrement suivant **
HLitSuivant(RqtSql)
FIN