Delphi7-DOA : procédure dynamique pour ramener les données?

**delphim** · 06/12/2004, 15h06

Je voudrais faire la chose suivante :

Pouvoir faire une procédure, qui crée dynamiquement un curseur, accepte n paramètres en entrée (on ne connaît pas d'avance le typage), et sort n variables en sortie (pas de typage prédéfini non plus).

Est-ce que c'est possible ?

**Laurent Dardenne** · 06/12/2004, 16h13

Salut,
peux-tu nous donner un peu plus de détails ?

**delphim** · 06/12/2004, 16h21

Par exemple :

Je fais un select sur 2 champs :
- le nom du client
- son âge

Je précise le nom des champs, ainsi que leur type.

La restriction se fait sur un champ :
- les numéros des clients

La procédure doit me ramener les noms des clients, ainsi que leur âge, correspondant aux critères de la requête.

**vanquish** · 06/12/2004, 16h28

Je ne suis pas certain de ce que tu veux faire exactement, mais voici peut être une direction.

Car quand tu dis "on ne connais pas à l'avance", il faut bien les connaitre à un moment ou à un autre.

Perso, pour un certain dynamisme et abstraction :

J'ai un objet TChamp qui contient le nom, le type du champ (ous forme de champ énuméré) , un champ variant pour la valeur, des property AsString, AsInteger etc .. qui me retourne un typage particulier du variant.

Je constitue donc un TObjectList qui contient N TChamp.
Généralement, par convention, je m'arrage pour que le 1er soit toujours la clé primaire.

En passant comme paramètre, un nom de table et un TObjectList, je suis capable de faire des SELECT, des INSERT et des UPDATE. Il suffit à la procédure d'appeler la property Count de l'ObjectList pour connaitre le nombre de champ et de parcourir ce même ObjectList pour construire sa requête.