正在学习delphi,从网上还有请教前辈,终于知道了如何调用interbase数据库的存储过程。
调用interbase的存储过程要用到IBStoredProc控件。
with IBStoredProc1 do
begin
StoredProcName:='ADD_YG'; //存储过程名叫'ADD_YG'
Params.Clear;
Params.CreateParam(ftString,'pid',ptInput).AsInteger:=pid;
Params.CreateParam(ftString,'pname',ptInput).AsString:=pname;
Prepare;
ExecProc;
end;
存储过程'ADD_YG':
CREATE PROCEDURE ADD_YG (
pid integer,
pname varchar(10),
)
as
begin
insert into yg(id,name)values(:pid, :pname);/*yg为一表*/
exit;
end