Paramétrer ADOStoredProc sous Delphi XE3

bonjour
je voudrais executer une procedure stocker MSsql sur delphi xe3 avec adostoredproc et je coince sur les parametres ,
ma procedure insert des champs sur des table automatiquement et je me sert d'une variable d'entre @o3 pour que la procedure la traite et l'enregistre
la procedure est la suivante:

Code:

---

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

alter proc insc @o3 varchar(25) as begin declare @sta char(25), @for char(25), @mon money,@adr char(25), @o2 varchar(25) set @sta= (SELECT id_sta FROM stagiaire WHERE id_sta = (SELECT MAX(id_sta) FROM stagiaire)) set @for=(select id_for from formation where nom_for=@o3) set @mon=(select montant_for from formation where id_for=@o3) set @adr=(SELECT id_adr FROM adresse WHERE id_adr = (SELECT MAX(id_adr) FROM adresse)) insert inscription(date_isc,montant,id_sta,id_for)values (getdate(),@mon,@sta,@for) insert stagiaire (id_adr)values (@adr) end

---

et avec delphi je veux affecter la chaine de caractaire d'un combobox a la variable @o3 a l'execution de la procedure
merci

Utilise un Parameters.ParamByName('@o3').Valuele @ peut poser problème

le @ c'est la variable declarer dans la proc sql server

et SVP une derniere question : comment parametrer une variable output pour retourner un resultat sur un edit

Bonjour,

pour récupérer un ensemble de données à partir d'une procédure, le mieux est d'utiliser une requête de ce genre :

SELECT <colonnes> FROM MAPROCEDURE(<parametres>);

par exemple pour la procédure indiquée insc, en admettant qu'elle retourne un résultat

Code:

---

1 2 3 4

ADOQuery.SQL.Text:='SELECT * FROM insc(:p)'; // :p valeur de o3 ADOQuery.Parameters.ParamByName('p').Value:='valeur o3'; ADOQuery.Open;

---

bien noter qu'il faut utiliser Open et non ExecSQL lorsque l'on veut obtenir un ensemble résultat.

Ceci étant, ADO (comme MSSQL) n'étant pas ma tasse de thé , il y aura peut être des ajustements à faire genre :
- indiquer le type de paramètre

Code:

---

1 2 3 4

// param : TParameter; Param := ADOQuery.Parameters.ParamByName('p'); Param.DataType := ftString; Param.Value := 'valeur o3';

---

pour commenter la réponse de ShaiLeTroll moi j'aurais simplement mis Parameters.ParamByName('o3').Value sans le @, mais toujours avec le même "ajustement"

Citation:

---

Envoyé par animalx123

et SVP une derniere question : comment parametrer une variable output pour retourner un resultat sur un edit

---

Data.Win.ADODB.TParameter.Direction à pdOutput
qui est l'équivalent de ptOutput