Lecture noms des colonnes d'une table avec WINDEV

Bonjour,
Sous Windev j'utilise UNE requête et j'affiche le résultat dans une table:

Code:

---

1 2 3 4 5 6 7 8 9

bRes est un booléen ReqClient est une Source de Données   bRes=HExécuteRequêteSQL(ReqClient,"SELECT * FROM EMPLOYEE")   POUR TOUT ReqClient TableAjouteLigne(TABLE_EMPLOYEE,ReqClient.FIRST_NAME,ReqClient.LAST_NAME) FIN

---

FIRST_NAME et LAST_NAME sont des colones de cette table,

Mon problème:
Je souhaite afficher toutes les colonnes de la table, même si je ne connais pas leur nom!

L'idéal c'est de lister toutes les colonnes dans une autre table et après je peux construire ma requête avec les colonnes que je souhaite.

Merci de votre aide.

Bonjour,

Citation:

---

Envoyé par christophe.65

Je souhaite afficher toutes les colonnes de la table, même si je ne connais pas leur nom!

---

cette requête répond à la demande

Code:

---

SELECT RDB$FIELD_NAME FROM RDB$RELATION_FIELDS WHERE RDB$RELATION_NAME = 'EMPLOYEE'

---

merci, je n''ai pas d'erreur sur l’exécution de la requête. Mais comment je parcours ma requête pour afficher les nom des colonnes?

Citation:

---

Envoyé par christophe.65

Mais comment je parcours ma requête pour afficher les nom des colonnes?

---

Je pense qu'il s’agit la maintenant d'un problème windev !

Bonsoir

sRequete est une chaîne = "SELECT RDB$FIELD_NAME FROM RDB$RELATION_FIELDS WHERE RDB$RELATION_NAME = 'EMPLOYEE' "
SI SQLExec(sRequete, "REQ_COLONNE") = Vrai ALORS
TANTQUE SQLAvance("REQ_COLONNE") = 0
MonNomDeColonne = SQLLitCol("REQ_COLONNE",1)
FIN
FIN

SQLFERME.....

Merci à tous, ça marche!

Conexion à la base et lecture des tables de la base:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

SQLDéconnecte() nNumConnexion=0 ListeSupprimeTout(LISTE_ListeTable) TableSupprimeTout(TABLE_Colonne) TableSupprimeTout(TABLE_Données)   sBase = LISTE_ListeBase..ValeurAffichée   SI sBase <> "" ALORS nNumConnexion = SQLConnecte(sBase,SAI_Utilisateur,SAI_Mot_de_passe) SINON RETOUR FIN     SI PAS nNumConnexion ALORS SQLInfoGene() Info("Erreur SQL : " + SQL.MesErreur) SINON // Info ("La conexion a la base "+ sBase + "c'est bien déroulé") // Liste non détaillée des tables Ch est une chaîne = SQLListeTable(Faux,Vrai) Ch = SansEspace(Ch) // Ajout dans un champ Liste ListeAjoute(LISTE_ListeTable, Ch) FIN

---

Lecture des colonnes des tables

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

MonNomDeColonne est une chaîne NomTable est une chaîne TableSupprimeTout(TABLE_Colonne)   NomTable = LISTE_ListeTable..ValeurAffichée SI nNumConnexion=0 ALORS Info("Pas de conexion active a une base") SINON sRequete est une chaîne = "SELECT RDB$FIELD_NAME FROM RDB$RELATION_FIELDS WHERE RDB$RELATION_NAME = '"+ NomTable+"' "   SI SQLExec(sRequete, "REQ_COLONNE") = Vrai ALORS TANTQUE SQLAvance("REQ_COLONNE") = 0 MonNomDeColonne = SQLLitCol("REQ_COLONNE",1) TableAjouteLigne(TABLE_Colonne,MonNomDeColonne) FIN FIN SQLTable(sRequete,TABLE_Colonne )   FIN SQLFerme(sRequete)

---