Question

我正在使用Datasnap.DBClient从我的Delphi应用程序访问SQL Server数据库。

我有一个记录器，记录我的应用程序中的每个异常，但我发现SQL异常消息真的没有问题。

示例：当我在Delphi中捕获SQL异常时，我收到的消息是：

EOleException：SQL状态：42S22，SQL错误代码：207

如果我在SQL事件探查器中打开一条跟踪，我会收到两条消息：

第一个例外与应用显示的消息相同：

异常：错误：207，严重性：16，状态：1

第二个是：

用户错误消息：无效的列名称“Column1”

是否有可能从我的Delphi app中的catched Exception中获取 UserErrorMessage ？

Answer 1

我不确定您使用的是Ado还是DBExpress，但如果是DBExpress，您可能无法提出问题（请参阅下面的更新）。

TAdoConnection有一个Errors对象（请参阅AdoInt.Pas中的定义）。至调查一下，我在定义为

的服务器上使用了存储过程

create PROCEDURE [dbo].[spRaiseError](@AnError int)
AS
BEGIN
  declare @Msg Char(20)
  if @AnError > 0
    begin
      Select @Msg = 'MyError ' + convert(Char(8), @AnError)
      RaisError(@Msg, 16, -1)
    end
  else
    select 1
END

然后，在我的Delphi代码中，我有类似的东西：

uses [...] AdoInt, AdoDB, [...]

procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
  IErrors : Errors;
  IError : Error;
  ErrorCount : Integer;
  i : Integer;
begin
  S := 'exec spRaiseError ' + Edit1.Text;
  AdoQuery1.SQL.Text := S;
  try
    AdoQuery1.Open;
  except
    IErrors := AdoConnection1.Errors;
    ErrorCount := IErrors.Count;
    for i := 0 to ErrorCount - 1 do begin
      IError := IErrors.Item[i];
      S := Format('error: %d, source: %s description: %s', [i, IError.Source, IError.Description]);
      Memo1.Lines.Add(S);
    end;
    Caption := IntToStr(ErrorCount);
  end;
end;

如果您尝试一下，您应该找到Errors集合的内容是累积的，所以它应该捕获你所追求的第二条消息。但是，当你说你正在使用＆＃34; Datasnap dbclient＆＃34;：＆＃34; DBClient＆＃34;时，我并不完全确定你的意思。是声明TClientDataSet的单元，但您可能正在使用ADO或DBExpress。我不确定DBX Sql Server驱动程序是否与AdoConnections Errors集合有任何对应关系，您可以通过使用DBX组件获得该驱动程序。

更新使用上面的代码，如果我做了一个故意引用不存在的列的SELECT，那么我会在Memo1中得到这个：

错误：0，来源：用于SQL Server的Microsoft OLE DB提供程序说明：无效的列名称＆＃39; aname＆＃39;。

，但它不会报告你得到的错误207。

如果我在DBX项目中执行相同的SELECT并在打开连接到SqlQuery的ClientDataSet时捕获异常，如下所示：

procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
begin
  S := 'select id, aname from atable';
  ClientDataSet1.CommandText := S;
  try
    ClientDataSet1.Open;
  except
    Memo1.Lines.Add(Exception(ExceptObject).Message);
  end;
end;

我明白了

SQL状态：42000，SQL错误代码：8180 声明无法准备。 SQL状态：42S22，SQL错误代码：207 列名称无效＆＃39; aname＆＃39;。

在某些方面更具信息性。同时，您的日志记录功能会记录下来：

Fecha: 2017-02-03 18:44:02
Sesion: {2E7176CB-56FD-41C4-BE67-7B9E1D3486B4}
Proyecto: dbxerrors.exe
Aplicación:    
Ruta: D:\aaad7\Ado\
Usuario: ???
Error: SQL State: 42000, SQL Error Code: 8180
Statement(s) could not be prepared.
SQL State: 42S22, SQL Error Code: 207
Invalid column name 'aname'.

Exception EDatabaseError: SQL State: 42000, SQL Error Code: 8180
Statement(s) could not be prepared.
SQL State: 42S22, SQL Error Code: 207
Invalid column name 'aname'.

    Exception 
    UnitName : 
    Procedure : 
    Line : 0
    BinaryFileName : 


Fecha: 2017-02-03 18:44:02
Sesion: {2E7176CB-56FD-41C4-BE67-7B9E1D3486B4}
Proyecto: dbxerrors.exe
Aplicación:    
Ruta: D:\aaad7\Ado\
Usuario: ???
Error: SQL State: 42000, SQL Error Code: 8180
Statement(s) could not be prepared.
SQL State: 42S22, SQL Error Code: 207
Invalid column name 'aname'
Exception EOleException: SQL State: 42000, SQL Error Code: 8180
Statement(s) could not be prepared.
SQL State: 42S22, SQL Error Code: 207
Invalid column name 'aname'
    Exception 
    UnitName : 
    Procedure : 
    Line : 0
    BinaryFileName :

如果有帮助，这是我的测试项目的部分摘录

  object SQLConnection1: TSQLConnection
    ConnectionName = 'MSSQLConnection'
    DriverName = 'MSSQL'
    GetDriverFunc = 'getSQLDriverMSSQL'
    LibraryName = 'dbexpmss.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=MSSQL'
      'HostName=MAT410\ss2014'
      'DataBase=MATest'
      'User_Name=sa'
      'Password=sa'
      'BlobSize=-1'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'MSSQL TransIsolation=ReadCommited'
      'OS Authentication=False')
    VendorLib = 'oledb'
    Left = 40
    Top = 32
  end
  object SQLQuery1: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = SQLConnection1
    Left = 88
    Top = 32
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = SQLQuery1
    Options = [poAllowCommandText]
    Left = 136
    Top = 32
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 184
    Top = 32
  end

正如您所看到的，它非常简约。 Delphi版本是Win7 64位上的D7，服务器是Sql Server 2014。

在Delphi异常中获取MS SQL Server异常用户消息

1 个答案: