Discussion :

[animalx123]

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 :

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

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

[ShaiLeTroll]

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

[animalx123]

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

[animalx123]

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

[SergioMaster]

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 :

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

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 :

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

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"

[ShaiLeTroll]

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