Delphi使用ADO执行SQL时报错：ORA-00937: not a single-group group function

2015-08-25 05:11:57 411 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi开发实战：从入门到股票交易系统开发 Delphi作为经典的RAD（快速应用程序开发）工具，基于Object Pascal语言，以其高效的开发能力和稳定的性能在企业级应用开发中占据重要地位。其核心原理在于可视化组件库（VCL）和强大的数据库支持，使得开发者能够快速构建Windows桌面应用。在技术价值方面，Delphi特别适合需要快速迭代的数据库应用和图形处理项目，如股票自动交易系统等金融软件。通过第三方组件如Graphics32和CnPack的扩展，Delphi能够应对更复杂的应用场景。本文通过实际案例，详细解析了Delphi在数据库处理、图阅读详情

Delphi使用ADO进行数据库编程时，执行SQL会报错，下面是详细的说明
有三种方式拼接SQL
**方式1会报错**：ORA-00937: not a single-group group function
adoquery.Close;
adoquery.SQL.Text := 'select count(*) icount from testtable where testno = :no and testname = :name ';
adoquery.Parameters.ParamByName('no').Value := Number;
adoquery.Parameters.ParamByName('name').Value := Name;
adoquery.Open;
adoquery.First;
Result := adoquery.FieldByName('icount').AsInteger ;
**方式2可以执行**
adoquery.Close;
adoquery.SQL.Text := Format('select count(*) icount from testtable where testno = ''%s'' and testname = ''%s'' ', [Number, Name]);
adoquery.Open;
adoquery.First;
Result := adoquery.FieldByName('icount').AsInteger ;
**方式3可以执行**
adoquery.Close;
adoquery.SQL.Text := 'select * from ( select count(*) from testtable where testno = :no and testname = :name )';
adoquery.Parameters.ParamByName('no').Value := Number;
adoquery.Parameters.ParamByName('name').Value := Name;
adoquery.Open;
adoquery.First;
Result := adoquery.Fields[0].AsVariant
补充说明：
第一种报错的SQL方式是在MSDAORA.1驱动下报错，但是使用OraOLEDB.Oracle.1驱动可以
到底是为什么

...全文