前言 经常有很多初学者问到在 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;
好了,整个过程就是这样,明白了吗,嘿嘿