adostoredproc1.Close;
adostoredproc1.ProcedureName:='sp_thchl';
adostoredproc1.Parameters.Clear;
adostoredproc1.Parameters.CreateParameter('out',ftInteger,pdoutput,1,1);
adostoredproc1.ExecProc;
edit1.Text :=adostoredproc1.Parameters[0].Value;
前面加上StrUtils单元
最简单的存储过程
数据库端
CREATE PROCEDURE aaa
@www varchar(10) //参数
AS
select * from employees where pusercode=@www
GO
前端使用存储过程
procedure TForm1.Button1Click(Sender: TObject);
var outcount:integer;
begin
ADOStoredProc1.Parameters.ParamByName('@www').value :='00001' ;
ADOStoredProc1.open;
//ADOStoredProc1.ExecProc; //
{ 假设你已经有一个存贮过程在SQL服务器中,
那么你和程序就需要一个adoconnection设置数据库连接,
adostoredproc 的
connection连接adoconnection后
producedure就会自动出现数据库中的已经存在的存储过程
设置好连接后,你在adostoredproc的procedurename里面可以看到所有可调用的存贮过程
,选择好要用的存贮过程,(按参数可以看到它需要的参数)
程序调用代码:
with adostoreproc1 do
begin
ADOStoredProc1.Parameters.ParamByName('').value := ;
ADOStoredProc1.ExecProc;
end;
上面是存贮过程没有返回结果集的使用,
如果有返回结果集,则使用 ADOStoredProc1.Open去打开 }
//showmessage(inttostr(ADOStoredProc1.Parameters.ParamByName('@outcount').value));
end;
带有输出参数的存储过程
CREATE PROCEDURE aaa
@abc char(10),
@mycount int output
AS
select @mycount=count( *) from employees where pusercode=@abc
return
GO
如何提取参数
procedure TFrm_worker_info.Button1Click(Sender: TObject);
var outcount:integer;
begin
ADOStoredProc1.Parameters.ParamByName('@abc').value :='00001';
ADOStoredProc1.ExecProc;
showmessage(inttostr(ADOStoredProc1.Parameters.ParamByName('@mycount').value));
end;