如何使用ADOQUERY，请高手们来指点！！！(10分)

我使用了一个ADOCONNECTION，ADODATASET，DATASOURCE，ADOQUERY
连接一个数据库，我用一个DBEDIT显示表中的一个字段姓名，现在，问题是，我再使用一个EDIT
控件输入一个值，使用ADOQUERY来查询表中的某一个字段值，并且使相应的记录的姓名值在
DBEDIT中显示。请问，查询按钮的代码如何写，我是这样写的，可是就是不对，请高手们
指点迷津：
procedure TForm1.Button2Click(Sender: TObject);
var sqlstr:string;
begin
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.Active :=true;
sqlstr:='select * from zll as s where s.ÐÕÃû=edit5.Text';
adoquery1.SQL.Add(sqlstr);
adoquery1.Prepared ;
adoquery1.Parameters.items[0].Value :=edit5.Text ;
adoquery1.Open ;
end;

你的这条SQL得语句有问题
可以这样写
sqlstr:='select * from zll as s where s.ÐÕÃû='+quotedstr(edit5.Text);
这样写试试。

procedure TForm1.Button2Click(Sender: TObject);
var sqlstr:string;
begin
adoquery1.Close ;
adoquery1.SQL.Clear ;
sqlstr:='select * from zll as s where s.ÐÕÃû=edit5.Text';
adoquery1.SQL.Add(sqlstr);
adoquery1.Parameters[0].Value :=edit5.Text ;
adoquery1.Prepared ;
adoquery1.Open ;
end;

procedure TForm1.Button2Click(Sender: TObject);
var sqlstr:string;
begin
adoquery1.Close ;
adoquery1.SQL.Clear ;
adoquery1.Active :=true; //这句得去掉
sqlstr:='select * from zll as s where s.ÐÕÃû=edit5.Text'; //这句不对，改为
//sqlstr:='select * from zll as s where s.ÐÕÃû = '+''''+trim(edit5.Text)+'''';
adoquery1.SQL.Add(sqlstr);
adoquery1.Prepared ;
adoquery1.Parameters.items[0].Value :=edit5.Text ;//这句不要
adoquery1.Open ;
end;
好好看看书，错误太多了。

oh ,我的错了，楼上对。

各位大侠们，可是现在我最大的问题是编译后没错了，但是，查询后，我的DBEDIT控件的值并
没有改变啊

sqlstr:='select * from zll as s where s.ÐÕÃû=edit5.Text';
改为：sqlstr:='select * from zll as s where s.ÐÕÃû='+edit5.Text+'';

接受答案了.