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

* Fix for error-handling when a TSQLQuery is opened.

Browse Source 
git-svn-id: trunk@2662 -
This commit is contained in:
joost 2006-02-21 14:29:30 +00:00
parent 619541d0cc
commit f1fc3a316d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fcl/db/sqldb/sqldb.pp
View File

@ -725,7 +725,8 @@ end;
procedure TSQLQuery.InternalClose;
begin
if StatementType = stSelect then FreeFldBuffers;
if not IsPrepared then (database as TSQLconnection).UnPrepareStatement(FCursor);
// Database and FCursor could be nil, for example if the database is not assigned, and .open is called
if (not IsPrepared) and (assigned(database)) and (assigned(FCursor)) then (database as TSQLconnection).UnPrepareStatement(FCursor);
if DefaultFields then
DestroyFields;
FIsEOF := False;