paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:46:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Catch case where status>0 for mysql_next_result (bug ID 30551)

Browse Source 
git-svn-id: trunk@37862 -
This commit is contained in:
michael 2017-12-29 13:11:08 +00:00
parent 97b3c0b00a
commit 7b46b3d35e
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
View File

@ -621,6 +621,7 @@ Var
i : integer; i : integer;
ParamNames,ParamValues : array of string; ParamNames,ParamValues : array of string;
Res: PMYSQL_RES; Res: PMYSQL_RES;
Status : Integer;
begin begin
C:=Cursor as TCursorName; C:=Cursor as TCursorName;
@ -682,7 +683,20 @@ begin
C.FRes:=Res; C.FRes:=Res;
C.FSelectable:=True; C.FSelectable:=True;
end; end;
until mysql_next_result(FMySQL)<>0; Status:=mysql_next_result(FMySQL);
if (Status>0) then
begin
if not ForcedClose then
MySQLError(FMySQL, SErrGettingResult, Self)
else
begin
C.RowsAffected:=0;
C.FSelectable:= False;
C.FRes:=nil;
break;
end;
end;
until (Status<>0);
end; end;
end; end;
end; end;