求助！如何将查询结果赋给变量？

Question

现有程序
a:integer;
.....
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select count(*) from test where num=1');
query1.Prepare;
query1.ExecSQL;如何将此统计结果赋给一个整型变量？

Answer 1

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select count(*) as mm from test where num=1');
query1.Prepare;
query1.open;
a:=strtoint(query1.fieldbyname('mm').value);

Answer 2

[Error] unit1.pas(73): Undeclared identifier: 'FieldByName'
[Error] unit1.pas(73): ')' expected but identifier 'value' found

Answer 3

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select count(*) as mm from test where num=1');
query1.open;
        try a:=strtoint(query1.fieldbyname('mm'));
        except showmessage('出错');
        end;
query1.Close;

Answer 4

如果结果为NULL时会出错,此时把
except showmessage('出错');
处理成 a:=0
也就是说:
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select count(*) as mm from test where num=1');
query1.open;
        try a:=strtoint(query1.fieldbyname('mm'));
        except a:=0;
        end;
query1.Close;

Answer 5

query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select count(*) as mm from test where num=1');
query1.open;
if not query1.isempty then a:=strtoint(query1.fieldbyname('mm'));
else a:= 0;
query1.Close
可以不用异常的话，还是不要触发异常的好！

Answer 6

上面那可以换成
a:=query1.fieldbyname('mm').asinteger;

Answer 7

也可以这样：
var
  num: Integer;
begin
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('select * from test where num=1');
  query1.open;
  num := query1.RecordCount;  //就是这个了
  query1.Close
end;