delphi adodataset1 调用存储过程的方法

delphi adodataset1 调用存储过程的方法 

adodataset1 的特殊用法

存储过程

CREATE   PROCEDURE  adddata

@name nvarchar(20) ,

@mm nvarchar(20) ,

@ddd nvarchar(30),

@rdata nvarchar(30)

AS

INSERT INTO table (name,mm,ddd) 

     VALUES (@name,@mm,@ddd)

set @redata='操作成功';

select @redata as redata

return 1

GO

delphi代码片段

procedure TForm1.BitBtn1Click(Sender: TObject);

var

tstr:string;

begin

tstr:='123';

ADODataSet1.Close;

ADODataSet1.CommandText:='adddata a,a,a,'+tstr;//此处写存储过程

showmessage(ADODataSet1.CommandText);

ADODataSet1.Open;

showmessage(ADODataSet1.FieldByName('redata').AsString);//此处是返回值

end;

————————————————

原文链接：https://blog.csdn.net/fkedwgwy/article/details/6582929