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

Export views not at the *very* end of an SQL export, but at the end of one selected database. Important when user selects items from more than one database. Fixes issue #1887.

Browse Source
This commit is contained in:
Ansgar Becker
2010-04-23 20:38:41 +00:00
parent 65bf7f09a1
commit 764388b89c
1 changed files with 12 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
source/tabletools.pas
View File

@ -455,6 +455,7 @@ begin
DBNode := TreeObjects.GetFirstChild(TreeObjects.GetFirst);
while Assigned(DBNode) do begin
if not (DBNode.CheckState in [csUncheckedNormal, csUncheckedPressed]) then begin
Views.Clear;
TableNode := TreeObjects.GetFirstChild(DBNode);
while Assigned(TableNode) do begin
if (csCheckedNormal in [TableNode.CheckState, DBNode.CheckState]) and (TableNode.CheckType <> ctNone) then begin
@ -483,19 +484,20 @@ begin
end;
end;
TableNode := TreeObjects.GetNextSibling(TableNode);
end; // End of db object node loop in db
// Special block for late created views in export mode
for i:=0 to Views.Count-1 do begin
try
ProcessNodeFunc(Views[i]);
except on E:Exception do
AddNotes(Views[i].Database, Views[i].Name, 'error', E.Message);
end;
end;
end;
DBNode := TreeObjects.GetNextSibling(DBNode);
end;
// Special block for late created views in export mode
for i:=0 to Views.Count-1 do begin
try
ProcessNodeFunc(Views[i]);
except on E:Exception do
AddNotes(Views[i].Database, Views[i].Name, 'error', E.Message);
end;
end;
end; // End of db item loop
if Assigned(ExportStream) then begin
if (comboExportOutputType.Text = OUTPUT_FILE) or (comboExportOutputType.Text = OUTPUT_CLIPBOARD) then