天啊,我的ADOQUERY查询了老半天什么结果也没有怎么办?

Question

if Trim(Edit1.Text)<>'' then
     strsql:='Select * From basic Where 所在教研室='''+Trim(Edit1.Text)+'''';
     if DATAMODULE2.ADOQuery2.Active then     DATAMODULE2.ADOQuery2.Active:=False;
     DATAMODULE2.ADOQuery2.SQL.Clear;
     DATAMODULE2.ADOQuery2.SQL.Add(strsql);
     DATAMODULE2.ADOQuery2.Active:=true;

Answer 1

hehe,终于发现错误了,dbgrid的datasource忘了设置呢,解决啦,解决拉,谢谢指点哦.

Answer 2

没有返回记录集啦！
if Trim(Edit1.Text)<>'' then
     strsql:='Select * From basic Where 所在教研室='''+Trim(Edit1.Text)+'''';
     if DATAMODULE2.ADOQuery2.Active then     DATAMODULE2.ADOQuery2.Active:=False;
     DATAMODULE2.ADOQuery2.SQL.Clear;
     DATAMODULE2.ADOQuery2.SQL.Add(strsql);
     DATAMODULE2.ADOQuery2.Active:=true;
     DATAMODULE2.ADOQuery2.ExecSql；
     DATAMODULE2.ADOQuery2.Open；
应该就可以了，试试吧?

Answer 3

if Trim(Edit1.Text)<>'' then
begin
     strsql:='Select * From basic Where 所在教研室='''+Trim(Edit1.Text)+'''';
     DATAMODULE2.ADOQuery2.close;
     DATAMODULE2.ADOQuery2.SQL.Clear;
     DATAMODULE2.ADOQuery2.SQL.Add(strsql);
     DATAMODULE2.ADOQuery2.open;
end;
我想这样应该可以了.