opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Export output file may be in use by another application. Catch such exceptions and stop the whole export loop. See http://www.heidisql.com/forum.php?t=6850

Browse Source
This commit is contained in:
Ansgar Becker
2010-11-13 20:37:46 +00:00
parent 910975aa40
commit a8ce8cd7fa
1 changed files with 17 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/tabletools.pas
View File

@ -440,6 +440,7 @@ var
Triggers, Views: TDBObjectList;
DBObj: PDBObject;
i: Integer;
ExitLoop: Boolean;
procedure ProcessNode(DBObj: TDBObject);
begin
@ -450,11 +451,18 @@ var
tmSQLExport: DoExport(DBObj);
tmBulkTableEdit: DoBulkTableEdit(DBObj);
end;
except on E:EDatabaseError do
except
on E:EDatabaseError do begin
// The above SQL can easily throw an exception, e.g. if a table is corrupted.
// In such cases we create a dummy row, including the error message
AddNotes(DBObj.Database, DBObj.Name, 'error', E.Message)
end;
on E:EFCreateError do begin
// Occurs when export output file can not be created
MessageDlg(E.Message, mtError, [mbOK], 0);
ExitLoop := True;
end;
end;
end;
begin
@ -474,6 +482,7 @@ begin
Views := TDBObjectList.Create(False);
TreeObjects.SetFocus;
FHeaderCreated := False;
ExitLoop := False;
SessionNode := TreeObjects.GetFirstChild(nil);
while Assigned(SessionNode) do begin
DBNode := TreeObjects.GetFirstChild(SessionNode);
@ -490,9 +499,12 @@ begin
if (FToolMode = tmSQLExport) and (DBObj.NodeType = lntTrigger) then
Triggers.Add(DBObj^)
else begin
ProcessNode(DBObj^);
// File creation exceptions should stop the whole loop here
if ExitLoop then
Break;
if (FToolMode = tmSQLExport) and (DBObj.NodeType = lntView) then
Views.Add(DBObj^);
ProcessNode(DBObj^);
end;
end;
TableNode := TreeObjects.GetNextSibling(TableNode);