delphi中用ADOquery进行查询,详细进来看
delphi中用ADOquery进行查询,在Edit1中输入关键字,然后查询数据库"字段1",结果显示在lable1中,结果为本条记录的'字段2'内容,求代码...
delphi中用ADOquery进行查询,在Edit1中输入关键字,然后查询数据库" 字段1",结果显示在 lable1中,结果为本条记录的 '字段2' 内容,求代码
展开
3个回答
展开全部
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;
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;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
ZESTRON
2024-09-04 广告
2024-09-04 广告
在Dr. O.K. Wack Chemie GmbH,我们高度重视ZESTRON的表界面分析技术。该技术通过深入研究材料表面与界面的性质,为提升产品质量与可靠性提供了有力支持。ZESTRON的表界面分析不仅涵盖了相变化、化学反应、吸附与解吸...
点击进入详情页
本回答由ZESTRON提供
展开全部
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:='';
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:='';
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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:='查询不到记录';
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:='查询不到记录';
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询