|
一个窗体上有datagrid,query ,datasource,button1这四个控件。query1联的是一台服务器a上的oracle数据库。这个数据库里有一个dblink指向的是另一个服务器b的数据库。query里的sql语句中的from语句都用得是“from 表名@dblinkname”的形式。通过这样的方法让datagrid显示多表联合查询后的结果。在buttonclick事件里写的是
procedure TCT1.Button1Click(Sender: TObject);
var
lStr : String;
begin
//BASESYSTEMINTERFACE.TSIMPLESQLFILTERBUILDFORM.Create(Context);
BASESYSTEMINTERFACE.TSIMPLESQLFILTERBUILDFORM.BuildSQLFilter(TBizDataSet(supply),lStr);
jsDialogs.showmsg(lstr,'');
end;
其中supply是query控件的名字。项目引用里也引用了系统核心库和系统接口。
运行时点击button后报错如图
|
|