请各路高手指教,关于ADO连接的问题!

klyh 2003-05-24 01:18:20
我作了一个三层系统,数据是Oracle,中间层用TADOConnection连接,客户端用TDCOMConnection连接中间层,用TClientDataSet进行数据传输,但是在执行下列查询时报错!

DataMudole.TClientDataSet.Active:=False;
DataMudole.TClientDataSet.CommandText:='Select distinct field1 from table1 where field2 in (select distinct field2 from table2 where 条件1) Order by field2';
DataMudole.TClientDataSet.Active:=True;//执行到这里出错

错误为:在获得新的之前,必须释放所有的Row句柄
...全文
26 14 打赏 收藏 转发到动态 举报
写回复
用AI写文章
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
wuzhongmin 2003-05-30
  • 打赏
  • 举报
回复
你用这样试试:
DataMudole.TClientDataSet.close;
DataMudole.TClientDataSet.CommandText:='Select distinct field1 from table1 where field2 in (select distinct field2 from table2 where 条件1) Order by field2';
DataMudole.TClientDataSet.open;
wzj_qd434 2003-05-29
  • 打赏
  • 举报
回复
举例一个:
ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add('select * from memory where askdate='+#39+formatdatetime('yyyy-mm-dd hh:mm',now)+#39);
ADOQuery1.Open ;
mess:= ADOQuery1.fieldbyname('message').AsString ;
path:= ADOQuery1.fieldbyname('path').AsString
wzj_qd434 2003-05-29
  • 打赏
  • 举报
回复
用ADOQuery组件试一试,它处理sql语句比较灵活。
soaringsouth 2003-05-29
  • 打赏
  • 举报
回复
order by的问题吧?sql语句不对。
zjf27 2003-05-28
  • 打赏
  • 举报
回复
up
不停歇的步伐 2003-05-28
  • 打赏
  • 举报
回复
gz
klyh 2003-05-24
  • 打赏
  • 举报
回复
zhanghaijun(zhanghaijun) 兄:CommandText选项已经打开了!
thh820630(空吻) 兄:能说一下有什么问题么?
snake_eye(★蛇眼★上帝派来灌水的人) 兄:不好意思,小弟才疏学浅,请指点,老大能不能把关于ClientData.data:=COMObj.GetMydata(.....)给一段详细代码!!


snake_eye 2003-05-24
  • 打赏
  • 举报
回复
楼主的 SQl放到中间取,通过方法取得 Data,如果你的SQl语句没问题一般不会有问题的
ClientData.data:=COMObj.GetMydata(.....);
snake_eye 2003-05-24
  • 打赏
  • 举报
回复
客户端怎么有SQL语句,开发的是什么三层?
thh820630 2003-05-24
  • 打赏
  • 举报
回复
我觉得那个ORDER BY子句可能有点问题
  • 打赏
  • 举报
回复
你服务器端允许使用commandText的选项打开了吗?
klyh 2003-05-24
  • 打赏
  • 举报
回复
zleeway(杂草) 兄:不行呀,我测试了一下,还是报那个错误!
comanche(太可怕) 兄:你能不能说的再详细点!!
comanche 2003-05-24
  • 打赏
  • 举报
回复
CommandText...
这问题就是为二层而三层
zleeway 2003-05-24
  • 打赏
  • 举报
回复
试一试在子查询里不要使用distinct

'Select distinct field1 from table1 where field2 in (select field2 from table2 where 条件1) Order by field2'

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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