opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 18:12:05 +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
if ( ExpectResultSet( SQL[i] ) ) then
begin
ds := GetResults( SQL[i] );
ds := GetResults( SQL[i], false, false );
gridQuery.DataSource.DataSet := ds;
if ( ds.Active ) then
begin
@ -2862,7 +2862,7 @@ begin
end
else
begin
rowsaffected := rowsaffected + ExecUpdateQuery( SQL[i] );
rowsaffected := rowsaffected + ExecUpdateQuery( SQL[i], false, false );
fieldcount := 0;
recordcount := 0;
end;
@ -2875,16 +2875,11 @@ begin
) then
begin
Screen.Cursor := crDefault;
LogSQL( E.Message, true );
MessageDlg( E.Message, mtError, [mbOK], 0 );
ProgressBarQuery.Hide();
Mainform.ExecuteQuery.Enabled := true;
Mainform.ExecuteSelection.Enabled := true;
Break;
end
else
begin
LogSQL( E.Message, true );
end;
end;
end;