Tester l'existence d'un champ dans une table

Bonjour,
Savez vous comment on peut faire en Webdev pour tester si un champ existe ou non dans une table.
S'il existe un genre de fonction comme ceci TestChampExiste("Nom_table","Nom_Champ") ?

J'ai essayé de bricoler moi même quelque chose :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

PROCEDURE TestChampExiste(sNomTable est une chaîne,chSNomChamp est une chaîne ) sdRequete1 est une Source de Données chSql est une chaîne chSql = "SHOW COLUMNS FROM " + sNomTable HExécuteRequêteSQL(sdRequete1, ConnexionMySQL, hRequêteSansCorrection,chSql) HLitPremier(sdRequete1,hSansRafraîchir) TANTQUE PAS HEnDehors(sdRequete1) Info(sdRequete1) HLitSuivant(sdRequete1) FIN HFerme(sdRequete1)

---

Mais je ne sais pas comment obtenir la valeur du nom du champ.

J'ai trouvé une solution, je la poste ça pourra toujours servir à quelqu'un :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

PROCEDURE TestChampExiste(sNomTable est une chaîne,chSNomChamp est une chaîne) sdRequete1 est une Source de Données chSql est une chaîne bChampExiste est un booléen = Faux chSql = "SHOW COLUMNS FROM " + sNomTable HExécuteRequêteSQL(sdRequete1, ConnexionMySQL, hRequêteSansCorrection,chSql) HLitPremier(sdRequete1,hSansRafraîchir) TANTQUE PAS HEnDehors(sdRequete1) SI(sdRequete1."" = chSNomChamp) ALORS bChampExiste = Vrai Info("vrai:",sdRequete1."") FIN HLitSuivant(sdRequete1) FIN HFerme(sdRequete1) RENVOYER bChampExiste

---