Question

delphi ADOQuery 与 DBGRID 更新问题(弱问)

拖了三个控件, ADOQuery1 , DataSource1, DBGrid1.
当我用 ADOQuery1.Open 执行 SQL: "select * from mytable" 后, DBGrid1 自动更新了.
当我用 ADOQuery1.Open 执行 SQL: "select * from mytable where xxx" 后, DBGrid1 也自动更新了. 但是我不想把这一次的查询结果显示出来, 能否控制什么时候显示数据.

前提是我只想用同一个 ADOQuery1.

Answer 1

可以啊,你在第二次查询之前做
DBGrid1.DataSource:='';

查询之后再提示是否显示新数据?是
DBGrid1.DataSource:='DataSource1';
否再
select * from mytable
DBGrid1.DataSource:='DataSource1';

不过呢,在你显示新数据前,DBGrid1是没有数据显示的.

Answer 2

可以不用DBgrid了.用Stringgrid ,自己手动将值从AdoQuery的Fields 中取出,循环赋值给Stringgrid相应的单元即可 (Stringgrid.Cells[])

Answer 3

因为DateSource是数据感知控件，所以一旦和它连接的DateSet数据集发生改变，DateSource也会随之而变。一旦把dateSource的数据库去掉，DBGrid必然也显示不出数据（使用DateSet的DisableControls勉强可以实现这个功能，但是后续还是会有很多麻烦），这种结果并不是我们想得到的。如果你想界面只用一个ADOQuery，那么就动态创建一个TADOQuery,专门用来查询的。
procedure TForm1.btn2Click(Sender: TObject);
var
strQry: TADOQuery;
begin
strQry := TADOQuery.Create(nil);
strQry := Query1;//复制Query1的连接属性，或者自己设置： strQry.Connection := con1;
strQry.SQL.Text := 'SELECT TOP 10 * FROM S220';
strQry.Open;
end;