Delphi与SQL Server存储过程编程详解

chenyiqidan

　　前言 　　 　　经常有很多初学者问到在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.1ersist 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; <