求教:使用adoquery执行oracle pl/sql语句，取得返回值的问题！！在线等待！

TLFLY 2003-09-14 10:48:33

delphi中使用adoquery执行sql语句
declare
a integer;
begin
a := 1
end;

使用adoquery的Open能正常运行该sql，可是怎么取得a的值呢？
使用query执行该pl/sql是否可以取得返回值？
因为是在原有的库上做开发，所以不能在该库中建立存储过程，
所以希望能找到办法从pl/sql中返回值，在ado中能取到吗？

...全文

66 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

TLFLY 2003-09-14

打赏
举报

回复

顶一下，怎么每人回答？

TLFLY 2003-09-14

打赏
举报

回复

结了算了

TLFLY 2003-09-14

打赏
举报

回复

to JCC0128
:(,可能最后没办法的时候只能这样了

JCC0128 2003-09-14

打赏
举报

回复

自己在数据库中建一个表A，把数据a往表里面insert，到时候从表里面取数据，哈哈，方法不通用

JCC0128 2003-09-14

打赏
举报

回复

因为是在原有的库上做开发，所以不能在该库中建立存储过程?
什么逻辑呀,考虑一下看是不是一定不能用存储过程?有余地就争取

TLFLY 2003-09-14

打赏
举报

回复

顶一下，怎么每人回答？

Delphi adoquery处理多条SQL语句

Delphi 点击Tree节点的某个选项后，右侧会对应显示出数据信息，左侧的树节点信息从Access数据库读取出来，实际上当我们单击左侧数据的时候，右侧数据同样是从Access数据库读取，只不过关联的ID，就是左侧的数据项，实现这一功能，对应的代码为：　　procedure TForm1.TreeView1Click(Sender: TObject); 　　begin 　　 with ADOQuery2 do 　　 begin 　　 Close; 　　 SQL.Clear; 　　 SQL.Add('Select * From msn where 姓名 =:a'); 　　 Parameters.ParamByName('a').Value:=TreeView1.Selected.Text; 　　 Prepared; 　　 open; 　　 end; 　　 if (ADOQuery2.RecordCount>0)and(Treeview1.Selected <> Nil) then 　　 with ADOQuery2 do 　　 begin 　　 Edit1.Text:=ADOQuery2.fieldbyname('ID').AsString; 　　 Edit2.Text:=ADOQuery2.fieldbyname('姓名').AsString; 　　 Combobox1.Text:=ADOQuery2.fieldbyname('性别').AsString; 　　 DatetimePicker1.Date:=ADOQuery2.fieldbyname('出生日期').Value; 　　 Edit3.Text:=ADOQuery2.fieldbyname('民族').AsString; 　　 Edit4.Text:=ADOQuery2.fieldbyname('家庭电话').AsString; 　　 Edit5.Text:=ADOQuery2.fieldbyname('手机号码').AsString; 　　 Edit6.Text:=ADOQuery2.fieldbyname('QQ号码').AsString; 　　 Edit7.Text:=ADOQuery2.fieldbyname('E_mail').AsString; 　　 Memo1.Lines.Text:=ADOQuery2.fieldbyname('备注').AsString; 　　 Combobox2.Text:=ADOQuery2.fieldbyname('类型').AsString; 　　 end; 　　end;

adoquery1.Close; adoquery1.SQL.Text:='select * from cs'; adoquery1.Open; a :=adoquery1.fieldbyname('a').Value;...................................//a、b参数的获取 b :=adoquery1.fieldbyname('b').Value; adoquery1.close; adoquery1.SQL.Text:='select x from yc where id =1'; adoquery1.Open; x :=adoquery1.fieldbyname('x').Value; ……………………….//要预测的产品数量x。 y:=a + b * x; ……………………//计算y的值 with adoquery1 do begin close; sql.Clear; sql.Add('update yc set y =:y1 where id=1'); …………………… //将y的值写入yc表。 parameters.ParamByName('y1').Value:=floattostr(y); execsql; close;

环境：delphi7、adoquery、fastreport；功能：使用adoquery在fastreport实现主从表源码

delphi Adoquery Oracle Blob格式的文档上传与下载，个人写的一段代码

数据库相关

2,497

社区成员

88,445

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章