【结贴】Tquery的问题

huixiangtao

如下图所示：是出现的错误，
代码是这么写的：
Query1.Close;
  Query1.ConnectionString:='DATABASEURL=Biz:KHXTKHSJK.Database';
   Query1.CommandText:='select avg(ZZDF) from ZGPJB';
  Query1.Execute;
  Query1.Open;
  dialogs.ShowMessage(Query1.FieldByName('avg(ZZDF)').AsString);
难道不能取平均?错误出现在Query1.Open;这一句上。

shangxy

平均值小数位数太多了，你看看能不能在sql语句中使用一下round函数截取一下小数位数。

jiahaiming

在avg(zzdf)外，再加个四舍五入函数试试

amao800613

应该把query.execute去掉；而且最后一行代码写的有问题。要么用lquery1.fields[0].asstring ；要么改一下前面的SQL语句，给SUM(ZZDF)一个别名，然后用这个别名。delphi好像没你这么写的。

huixiangtao

已解决，方法如下。谢谢，结贴。
Query1.Close;
  Query1.ConnectionString:='DATABASEURL=Biz:\KHXT\KHSJK.Database';
  Query1.CommandText:='select  round(AVG(ZZDF),3) as zd1 from ZGPJB ';
  Query1.Execute;
  Query1.Open;
  DataEdit15.Text:=sysutils.floatToStr(Query1.FieldByName('zd1').AsFloat);