Question

Delphi ADOQuery的问题

我想让Delphi的ADOQuery控件查询一个字段中是否存在某个值，如果存在则返回1，怎么做呢？（我不需要返回其它更多的信息）
谢谢！
请问有没有运行速度快点的方法呢？

Answer 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;

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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