Question

delphi中用ADOquery进行查询，详细进来看

delphi中用ADOquery进行查询，在Edit1中输入关键字，然后查询数据库" 字段1"，结果显示在 lable1中，结果为本条记录的 '字段2' 内容，求代码

Answer 1

begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.text:='select 字段2 from onetable where 字段一 like %'+edit1.text+'%';
adoquery1.open;
if ADOqueryt.RecordCount<=0 then
begin
label1.caption:=ADOQuery.FieldByName('字段2').AsString;
end
else
begin
label1.caption:='';
end;
end;

Answer 2

ADOquery.Close;
ADOquery.SQL.Clear;
ADOquery.SQL.Add('select * from table where 字段1='+''''+Edit1.text+'''');
ADOquery.Open;

if ADOqueryt.RecordCount<=0 then
label1.caption:=ADOQuery.FieldByName('字段2').AsString
else
label1.caption:='';

Answer 3

ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('select * from table where 字段1='+QuotedStr(trim(edit1.text)));
ADOquery1.Open;

if ADOquery1.RecordCount>0 then
label1.caption:=ADOQuery1.FieldByName('字段2').AsString
else
label1.caption:='查询不到记录';