Delphi编程时候诡异地出现ORA-00937错误，记录解决它的思路和方法

　　首先需要说明，这个问题的出现需要几个前提：使用微软的Oracle驱动（使用Oracle自己的驱动不会出现这个问题）、使用绑定变量法，使用Format等方式拼接SQL也不会出现这个问题，还有一些诡异的规律我还没有发现原因，将会在文中说明。

　　这个问题是工作中的一个功能模块出现的问题，但是我会在本文中通过一个程序重现这个问题，然后进行分析。

首先给出重现这个问题的简单的程序　　　　　　　　　　

　　首先为了重现这个问题，在程序开发时候配置TADOConnection，必须选择微软的驱动，如下图红框标记的第一个驱动就是微软的Oracle驱动

　　程序打开时候的图形界面如下

　　点击Ms-Format按钮，执行的SQL是使用Format拼接的SQL，这个能够正常执行，显示结果如下

　　但是点击 Ms-绑定变量，执行的是使用绑定变量法的SQL，就会出现异常，如下图

　　具体的代码是下面这样的

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TForm1 = class(TForm)
    con1: TADOConnection;
    btn1: TButton;
    btn2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  adoquery: TADOQuery;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  con1.Open;
  adoquery:= TADOQuery.Create(Application);
  //这样的Create方式，adoquery会在程序关闭的时候销毁
  adoquery.Connection:= con1;
  //这个例子中的adoquery是一个全局变量
end;

procedure TForm1.btn1Click(Sender: TObject);  //这个按钮是使用Format拼接的SQL，然后执行
var
  count: Integer;
  no, name: string;
begin
  adoquery.Close;
  no:= ‘testno‘;
  name:= ‘testname‘;
  adoquery.SQL.Text:= Format(‘select count(*) icount from practice where uno = ‘‘%s‘‘ and uname = ‘‘%s‘‘ ‘, [no, name]);
  try
    //注意因为可能会出现异常，所以最好是在这里捕捉一下异常，保证程序的稳健性
    adoquery.Open;
    adoquery.First;
    count:= adoquery.FieldByname(‘icount‘).AsInteger;
    ShowMessage(‘共有‘ + IntToStr(count) + ‘ 条记录‘);
  except
  on e:Exception do
    ShowMessage(e.Message);
  end;
end;

procedure TForm1.btn2Click(Sender: TObject);   //这个按钮是使用绑定变量的方法的SQL
var
  count: Integer;
  no, name: string;
begin
  adoquery.Close;
  no:= ‘testno‘;
  name:= ‘testname‘;
  adoquery.SQL.Text:= ‘select count(*) icount from practice where uno = :no  and uname = :name‘;
  adoquery.Parameters.ParamByName(‘no‘).Value:= no;
  adoquery.Parameters.ParamByName(‘name‘).Value:= name;
  //注意里面的绑定变量法的使用规范，这样的方式使用微软的Oracle驱动会报错
  //但是使用Oracle自己的驱动是OK的
  try
    //注意因为可能会出现异常，所以最好是在这里捕捉一下异常，保证程序的稳健性
    adoquery.Open;
    adoquery.First;
    count:= adoquery.FieldByName(‘icount‘).AsInteger;
    ShowMessage(‘一共有‘ + IntToStr(count) + ‘ 条记录‘);
  except
  on e:Exception do
    ShowMessage(e.Message);
  end;
end;

end.

然后根据出现的问题去逐步进行理性的分析　　　　　　

首先当然是看这个ORA-00937错误是什么错误

　　在网上搜索了Oracle的错误信息，大概的解释就是下面这样的

select 列表项中除了包含聚合函数（比如count、avg等）外，还包含了表的某些列，那么你将必须使用group by语句，否则语法通不过。

例如这样的SQL：select deptno,job,avg(sal)  from emp;

　　ERROR 位于第 1 行:   ORA-00937: 非单组分组函数

其实这里也非常容易理解，你既然指定了聚合函数，又同时制定了其他列，还想不按照指定的列来分组，你到底想让oracle怎么做呢？

这根本就得不出结果。就像你需要统计班上男女生的人数，但是又不能分组，只能在一条数据里表示出来，怎么能办得到呢？

所以这里的group by是必须的。

上面的错误纠正为： select deptno,job,avg(sal) from emp group by deptno,job;

就OK了

　　既然找到了错误的解释，就可以进行下一步了。

接着是看看使用Format方式拼接的SQL和使用绑定变量法的SQL的具体格式是什么样的

　　当然最先想到的办法就是在程序中加断点，然后看看

　　但是只能看到Format方式拼接的SQL是什么样的，没有办法看到绑定变量法的SQL是什么样的。这时候就没有思路了，就去各种讨论群、论坛中提问，有个人提供了一个很好的思路：可以在Oracle服务器上监视到最近都执行了什么SQL，当然前台程序中进行数据库编程连接Oracle服务器执行的SQL也是可以被记录并且查询到的。

接着就是上网搜索怎么查看Oracle执行SQL的记录

　　v$sql

　　但是还有一个问题，就是在这个表（还是视图）里面只能看到语法正确的SQL，所以出错的SQL是不会被记录的。这个时候又没头绪了，幸好有人给我发了一个链接：ORA-00979: not a GROUP BY expression报错处理，我就想能不能参考人家查找ORA-00979问题的原因的思路来处理我遇到的ORA-00937 问题。不管能不能成功，都要先试一下。

参考别人排查 ORA-00979问题的思路去查找ORA-00937问题的原因