/*
 * $Id: odbccall.prg 15920 2010-12-08 20:54:55Z vszakats $
 */

#include "simpleio.ch"

PROCEDURE Main()

   LOCAL cConStr
   LOCAL dsFunctions

   cConStr := "DBQ=" + hb_FNameMerge( hb_DirBase(), "test.mdb" ) + ";Driver={Microsoft Access Driver (*.mdb)}"

   dsFunctions := TODBC():New( cConStr )

   dsFunctions:SetSQL( "SELECT * FROM test" )
   dsFunctions:Open()
   ? dsFunctions:FieldByName( "First" ):Value
   ? dsFunctions:Skip()
   ? dsFunctions:FieldByName( "First" ):Value
   ? dsFunctions:GoTo( 1 )
   ? dsFunctions:FieldByName( "First" ):Value
   ? dsFunctions:Prior()
   ? dsFunctions:FieldByName( "First" ):Value
   ? dsFunctions:First()
   ? dsFunctions:FieldByName( "First" ):Value
   ? dsFunctions:Last()
   ? dsFunctions:FieldByName( "First" ):Value
   ? dsFunctions:Close()

   dsFunctions:Destroy()

   RETURN
