Question

delphi高手请进，高分求ADOQuery.open的一段程序

我的程序是这样的，用ADOConnect1连接oracle下的一个表CJJL，ADOQuery1通过ADOConnect1与Database1相连。在DBGride中显示，这段程序已做好。
现要求用一个按钮单击完成ADOQuery1.open的执行情况，
procedure TForm1.Button1Click(Sender: TObject);
begin

end;
请问这程序如何做，请帮忙写一个，谢谢。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
AdoQuery1.close;
AdoQuery1.sql.text:='select * from CJJL where ......';
AdoQuery1.open;
//如过你都配置好了，就是窗口上要放一个 DataSource 控件，Dataset属性赋上Adoquery1； Dbgrid的Datasource属性赋上你那个DataSource的名字，那么这里open后，Dbgrid就会显示出结果。

end;

Answer 2

with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from cjjl');
open;
end;
把这一段加入进去试试！我用MSSQL,没用过ORACLE!
wish you luck!