简单问题---adoquery--怎么得到要查询得值并付给edit？马上结贴

[famousun]

如题

[lovelymelon]

s:=form28.TreeView1.Selected.Text;
form1.ADOQuery1.Close;
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add('select * from yhqxb where bm=:s1');
form1.ADOQuery1.Parameters.ParamByName('s1').Value:=s;
form1.ADOQuery1.Open;
if form1.ADOQuery1.RecordCount=1 then
edit1.text:=form1.ADOQuery1.fieldvalues['xm'];

[lion_lh]

edit1.text:=ADOQuery1.fieldbyname('字段名').asstring;

[tw829]

来晚了
s:=form28.TreeView1.Selected.Text;
form1.ADOQuery1.Close;
form1.ADOQuery1.SQL.Clear;
form1.ADOQuery1.SQL.Add('select * from yhqxb where bm=:s1');
form1.ADOQuery1.Parameters.ParamByName('s1').Value:=s;
form1.ADOQuery1.Open;
if form1.ADOQuery1.RecordCount=1 then
edit1.text:=form1.ADOQuery1.fieldvalues['xm'];
+
edit1.text:=ADOQuery1.fieldbyname('字段名').asstring;

+ with frm_db.ADOQ_ORACLE do
begin
close;
sql.Clear;
sql.Add('select distinct(tname) from col');
open;
frm_progress.progressbar1.Max:=RecordCount;
while not eof do
begin
frm_progress.progressbar1.Position:=frm_progress.progressbar1.Position+1;
frm_progress.Caption:='正在构建表'+fields[0].AsString;
ltrn_table:=treeview1.Items.AddChild(tablenode,fields[0].AsString);
ltrn_table.ImageIndex:=3;
next;
end;
end;