如果想用adoquery来进行查询的话，不查询的话，所有的信息都在一个页面显示的,如果我要进行查询,
begin
if edit1.Text <> '' then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 表2 where name like :shr') ;
ADOQuery1.active :=false;
adoquery1.Parameters.ParamByName('shr').Value := edit1.Text;
ADOQuery1.active :=true;
end ;

end;


那什么没有效果啊?

if edit1.text<> '' then
begin
adoquery1.sql.clear;
adoquery1.sql.text:='select * from 表2 where name=:shr';
adoquery1.Parameters.ParamByName('shr').value:=edit1.text;
try
adoquery1.open;
except
showmessage('访问数据库连接错误');
exit;
end;
end;
这样试试看行不行吧