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;