1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| procedure TForm1.BitBtn1Click(Sender: TObject);
var chaine:string;
ADOStoredProc:TADOStoredProc;
begin
chaine := Edit1.Text;
ADOStoredProc := TADOStoredProc.Create(nil);
try
ADOStoredProc.Connection := ADOConnection1;
ADOStoredProc.ProcedureName := proc1';
ADOStoredProc.Parameters.CreateParameter('p1',ftstring,pdinput,255,chaine);
ADOStoredProc.Parameters.CreateParameter('p2',ftinteger,pdinput,MaxInt,1);
ADOStoredProc.Parameters.CreateParameter('p3',ftinteger,pdinput,MaxInt,1);
ADOStoredProc.Active := true;
while not ADOStoredProc.Eof do
begin
ListBox1.Items.Add(ADOStoredProc.FieldValues['libelle']);
ADOStoredProc.Next;
end;
finally
ADOStoredProc.Free;
end;
end; |
Partager