Delphi ADOQuery的问题

来源：百度知道 编辑：UC知道 时间：2024/05/09 05:25:45
我想让Delphi的ADOQuery控件查询一个字段中是否存在某个值，如果存在则返回1，怎么做呢？（我不需要返回其它更多的信息）
谢谢！
请问有没有运行速度快点的方法呢？

adoquery.sql.add('select id from xxx where 字段=xx ');
adoquery.open;
result=adoquery.recordnum;

count（*）下
然后取ADOQuery的返回数值
0就是没有 》=1为有

adoquery.sql.text('select * from xxx ');
adoquery.open;
if adoquery.locate(字段名, 某个值, [loPartialKey]) then
result:= 1;

sqlstr := 'select count(*) as cnt from table where 你的条件';
adoquery1.sql.text := sqlstr;
adoquery1.open;
if adoquery1.fieldbyname('cnt') > 0 then
showmessage('1');

procedure TForm1.Button1Click(Sender: TObject);
var
isExist:Boolean;
begin
ADOQuery1.SQL.Text:='你的SQL语句';
ADOQuery1.Open;
If ADOQuery1.Eof then // 判断查询结果是否为空
begin
isExist:=False; // 变量设为假
end;
end;