西西软件下载最安全的下载网站、值得信赖的软件下载站!

首页编程开发Delphi → delphi和sqlserver交互、delphi调用SQL Server存储过程

delphi和sqlserver交互、delphi调用SQL Server存储过程

相关软件相关文章发表评论 来源:西西整理时间:2012/12/1 12:14:05字体大小:A-A+

作者:西西点击:0次评论:0次标签: 存储过程

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

1   {利用adoquery调用sql server存储过程}
2 procedure TForm1.Label1Click(Sender: TObject);
3 begin
4   adoquery1.Close;
5   adoquery1.SQL.Clear ;
6   adoquery1.SQL.Add('exec proc_stu :a output,:b,:c');
7   adoquery1.Parameters[1].Value :=strtoint(edit1.Text);
8   adoquery1.Parameters[2].Value :=strtoint(edit2.Text);
9   adoquery1.Parameters[0].DataType:=ftsmallint;
10   adoquery1.Parameters[0].Direction:=pdoutput;
11   adoquery1.Prepared:=true;
12   adoquery1.Open ;
13   edit3.Text:= inttostr(adoquery1.Parameters[0].Value );
14 end;

1{利用adostoreproc调用sqlserver标量函数}
2procedureTForm1.Label2Click(Sender:TObject);
3begin
4
5     adostoredproc1.ProcedureName:='rectanglearea';
6    adostoredproc1.close;
7     adostoredproc1.Parameters.Refresh;//Clear会导致数组溢出异常。
8     adostoredproc1.Parameters.CreateParameter('return_value',ftfloat,pdreturnvalue,20,null);//函数返回值
9     adostoredproc1.Parameters.CreateParameter('a',ftfloat,pdinput,10,null);
10     adostoredproc1.Parameters.CreateParameter('b',ftfloat,pdinput,10,null);
11     adostoredproc1.Parameters[1].Value:=strtofloat(edit1.Text);
12     adostoredproc1.Parameters[2].Value:=strtofloat(edit2.Text);
13     adostoredproc1.Prepared:=true;
14    adostoredproc1.ExecProc;
15     edit3.Text:=floattostr(adostoredproc1.Parameters[0].Value);
16
17end;

1{利用adostoreproc调用sqlserver存储过程}
2procedureTForm1.Button1Click(Sender:TObject);
3begin
4adostoredproc1.ProcedureName:='proc_stu';
5adostoredproc1.close;
6adostoredproc1.Parameters.Clear;
7//adostoredproc1.Parameters.CreateParameter('return_value',ftfloat,pdreturnvalue,20,null);
8adostoredproc1.Parameters.CreateParameter('a',ftinteger,pdoutput,10,null);//参数名不需要与sql中定义的参数名相同
9adostoredproc1.Parameters.CreateParameter('b',ftinteger,pdinput,10,null);
10adostoredproc1.Parameters.CreateParameter('c',ftinteger,pdinput,10,null);
11adostoredproc1.Parameters[1].Value:=strtofloat(edit1.Text);
12adostoredproc1.Parameters[2].Value:=strtofloat(edit2.Text);
13adostoredproc1.Prepared:=true;
14adostoredproc1.Open;//有与dbgrid相关联,应用open而不是execproc.
15edit3.Text:=floattostr(adostoredproc1.Parameters[0].Value);
16
17
18end;

1{利用adoquery调用sqlserver表值函数}
2procedureTForm1.Button2Click(Sender:TObject);
3begin
4adoquery1.Close;
5adoquery1.SQL.Clear;
6adoquery1.SQL.Add('select*fromdbo.tt(:a)');
7adoquery1.Parameters[0].Value:=edit1.Text;
8adoquery1.Prepared:=true;
9adoquery1.Open;
10//edit3.Text:=inttostr(adoquery1.Parameters[0].Value);
11end;

    相关评论

    阅读本文后您有什么感想? 已有人给出评价!

    • 8 喜欢喜欢
    • 3 顶
    • 1 难过难过
    • 5 囧
    • 3 围观围观
    • 2 无聊无聊

    热门评论

    最新评论

    发表评论 查看所有评论(0)

    昵称:
    表情: 高兴 可 汗 我不要 害羞 好 下下下 送花 屎 亲亲
    字数: 0/500 (您的评论需要经过审核才能显示)
    推荐文章

    没有数据