Delphi与SQLServer存储过程编程详解


前言
  
  经常有很多初学者问到在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; 本文作者:



相关阅读:
同一个表单 根据要求递交到不同页面的实现方法小结
清除垃圾的VBS文件 自动查找多个盘
Windows php+discuz环境搭建推荐教程(图文)
PHP url 加密解密函数代码
用DOS批处理实现建立文件夹的代码
给Function做的OOP扩展
通过注册表修改Win7下远程桌面端口3389的设置方法
SQL Server数据库开发10个问题
javascript完美随机广告代码
重置浏览器默认样式
MySQL SQL 语法参考
Linux系统下用Sopcast收看网络电视
js跟随滚动条滚动浮动代码
教你如何在SQL Server计算机列和平均值
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4