* Check against operation on unopend statement, patch from Lacak2 Mantis #19943

git-svn-id: trunk@18949 -
This commit is contained in:
marco 2011-09-02 19:05:24 +00:00
parent db7192c897
commit 3383db43cd

View File

@ -615,6 +615,7 @@ procedure TIBConnection.UnPrepareStatement(cursor : TSQLCursor);
begin
with cursor as TIBcursor do
if assigned(Statement) Then
begin
if isc_dsql_free_statement(@Status[0], @Statement, DSQL_Drop) <> 0 then
CheckError('FreeStatement', Status);