From 8d32a1fd0c3f95ec577a5d1555ccd85966fa9a85 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 22 Dec 2009 14:16:54 +0000
Subject: [PATCH] Raise with a more detailed exception message, to debug issue
 #1540.

---
 source/usermanager.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/source/usermanager.pas b/source/usermanager.pas
index e772524b..2972f0e5 100644
--- a/source/usermanager.pas
+++ b/source/usermanager.pas
@@ -1735,7 +1735,13 @@ begin
   end;
   if Fields.ColExists('Db') then begin
     DBOType := lntDb;
-    DBONames.Add(Fields.Col('Db'));
+    try
+      DBONames.Add(Fields.Col('Db'));
+    except
+      on E:Exception do begin
+        raise Exception.Create(E.Message+CRLF+CRLF+'Fields.ColumnNames: '+Fields.ColumnNames.CommaText);
+      end;
+    end;
   end;
   if Fields.ColExists('Table_name') then begin
     DBOType := lntTable;