delphi+mysql统计单列明码和

delphi+mysql统计单列价格和


[解决办法]

procedure TForm1.leijiajg2; 
var s:integer; 
begin
  with DataModule2.adoquery1 do
  begin
    close; 
    sql.Clear; 
    sql.Add('SELECT sum( `age` ) FROM `xdf_list`')    ; 
    open; 
    s:=Fields[0].AsInteger;
    showmessage(inttostr(s));
  end; 
end;

procedure TForm1.leijiajg2; 
var s:integer; 
begin
  with DataModule2.adoquery1 do
  begin
    close; 
    sql.Clear; 
    sql.Add('SELECT sum( `age` ) ageSum FROM `xdf_list`')    ; 
    open; 
    s:=FieldByName('ageSum').AsInteger;
    Close;
    showmessage(inttostr(s));
  end; 
end;