Delphi中如何调用存储过程?

估计有很多朋友用delphi写过与SQL Server 2000数据结合的一些MIS系统,对于大量的数据保存,及数据更新.常常考虑到用存储过程来实现...今天我写了一个简单的例子,希望能给一些朋友一点帮助....

1、当然，我们要在SQL SERVER 2000中建好我们的数据库及数据表。我这里用的数据库是reg_nis，其中我新建了一张表叫kevin(ID Int not null,test nvarchar(50),test2 nvarchar(50))其中有三个字段，ID是自动增长，增长率为1。

2、当然用到存储过程，必须先在SQL SERVER 2000中建好必要的存储过程。我建立了4个存储过程，功能分别是插入数据，修改数据，删除数据,查找数据。一般MIS系统中用到也就这些。（1）、插入数据存储过程：

CREATE PROCEDURE [InsertKevin]

(@test nvarchar(50),@test2 nvarchar(50)) AS

insert into kevin(test,test2)

values

(@test,@test2)

GO

（2）、修改数据存储过程：

CREATE PROCEDURE [UpdateKevin]

(@id int,@test nvarchar(50),@test2 nvarchar(50))

AS

update kevin set test=@test,test2=@test2 where [ID]=@id

GO

（3）删除数据存储过程：

CREATE PROCEDURE [DeleteKevin]

(@id int)

AS

delete from kevin where [ID]=@id

GO

（4）、查找数据存储过程

CREATE PROCEDURE [FindKevin]

(@id int)

AS

select * from kevin where [ID]=@id

GO

3、接下来，就在Delphi7中新建一个工程了。用一个ADOConnection1控件连接到数据库Reg_Nis。再放一个ADOStoredProc1控件，执行存储过程的。

我将ADOConnection1更名为ADOCnn,将ADOStoredProc1更名为ADOSP

主要代码：

procedure TmainForm.FormCreate(Sender: TObject);

begin

ADOSP.Connection:=ADOCnn;//将ADOSP连接到ADOCnn

end;

procedure TmainForm.WriteClick(Sender: TObject);

begin

//注意,调用存储过程时,要按参数出现的顺序.

//调用插入数据的存储过程

with adoSP do

begin

Close;

ProcedureName:='InsertKevin';

Parameters.Clear;

Parameters.CreateParameter('test',ftString,pdInput,50,'abc');

Parameters.CreateParameter('test2',ftString,pdInput,50,'fff');

ExecProc;

end;

//调用修改数据的存储过程

with adoSP do

begin

CLose;

ProcedureName:='UpdateKevin';

Parameters.Clear;

Parameters.CreateParameter('ID',ftInteger,pdInput,1,15);

Parameters.CreateParameter('test',ftString,pdInput,50,'eee');

Parameters.CreateParameter('test2',ftString,pdInput,50,'ddd');

ExecProc;

end;

//调用删除数据的存储过程

with adoSP do

begin

CLose;

ProcedureName:='DeleteKevin';

Parameters.Clear;

Parameters.CreateParameter('ID',ftInteger,pdInput,1,15);

ExecProc;

end;

//调用查找数据的存储过程

with adoSP do

begin

CLose;

ProcedureName:='FindKevin';

Parameters.Clear;

Parameters.CreateParameter('ID',ftInteger,pdInput,1,3);

// ExecProc;//在执行命令的存储过程中用ExecProc

Open; //在查询的存储过程时,用OPEN;也可用

end;

// edit1.Text :=adoSP.Parameters[0].Value;

end;