同时连接多个DB在DELPHI是否可以做到???

zzzjaychung zzzjaychung 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
经过六个小时的奋战,发现还是做不到,真的觉得有些奇怪,不知我的CODE是不是有问题,不管是程序还是编译器的,先发上来请教一下。

ADOConnection1.ConnectionString := '';
ADOConnection1.LoginPrompt := false;
ADOConnection1.KeepConnection := true;
ADODataSet1.Connection := ADOConnection1;
ADODataSet1.CursorLocation := clUseClient;

ADOConnection2.ConnectionString := '';
ADOConnection2.LoginPrompt := false;
ADOConnection2.KeepConnection := true;
ADODataSet2.Connection := ADOConnection2;
ADODataSet2.CursorLocation := clUseClient;

ADOConnection1.Open;
ADODataSet1.CommandText := '';
ADODataSet1.Open;

ADOConnection2.Open; ---编译到这里出错 :一个ORA的错:"连接已关闭"
ADODataSet2.CommandText := '';
ADODataSet2.Open;

ADODataSet1.Close;
ADODataSet2.Close;
ADOConnection2.Close;
ADOConnection1.Close;

请教一下高人们,这里为什么,对CONNECTION还要有什么配的吗?或是DATASET?
如果有遇到过这类问题的朋友,请将解决方法写的详细一些,再告诉小弟一下原因。谢谢。
我的几个同事都遇到过同样的问题。

注:同样的代码有一支FUNCTION编译通过,并且顺利执行,但另外几支FUNCTION不可以,都是我写的,都是在我的PC上写的,所以环境是相同的。两支FUNCTION的唯一不同只是在CONNECIONT1。OPEN后,一个写ADVSTRINGGRID,一个是写EDIT。TEXT。





...全文

相关推荐

评论 9
收藏 已收藏
分享
返回顶部
zzzjaychung
Delphi 5,944 成员 262,941 内容