Детализация ошибок SQL

Tango600 · Oct 24, 2022 · 960ae40 · 960ae40
1 parent bee1cc9
commit 960ae40
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/DCLPlatform/uUDL.pas b/DCLPlatform/uUDL.pas
@@ -7983,7 +7983,8 @@ procedure TDCLCommand.ExecSQLCommand(SQLCommand: String; InContext: Boolean);
         ADOCommand.Open;
         {$ENDIF}
     Except
-      ShowErrorMessage( - 1110, 'SQL='+SQLCommand);
+      On ex: Exception do
+        ShowErrorMessage( - 1110, 'SQL='+SQLCommand+' / '+ex.Message);
     end;
     {$IFDEF TRANSACTIONDB}
     tmp_Transaction.Commit;