[TADOStoredProc] initialisation des paramètres et lancement

bonjour, Après avoir fait des recherches sur Internet et sur ce forum, je n'ai pas vraiment trouvé ce que je voulais alors je vous expose mon problème :

j'ai un logiciel de base de donnée (oracle) sur lequel j'ai une procédure stockée (ajoutpersonne(nom varchar2, prenom varchar2)).
J'aimerai savoir exactement la manipulation pour déclencher cette procédure à partir de mon programme.
j'ai un élément TADOConnection et un élément TADOStoredProc.
la connection est initialisée, et l'objet TADOStoredProc possede pour propriété connection la connection ci dessus et en membre "ProcedureName" : "ajoutpersonne". Il me manque plus qu'à initialisé les paramètre avec les champs texte et l'executer. (la procedure ou plutot fonction retourne une valeur)

Pouvez vous m'indiquer la marche a suivre pour initialiser les paramètres. Car pour executer la procedure c'est ExecProc().
Merci d'avance

Utilise

Code:

---

1 2	Proc->Parameters->CreateParameter(Nom,Type,Direction,Taille,NULL);

---

Extrait de l'aide de Builder :

Citation:

---

Ajoute un paramètre à l'ensemble de paramètres.

TParameter* __fastcall CreateParameter(const WideString Name, Db::TFieldType DataType, TParameterDirection Direction, int Size, const OleVariant &Value);

Description

Appelez CreateParameter pour créer un seul objet TParameter et l'ajouter à l'ensemble TParameters. Les valeurs des propriétés du nouvel objet TParameter aojuté sont fournies via les paramètres CreateParameter.

Name est une valeur de type WideString contenant le nom du nouvel objet TParameter créé.

DataType est une valeur de type TDataType indiquant le type de données du paramètre que le nouvel objet TParameter représente.

Direction est une valeur de type TParameterDirection indiquant le type du paramètre. Un paramètre représenté par un TParameter peut être un des types : entrée, sortie, entrée-sortie ou valeur renvoyée. Désignez un paramètre inconnu si le type de paramètre est inconnu au moment de la création du TParameter.

Size est une valeur entière indiquant la taille maximale de la valeur du paramètre.

Value est du type OleVariant contenant la valeur du paramètre. Il n'est pas nécessaire de transmettre de valeur à Value lors de la création du TParameter. Elle peut être affectée plus tard. Si aucune valeur n'est affectée à ce moment, transmettez NULL à Value.

---

merci pour l'info car moi j'hesitais avec addparameter(...).

mais pour cette methode : :arrow:

Proc->Parameters->CreateParameter(Nom,Type,Direction,Taille,NULL);
le nom correspond au nom d'un parametre de la méthode ou je lui fourni le nom du paramètre correspondant au paramètre nom de ma procédure stockée.

Je sais c'est des questions bêtes mais je n'ai pas d'exemples

J'utilise cela avec SQL server.

Dans ce cas là, il faut que tous les paramètres (Nom,Type,Taille,Direction) correspondent EXACTEMENT à ceux décrit dans la procédure Stockée.

Contrairement à ce que l'on pourrait croire, l'ordre de création des paramètres n'est pas suffisant pour faire le lien entre le TADOStoredProc et la procédure stockée.

il me dit erreur d'acces dans le module etc.. (acces violation at adress ... in module ...) j'ai juste fait ca.
mais je ne sais pas si cela convient avec oracle:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

maprocstoc->Active = true; maprocstoc->Parameters->AddParameter(); maprocstoc->Parameters->CreateParameter("titre",ftString,pdInput,4,edtitre->Text); maprocstoc->Parameters->CreateParameter("nom",ftString,pdInput,128,ednom->Text); maprocstoc->Parameters->CreateParameter("prenom",ftString,pdInput,128,edprenom->Text); maprocstoc->Parameters->CreateParameter("adr1",ftString,pdInput,128,edadr->Text); maprocstoc->Parameters->CreateParameter("adr2",ftString,pdInput,128,edadr2->Text); maprocstoc->Parameters->CreateParameter("cp",ftString,pdInput,5,edcp->Text); maprocstoc->Parameters->CreateParameter("ville",ftString,pdInput,128,edville->Text); maprocstoc->Parameters->CreateParameter("tel",ftString,pdInput,12,edtel->Text); maprocstoc->Parameters->CreateParameter("fax",ftString,pdInput,12,edfax->Text); maprocstoc->Parameters->CreateParameter("gsm",ftString,pdInput,12,edport->Text); maprocstoc->ExecProc(); maprocstoc->Active = false;

---

merci de me repondre rapidement si vous en avez la possibilité

Code:

---

maprocstoc->Active = true;

---

Demande l'exécution de la procédure stockée.
C'est donc normal que ça plante vu qu'il y a pas de paramètres.

D'ailleurs, on utilise ExecProc() dans le cas d'une procédure stockée ne renvoyant pas de jeu d'enregistrement et Active=true dans le cas contraire

Ce qui nous fait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

maprocstoc->Parameters->Clear(); // pour supprimer tous les paramètres si'il y an avait maprocstoc->Parameters->AddParameter(); maprocstoc->Parameters->CreateParameter("titre",ftString,pdInput,4,edtitre->Text); maprocstoc->Parameters->CreateParameter("nom",ftString,pdInput,128,ednom->Text); maprocstoc->Parameters->CreateParameter("prenom",ftString,pdInput,128,edprenom->Text); maprocstoc->Parameters->CreateParameter("adr1",ftString,pdInput,128,edadr->Text); maprocstoc->Parameters->CreateParameter("adr2",ftString,pdInput,128,edadr2->Text); maprocstoc->Parameters->CreateParameter("cp",ftString,pdInput,5,edcp->Text); maprocstoc->Parameters->CreateParameter("ville",ftString,pdInput,128,edville->Text); maprocstoc->Parameters->CreateParameter("tel",ftString,pdInput,12,edtel->Text); maprocstoc->Parameters->CreateParameter("fax",ftString,pdInput,12,edfax->Text); maprocstoc->Parameters->CreateParameter("gsm",ftString,pdInput,12,edport->Text); maprocstoc->ExecProc();

---