paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 13:49:17 +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; procedure TSQLQuery.InternalClose;
begin begin
if StatementType = stSelect then FreeFldBuffers; 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 if DefaultFields then
DestroyFields; DestroyFields;
FIsEOF := False; FIsEOF := False;