在delphi中如何调用SQL Server的存储过程(转贴)

 

在delphi中如何调用SQL Server的存储过程(转贴)
经常有很多初学者问到在delphi中如何调用SQL Server的存储过程？问题其实很好解决，但问得多了，也就不愿答了。下面我将用实例进行说明，从在SQL Server中创建存储过程到调用的完整实例。

打开sql server管理器,在pubs数据库中建一个测试表,表名为test,字段有id,name,和desc,全部为字符型,如果你不知道建表,那么打开sql查询分析器,贴上以下的代码,然后按执行,就会自动生成test表.

use pubs if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[test]') and OBJECTPROPERTY(id, N'IsUserTable') = 1) drop table [dbo].[test] GO CREATE TABLE [dbo].[test] ( [id] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL , [name] [char] (12) COLLATE Chinese_PRC_CI_AS NULL , [descrip] [char] (30) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] GO

然后,我们来创建一个存储过程,其功能为在test中插入一条新记录.创建存储过程的代码如下,同样的,你也可以复制到查询分析器里直接执行就可以: CREATE PROCEDURE myInsert @id char(10) , @name varchar(12), @descrip varchar(30) AS begin insert into test (id,name,descrip) values (@id,@name,@descrip) if @@rowcount=0 begin raiserror('error',16,1) rollback transaction end end GO

接下来,新建一个工程文件,在form1上放置如下控件,并设置属性(括号内): 一个ADOConnection1: TADOConnection; (LoginPrompt:=false; connectionstring:=Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=(local);)

一个ADOStoredProc1: TADOStoredProc;属性为: (connection:=adoconnection1; procedurename:=myinsert;//上面我们创建的那个)

一个ADOTable1: TADOTable;属性为: (connection:=adoconnection1; tablename:=test; //上面我们创建的那个)

一个Datasource1,属性为: (dataset:=Tadotable;)

一个 DBGrid1: TDBGrid;属性为 (datasource:=datasource1;)

一个Button1,在其Onclick中写到:

with adoStoredproc1 do begin Parameters.ParamByName('@id').Value := '2'; parameters.ParamByName('@name').Value := 'myname'; parameters.ParamByName('@descrip').Value :='nosubject'; ExecProc; end; Adotable1.Close; adotable1.Open; 好了,整个过程就是这样,明白了吗

**********************************************************************************************

Sql 2000中写法
CREATE PROCEDURE  opLogin  
                 @op_code  int  ,    --操作员工号
                 @password varchar(10)                 
as
begin               
if (@op_code = 100 )
     return 100   
end
//oracle 中写法
CREATE OR REPLACE PROCEDURE  opLogin(   
                 op_code    int  ,    --操作员工号
                 password   varchar)
is
begin               
  if ( op_code = 100 ) then
     return ;   
  end if;
end opLogin;

存储过程如下
Sql 2000中写法
CREATE PROCEDURE  opLogin  
                 @op_code  int  ,    --操作员工号
                 @password varchar(10)                 
as
begin               
if (@op_code = 100 )
     return 100   
end
//oracle 中写法
CREATE OR REPLACE PROCEDURE  opLogin(   
                 op_code    int  ,    --操作员工号
                 password   varchar)
is
begin               
  if ( op_code = 100 ) then
     return ;   
  end if;
end opLogin;
存储过程如下
Sql 2000中写法
CREATE PROCEDURE  opLogin  
                 @op_code  int  ,    --操作员工号
                 @password varchar(10)                 
as
begin               
if (@op_code = 100 )
     return 100   
end
//oracle 中写法
CREATE OR REPLACE PROCEDURE  opLogin(   
                 op_code    int  ,    --操作员工号
                 password   varchar)
is
begin               
  if ( op_code = 100 ) then
     return ;   
  end if;
end opLogin;

Delphi Ado中用 TADOCommand 调用sql2000中的存储过程可以如下
  ADOConnection1.Connected:=true;
  ADOCommand1.CommandType:=cmdText;
  ADOCommand1.CommandText:='exec pubs..opLogin @password=''123456'',@op_code=999';
  ADOCommand1.Execute;
*********************************************************************************

 

 

CREATE TABLE BOOK(
      BOOK_NO    VARCHAR(20) PRIMARY KEY CLUSTERED,
      BOOk_NAME VARCHAR(20),
      AMOUNT     SMALLINT
)

CREATE PROCEDURE ADO_STORED
@BOOK_NO VARCHAR(20),

@BOOK_NAME VARCHAR(20),

@AMOUNT SMALLINT=-1 OUTPUT
AS
BEGIN
     INSERT INTO BOOK VALUES(@BOOK_NO,@BOOK_NAME,1)
     SELECT @AMOUNT=AMOUNT FROM BOOK WHERE BOOK_NO=@BOOK_NO AND BOOK_NAME=@BOOK_NAME
END

DECLARE @AMOUNT SMALLINT
EXEC ADO_STORED '010','ado存储',@AMOUNT OUTPUT
SELECT @AMOUNT

以上是在sqlsever2000中创建一个实验的存储过程并取得成功

接下来调用delphi的adoquery控件来实现调用存储过程并实现返回值：

procedure TForm1.Button2Click(Sender: TObject);
var i:integer; //声明变量来测试返回值的成功
begin
     with adoquery1 do

                //adoquery的connectionstring属性可以直接跟数据库实现连接，可以不用adoconnection控件
     begin
          close;
          sql.Clear;
          parameters.Clear;
          sql.Add('exec ADO_STORED :A,:B,:C output');//这就是调用存储过程
          parameters.Items[0].Value:=edit1.text;     //0对应着A
          parameters.Items[1].Value:=edit2.Text;    //1对应着B
          prepared:=true;                                        //貌似可以不写
          execsql;
          i:=parameters.Items[2].Value;               //2对应着C，为返回值赋值
          showmessage(inttostr(i));                      //显示结果
     end;
end;