9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
26 lines
706 B
Plaintext
26 lines
706 B
Plaintext
|
|
#require "hbodbc"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL dsFunctions := TODBC():New( "DBQ=" + hb_FNameMerge( hb_DirBase(), "test.mdb" ) + ";Driver={Microsoft Access Driver (*.mdb)}" )
|
|
|
|
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
|