In ZDbcMySQLStatement I found that
Code: Select all
TZMySQLStatement.ExecuteQuery
....
Result := CreateResultSet(SQL); //Yeah, ok but the last one plz!! ;)
Moderators: gto, cipto_kh, EgonHugeist
Code: Select all
TZMySQLStatement.ExecuteQuery
....
Result := CreateResultSet(SQL); //Yeah, ok but the last one plz!! ;)
Code: Select all
procedure TZMySQLResultSet.Close;
begin
if FQueryHandle <> nil then begin
FPlainDriver.FreeResult(FQueryHandle);
while FPlainDriver.RetrieveNextRowset( FHandle) = 0 do begin
FQueryHandle := FPlainDriver.StoreResult(FHandle);
if Assigned(FQueryHandle) then
FPlainDriver.FreeResult(FQueryHandle);
end;
end;
FQueryHandle := nil;
FRowHandle := nil;
inherited Close;
end;