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

Bugfix: 'stop on errors when executing sql batch' got broken in revision 667.

Browse Source
This commit is contained in:
rosenfield
2007-07-12 09:47:38 +00:00
parent 37f0b45363
commit 2c0caa154d
1 changed files with 2 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
source/childwin.pas
View File

@ -2846,7 +2846,7 @@ begin
try try
if ( ExpectResultSet( SQL[i] ) ) then if ( ExpectResultSet( SQL[i] ) ) then
begin begin
ds := GetResults( SQL[i] ); ds := GetResults( SQL[i], false, false );
gridQuery.DataSource.DataSet := ds; gridQuery.DataSource.DataSet := ds;
if ( ds.Active ) then if ( ds.Active ) then
begin begin
@ -2862,7 +2862,7 @@ begin
end end
else else
begin begin
rowsaffected := rowsaffected + ExecUpdateQuery( SQL[i] ); rowsaffected := rowsaffected + ExecUpdateQuery( SQL[i], false, false );
fieldcount := 0; fieldcount := 0;
recordcount := 0; recordcount := 0;
end; end;
@ -2875,16 +2875,11 @@ begin
) then ) then
begin begin
Screen.Cursor := crDefault; Screen.Cursor := crDefault;
LogSQL( E.Message, true );
MessageDlg( E.Message, mtError, [mbOK], 0 ); MessageDlg( E.Message, mtError, [mbOK], 0 );
ProgressBarQuery.Hide(); ProgressBarQuery.Hide();
Mainform.ExecuteQuery.Enabled := true; Mainform.ExecuteQuery.Enabled := true;
Mainform.ExecuteSelection.Enabled := true; Mainform.ExecuteSelection.Enabled := true;
Break; Break;
end
else
begin
LogSQL( E.Message, true );
end; end;
end; end;
end; end;