• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
经常有很多初学者问到在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;

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap