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

delphi中用ADOquery进行查询,在Edit1中输入关键字,然后查询数据库"字段1",结果显示在lable1中,结果为本条记录的'字段2'内容,求代码... delphi中用ADOquery进行查询,在Edit1中输入关键字,然后查询数据库" 字段1",结果显示在 lable1中,结果为本条记录的 '字段2' 内容,求代码 展开
 我来答
洋洋yey
2014-02-02 · TA获得超过231个赞
知道答主
回答量:127
采纳率:0%
帮助的人:71万
展开全部
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;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
none_six
推荐于2016-11-08 · TA获得超过325个赞
知道小有建树答主
回答量:479
采纳率:100%
帮助的人:363万
展开全部
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:='';
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
sunshine_thq
2014-02-03 · 超过47用户采纳过TA的回答
知道小有建树答主
回答量:107
采纳率:0%
帮助的人:97.9万
展开全部
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:='查询不到记录';
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式