2003-04-12 23:00 UTC+0200 Tomaz Zupan <tomaz.zupan@orpo.si>

2003-04-12 20:57:48 +00:00
parent 4609018563
commit d64b06b7aa
2 changed files with 6 additions and 0 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
   2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */

+2003-04-12 23:00 UTC+0200 Tomaz Zupan <tomaz.zupan@orpo.si>
+  * contrib/odbc/todbc.prg
+    ! If recordset is cached, move to first record after fetching
+      recordset to cache
+
 2003-04-09 21:40 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
  * include/hbdbf.h
  * include/hbrddcdx.h
--- a/harbour/contrib/odbc/todbc.prg
+++ b/harbour/contrib/odbc/todbc.prg
@@ -316,6 +316,7 @@ METHOD Open() CLASS TODBC
        END
        
        ::nRecCount := len(::aRecordSet)
+        ::First()
      ENDIF
      
      // Newly opened recordset - we are on first row