From 2abb9b2aed60c1bba39632f25e3bdc0817627c7a Mon Sep 17 00:00:00 2001 From: "Alexander S.Kresin" Date: Wed, 11 Jul 2001 09:34:49 +0000 Subject: [PATCH] 2001-07-11 13:30 GMT+3 Alexander Kresin --- harbour/ChangeLog | 5 +++++ harbour/contrib/rdd_ads/adsfunc.c | 4 ++++ 2 files changed, 9 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index bbbcd32469..74b2f20f73 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +2001-07-11 13:30 GMT+3 Alexander Kresin + * contrib/rdd_ads/adsfunc.c + * adsExecuteSqlDirect() and adsExecuteSql() are fixed for the occasions, + when query doesn't returns cursor. + 2001-07-10 12:30 UTC-0400 David G. Holm * doc/en/gtslang.txt diff --git a/harbour/contrib/rdd_ads/adsfunc.c b/harbour/contrib/rdd_ads/adsfunc.c index 3a6c567e8b..e106ea901e 100644 --- a/harbour/contrib/rdd_ads/adsfunc.c +++ b/harbour/contrib/rdd_ads/adsfunc.c @@ -815,6 +815,8 @@ HB_FUNC( ADSEXECUTESQLDIRECT ) pArea->hTable = hCursor; SELF_OPEN( ( AREAP ) pArea, &pInfo ); } + else + adsCloseCursor( pArea ); hb_retl( 1 ); } else @@ -867,6 +869,8 @@ HB_FUNC( ADSEXECUTESQL ) pArea->hTable = hCursor; SELF_OPEN( ( AREAP ) pArea, &pInfo ); } + else + adsCloseCursor( pArea ); hb_retl( 1 ); } else