HExécuteRequêteSQL + tableau de structure

Nova a formulé ce lundi :

Salut,

Est-ce que quelqu'un peut me donner un exemple de programmation Windev
permettant de remplir un tableau de structure à partir de la fonction
HExécuteRequêteSQL, svp ?

J'ai passé mon après-midi a trouver une solution, mais sans succès.

Merci d'avance

NovaDev

//tu déclares ta structure et ton tableau
stHistogr est une structure
Libelle est une chaîne
Abrev est une chaîne
Nbr est un entier
Rang est un entier
FIN
t7 est un tableau dynamique
t7=allouer un tableau de 0 stHistogr

//on réintialise la table dynamique
Dimension(t7,0)

Sablier(Vrai)
POUR k=1 A TableOccurrence("TABLE")
//initialisations générales
//ici tu fais qlq ch, par exemple
//ici ti mets tes paramètres, par exemple
//REQ_SELECT_PREV151E.param111e=MonParam
//puis tu exécutes la requête
HExécuteRequête(REQ_SELECT_PREV151E,hRequêteDéfaut)
SI ErreurDétectée ALORS
Erreur("Impossible d'exécuter la requête de sélection
!",HErreurInfo())
Sablier(Faux)
Ferme
FIN
//etc, etc, etc
//tu recceuilles des données et alimentes ton tableau de structure
n=Dimension(t7)+1
Dimension(t7,n)
t7[n]:Rang=k
t7[n]:Libelle=VTLIBELLE[k]
t7[n]:Abrev=VTABREV[k]
t7[n]:Nbr=REQ_SELECT_PREV151E.NBR
FIN

Sans ton code, je ne peux guère plus, mais avec ce mécanisme, tu as
l'essentiel.
digging

--
- concepteur ensemblier -