00c09ce91f
* src/debug/debugger.prg
* contrib/hbodbc/tests/odbccall.prg
* contrib/hbblat/tests/blattest.prg
* contrib/hbgd/gd.prg
* contrib/hbtip/tests/tipmail.prg
* examples/rddado/adordd.prg
* examples/httpsrv/cgifunc.prg
* Eliminated using WITH OBJECT.
% Some optimizations, little fixes.
* tests/omacro.prg
* Formatting.
34 lines
782 B
Plaintext
34 lines
782 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#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
|