fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2001-07-11 13:30 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2001-07-11 09:34:49 +00:00
parent 240d72786a
commit 2abb9b2aed
2 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2001-07-11 13:30 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* 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 <dholm@jsd-llc.com>
* doc/en/gtslang.txt

4
harbour/contrib/rdd_ads/adsfunc.c
View File

@@ -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