من به این شیوه کار می کنم :
- شما به یک AdoConnection
- و یک AdoCommand احتیاج دارید برای ساخت و اجرای این Stored Procedure
ADOCommand1.CommandText := 'CREATE PROCEDURE SPS_Test '+
'@Param1 nvarchar(30),'+
'@Param2 Int '+
' As Select * From Table1 Where (FieldName1 Like '+QuotedStr('%+@Param1+%')+
' Or (FieldName2 = @Param2';
ADOCommand1.CommandType := cmdText;
ADOCommand1.Execute;
With ADOCommand1 Do
Begin
Parameters.Clear;
Parameters.Insert(0);
Parameters.Items[0].Value := Trim(Edit1.Text);
Parameters.Insert(1);
Parameters.Items[1].Value := StrToInt(Edit2.Text);
CommandType := cmdStoredProc;
Execute;
End;
موفق باشید :)