Discussion :

[freud]

Bonjour,

Voilà j'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TDM1.RefreshTable(oTable: TADOStoredProc);
begin
Screen.Cursor:=crSqlWait;
oTable.Close;
oTable.Open;
Screen.Cursor:=crDefault;
end;

J'aimerais rajouter à la procedure RefreshTable un argument de type TParameters pour que je puisse renseigner la valeur d'un parametre d'une procedure stockée ainsi

Code :

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

1
2
3
4
 
oTable.Close;
oTable.Parameters.ParamByName(param).value:=chaine;
oTable.Open;

Ce param doit contenir une valeur du genre '@champ' (parametre de la SP)
pour l'argument je pense que c'est ainsi :

Code :

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

1
2
 
procedure TDM1.RefreshTable(oTable: TADOStoredProc;param:TParameters;Chaine:string);

Mais je ne sais pas si je me trompe.
Aussi, comment faire passer à l'appel ce '@champ' qui sera un TField

RefreshTable(sPclient, '@champ',chaine)

Je vous remercie