delphi查询数据库怎么返回一个结果？？？？？？？？？？？？？

Question

qry1.Fields[0].Value ，这个也只能返回一个字段的值啊？

Answer 1

你的SQL语句，不就只有一个字段吗？而且有也仅有一条记录。

Answer 2

select count(*) as a from tableName

Answer 3

select count(*) as count from tableName
变量名：=query1.fieldbyname('count').asinteger虽然这个问题简单得很多高手觉着不值一提，
但俺也是初入门者，俺知道像俺们这样的新手需要
什么样的帮助，所以俺在这里将俺所知道的贴出来。
goldtogo：希望咱们能其同进步！

Answer 4

function FillStrings(mStrings:Array of TStrings):Boolean;
var
  i:integer;
begin
  Result:=False;
  with TQUERY.Create(nil) do
  try
    if Active then Close;
    SQL.Text:='select NVL(field1,'NULL'),NVL(field2,'NULL'),... from table1';
    Open;
    First;
    while not eof do
    begin
     for i:=0 to high(mStrings) do
       mStrings[i].add(Fields[i].AsString);
//若原类型不是字符型会自动转化为字符型，但“空”的数字型转化时会出异常
//因此应在SQL语句中对空值作处理(转化为字符串“NULL”)。
     Next;
    end;
    Close;
  Finally
    Free;
  end;
end;