opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Raise with a more detailed exception message, to debug issue #1540.

Browse Source
This commit is contained in:
Ansgar Becker
2009-12-22 14:16:54 +00:00
parent 9d722e2f07
commit 8d32a1fd0c
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/usermanager.pas
View File

@@ -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;