从 FireDAC 调试器通知中获取异常文本

Question

我正在尝试捕获调试器通知文本，Firedac 连接

//FDScript1.SQLScripts.Add.SQL.LoadFromFile('C:\SGI\Rodar_Apos_Atualizar_3.txt');
//FDScript1.ValidateAll;
//FDScript1.ExecuteAll;
//MSScript1.SQL.LoadFromFile('C:\SGI\Rodar_Apos_Atualizar_3.txt');
//MSScript1.Execute;
try
  FDConnection1.Connected := True;
  FDScript1.SQLScripts.Add.SQL.LoadFromFile('C:\SGI\Rodar_Apos_Atualizar_3.txt');
  FDScript1.ExecuteAll;
  FDScript1.ValidateAll;
except
//EMSSQLNativeException
  on E: EMSSQLNativeException do
  begin
    //ShowMessage('Erro'+FDGUIxErrorDialog1.ErrorDialog.Caption);

    //Memo1.Clear;
    Memo1.Text := 'Erro de Sistema: '+#13#10+ E.Message;
  end;
end;

Answer 1

如果您能向我们展示您尝试执行的脚本，那真的会有所帮助， 或者至少是没有正确执行的脚本。无论如何，您的代码是错误的 因为documentation 状态

最好在 ExecuteAll 方法之前调用 ValidateAll 方法。

注意“之前”。你的ValidateAll 在ExecuteAll 之后，而不是之前。两者都是布尔值 函数，但你没有检查它们的结果，你应该这样做。

通过一些简单的实验，我发现我可以引发 EMSSQLNativeException 使用带有以下代码的 SqlServer 2014：

procedure TForm2.Button1Click(Sender: TObject);
const
  sScript = 'select m.*, d.* from master m join detail d on, m.masterid = d.masterid';
var
  FDScript : TFDSqlScript;
begin

  try
    FDConnection1.Connected := True;
    FDScript := FDScript1.SQLScripts.Add;
    FDScript.SQL.Text := sScript;
    //FDScript1.ExecuteAll;
    //FDScript1.ValidateAll;
    // FDScript1.ValidateAll then
      //FDScript1.ExecuteAll;

    FDQuery1.SQL.Text := sScript;
    FDQuery1.Open();
  except
  //EMSSQLNativeException
    on E: EMSSQLNativeException do
    begin
      //ShowMessage('Erro'+FDGUIxErrorDialog1.ErrorDialog.Caption);

      //Memo1.Clear;
      Memo1.Text := 'Erro de Sistema: '+#13#10+ E.Message;
    end;
  end;
end;

注意Sql语句中明显错误的语法，即on后面的逗号。

当调用FDQuery1.Open 时，会引发此异常（并最初被调试器捕获）

---------------------------
Debugger Exception Notification
---------------------------
Project sqlerror.exe raised exception class EMSSQLNativeException with message '[FireDAC][Phys][ODBC][Microsoft][SQL Server Native Client 11.0][SQL Server]Incorrect syntax near 'd'.'.
---------------------------
Break   Continue   Help
---------------------------

当我单击继续时，执行将进入您的异常处理程序，正如 @TomBrunberg 在评论中描述的那样 并将异常的消息文本插入到 Memo1 中。

因此，我无法根据您问题中的信息重现您描述的行为。它 一定是由您没有告诉我们的事情引起的，可能在您拥有的代码中 未包含在您的 q 或您所在组件的某些属性设置中 使用。

希望，尝试上面的代码，你会发现调试器的行为和我一样 已经描述了，这可能会给你一些线索，说明你为什么会得到 你描述的问题。请注意，尝试代码非常重要 上面是一个新项目，而不是您现有的项目。唯一的属性设置 在执行它之前你需要做的是设置 FDConnection1 以便它可以连接 到您的服务器。

FWIW，如果我取消注释掉这些行

    FDScript1.ValidateAll then
      FDScript1.ExecuteAll;

他们毫无怨言地执行，我得到的行为与我在没有他们的情况下描述的完全相同。