Parcourir une source de données quand on ne connait pas les noms des rubriques

**droliprane** · 08/03/2014, 12h22

Bonjour,

je programme un interpréteur sql intégré à mon appli, dont le but sera de pouvoir interroger, modifier, supprimer en cas de besoin, quand je ne pourrai pas accéder directement à la bd.

Je peux donc saisir n'importe quelle requête sql, donc je ne connais pas à l'avance ce qui se retrouvera dans ma source de données.
Ma question est simple : comment je peux parcourir un recordset sans connaitre les rubriques qui s'y trouvent, donc d'une manière indicée plutôt. Actuellement voilà ce sur j'ai écrit, mais je coince :

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
Sql est une chaîne = SAI_sql
Rs est une Source de Données
 
SI PAS HExécuteRequêteSQL(Rs,Cnx,hRequêteSansCorrection,Sql) ALORS
	Erreur("Erreur d'initialisation de la requête"+RC+HErreurInfo()+ RC + RC + Sql)
	RETOUR
FIN
SI HLitPremier(Rs) ALORS
 
	TANTQUE PAS HEnDehors(Rs)
 
		Trace(Rs.?)
 
                                HLitSuivant(Rs)
	FIN
 
FIN

J'en profite pour vous demander si on peut connaitre à partir de la source de données, les noms des rubriques, parce que je vais construire ma table résultat dynamiquement à partir du Rs.

Merci à vous

**hpascal** · 08/03/2014, 17h41

Bonjour

Avec HListeRubrique(Rs) tu auras la liste des colonnes de ta requête

Il n'y pas plus qu'à utiliser les indirections pour lire leur contenu
du genre :

Code :

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

1
2
3
4
5
6
7
8
9
SI HLitPremier(Rs) ALORS
	sLstCol = HListeRubrique(Rs)
	TANTQUE PAS HEnDehors(Rs)
		POUR TOUTE CHAÎNE sCol DE sLstCol SEPAREE PAR RC
			Trace({Rs..Nom+"."+sCol,indRubrique})
		FIN
		HLitSuivant(Rs)
	FIN
FIN

**droliprane** · 09/03/2014, 20h04

C'est vraiment exactement ce que je cherchais, merci

Dernière chose, à chaque appel de ma fonction d'interprétation sql, j'aimerais que ma table soit à nouveau dans son état initial (celui défini dans l'ide) sans tous les champsclone que j'ai pu faire lors de la requête précédente.... comment je peux faire cela ? A la limite si je savais comment parcourir les colonnes de ma table, comme ça je supprime de 2 à n, et je garde ma colonne modèle...

merci à tous

**droliprane** · 09/03/2014, 20h19

faut vraiment que je prenne le temps de chercher avant de poser des questions moi :

Code :

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

1
2
3
4
5
6
7
8
TableSupprimeTout(TABLE_resultat)
 
TANTQUE TABLE_resultat..NombreColonne > 1
 
	ChampSupprime(TableEnumèreColonne(TABLE_resultat,2))
 
 
FIN

j'ai un peu galérer au début parce que je faisais

Code :

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

1
2
3
4
5
6
7
 
POUR i = 2 A TABLE_resultat..NombreColonne
 
    ChampSupprime(TableEnumèreColonne(TABLE_resultat,i))
 
 
FIN

mais au fur et à mesure que je supprimais les colonnes, la propriété NombreColonne diminuait donc ça jouait pas !

Retenir la première solution.

**droliprane** · 09/03/2014, 21h37

bon là c'est pas faute d'avoir cherché, mais dans le cas d'une requête autre qu'un SELECT, je veux pouvoir au moins afficher le nombre d'enregistrement affectés par la requête (update, delete, insert, alter, etc...)

j'ai testé HNbEnr mais ça ne fonctionne pas

Voici comment j'exécute la requête :

Code :

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

1
2
3
4
5
6
SI PAS HExécuteRequêteSQL(Rs,Cnx,hRequêteSansCorrection,Sql) ALORS
	Erreur("Erreur d'initialisation de la requête"+RC+HErreurInfo()+ RC + RC + Sql)
	RETOUR
FIN
 
TableAjoute(TABLE_resultat, HNbEnr(Rs) + " lignes affectée(s)")

mais HNbEnr ne fonctionne que sur una table connue dans l'analyse, après un éventuel hfiltre....

je voudrais un équivalent de Rs.recordcount

EDIT : je crains qu'on ne puisse pas faire cela autrement qu'en parsant la requête pour la transformer en select et compter le nombre d'enregsitrements avant de faire réellement l'update ou alter ou delete... qui pourrait échouer d'ailleurs, donc pas satisfaisant...