Delphi利用adoquery调用sql server存储过程 标量值函数 表值函数

{利用adoquery调用sql server存储过程}

procedure TForm1.Label1Click(Sender: TObject);

begin

adoquery1.Close;

adoquery1.SQL.Clear ;

adoquery1.SQL.Add('exec proc_stu :a output,:b,:c');

adoquery1.Parameters[1].Value :=strtoint(edit1.Text);

adoquery1.Parameters[2].Value :=strtoint(edit2.Text);

adoquery1.Parameters[0].DataType:=ftsmallint;

adoquery1.Parameters[0].Direction:=pdoutput;

adoquery1.Prepared:=true;

adoquery1.Open ;

edit3.Text:= inttostr(adoquery1.Parameters[0].Value );

end;

{利用adostoreproc调用sqlserver标量值函数}

procedureTForm1.Label2Click(Sender:TObject);

begin

adostoredproc1.ProcedureName:='rectanglearea';

adostoredproc1.close;

adostoredproc1.Parameters.Refresh;//Clear会导致数组溢出异常。

adostoredproc1.Parameters.CreateParameter('return_value',ftfloat,pdreturnvalue,20,null);//函数返回值

adostoredproc1.Parameters.CreateParameter('a',ftfloat,pdinput,10,null);

adostoredproc1.Parameters.CreateParameter('b',ftfloat,pdinput,10,null);

adostoredproc1.Parameters[1].Value:=strtofloat(edit1.Text);

adostoredproc1.Parameters[2].Value:=strtofloat(edit2.Text);

adostoredproc1.Prepared:=true;

adostoredproc1.ExecProc;

edit3.Text:=floattostr(adostoredproc1.Parameters[0].Value);

end;

{利用adostoreproc调用sqlserver存储过程}

procedureTForm1.Button1Click(Sender:TObject);

begin

adostoredproc1.ProcedureName:='proc_stu';

adostoredproc1.close;

adostoredproc1.Parameters.Clear;

//adostoredproc1.Parameters.CreateParameter('return_value',ftfloat,pdreturnvalue,20,null);

adostoredproc1.Parameters.CreateParameter('a',ftinteger,pdoutput,10,null);//参数名不需要与sql中定义的参数名相同

adostoredproc1.Parameters.CreateParameter('b',ftinteger,pdinput,10,null);

adostoredproc1.Parameters.CreateParameter('c',ftinteger,pdinput,10,null);

adostoredproc1.Parameters[1].Value:=strtofloat(edit1.Text);

adostoredproc1.Parameters[2].Value:=strtofloat(edit2.Text);

adostoredproc1.Prepared:=true;

adostoredproc1.Open;//有与dbgrid相关联,应用open而不是execproc.

edit3.Text:=floattostr(adostoredproc1.Parameters[0].Value);

end;

{利用adoquery调用sqlserver表值函数}

procedureTForm1.Button2Click(Sender:TObject);

begin

adoquery1.Close;

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select*fromdbo.tt(:a)');

adoquery1.Parameters[0].Value:=edit1.Text;

adoquery1.Prepared:=true;

adoquery1.Open;

//edit3.Text:=inttostr(adoquery1.Parameters[0].Value);

11end;

相关推荐
一只fish15 分钟前
MySQL 8.0 OCP 1Z0-908 题目解析(16)
数据库·mysql
泊浮目43 分钟前
未来数据库硬件-网络篇
数据库·架构·云计算
静若繁花_jingjing1 小时前
Redis线程模型
java·数据库·redis
飞翔的佩奇2 小时前
Java项目:基于SSM框架实现的忘忧小区物业管理系统【ssm+B/S架构+源码+数据库+毕业论文+开题报告】
java·数据库·mysql·vue·毕业设计·ssm框架·小区物业管理系统
ZWZhangYu8 小时前
LangChain 构建向量数据库和检索器
数据库·langchain·easyui
feifeigo1239 小时前
升级到MySQL 8.4,MySQL启动报错:io_setup() failed with EAGAIN
数据库·mysql·adb
火龙谷11 小时前
【nosql】有哪些非关系型数据库?
数据库·nosql
焱焱枫12 小时前
Oracle获取执行计划之10046 技术详解
数据库·oracle
qq_3923971213 小时前
Redis常用操作
数据库·redis·wpf
一只fish15 小时前
MySQL 8.0 OCP 1Z0-908 题目解析(17)
数据库·mysql