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;

相关推荐
十碗饭吃不饱25 分钟前
sql报错:java.sql.SQLSyntaxErrorException: Unknown column ‘as0‘ in ‘where clause‘
java·数据库·sql
我是Superman丶1 小时前
【优化】Mysql指定索引查询或忽略某个索引
数据库·mysql
程序定小飞1 小时前
基于springboot的在线商城系统设计与开发
java·数据库·vue.js·spring boot·后端
呆呆小金人1 小时前
SQL入门: HAVING用法全解析
大数据·数据库·数据仓库·sql·数据库开发·etl·etl工程师
LL_break1 小时前
Mysql数据库
java·数据库·mysql
野犬寒鸦1 小时前
从零起步学习Redis || 第十一章:主从切换时的哨兵机制如何实现及项目实战
java·服务器·数据库·redis·后端·缓存
倔强的石头_2 小时前
面向大数据架构的演进:为何 Apache IoTDB 是与生态无缝融合的理想之选?
数据库
Elastic 中国社区官方博客3 小时前
如何减少 Elasticsearch 集群中的分片数量
大数据·数据库·elasticsearch·搜索引擎·全文检索
Logintern093 小时前
只有通过Motor 获取 mongodb的collection,才能正常使用 async with collection.watch()监听集合变更
数据库·mongodb
huaqw003 小时前
Java17新特性解析深入理解SealedClasses的语法约束与设计哲学
数据库