Discussion :

[christophe.65]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SergioMaster]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[christophe.65]

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?

[devalender]

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 !

[Fred 57220]

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.....

[christophe.65]

Merci à tous, ça marche!

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)