74c14c6fa8
* utils/hbmk2/hbmk2.prg
* contrib/hbole/tests/hbole.hbp
* contrib/gtwvg/tests/gtwvg.hbp
* contrib/hbwin/tests/hbwin.hbp
- utils/hbmk2/examples/winapi.hbp
+ Added all important Windows system libs to all
win compilers in hbmk2.
- Removed above libs from .hbp files.
* contrib/hbodbc/todbc.prg
* contrib/hbodbc/browodbc.prg
* contrib/hbodbc/odbc.c
* Further cleanups.
SETNUMLEN() -> SQLNUMSETLEN(). This should probably be a core
function by the name HB_NUMSETLEN().
* contrib/hbole/tests/testole.prg
* contrib/hbole/tests/sample.odt
+ Updated to latest hbole code.
; TOFIX: hbole code doesn't compile with MSVC in default C++
even if #define CINTERFACE 1 is enabled.
; TOFIX: OpenOffice example fails at some point. It probably
needs array support.
* contrib/hbole/olecore.c
* Minor formatting.
* contrib/hbqt/hbqt_qabstractitemview.cpp
! Fixed backslash to forward slash.
* contrib/hbct/tests/ctwtest.prg
* contrib/hbnf/dispmsg.prg
* contrib/hbnf/pegs.prg
* contrib/hbnf/tbwhile.prg
* contrib/hbnf/calendar.prg
* contrib/gtwvg/tests/demowvg.prg
* contrib/examples/terminal/trm_server.prg
* contrib/examples/terminal/trm_client.prg
! Using manifest constants.
* contrib/hbmysql/mysql.c
* contrib/hbodbc/odbc.c
* Minor cleanup.
* contrib/hbodbc/tests/odbcdemo.prg
* contrib/hbodbc/tests/odbccall.prg
* contrib/hbodbc/tests/testodbc.prg
* Minor.
41 lines
804 B
Plaintext
41 lines
804 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#xcommand WITH <oObject> DO => Self := <oObject>
|
|
#xcommand ENDWITH => Self := NIL
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL cConStr
|
|
LOCAL dsFunctions
|
|
|
|
LOCAL Self
|
|
|
|
cConStr := "DBQ=" + hb_FNameMerge( hb_DirBase(), "test.mdb" ) + ";Driver={Microsoft Access Driver (*.mdb)}"
|
|
|
|
dsFunctions := TODBC():New( cConStr )
|
|
|
|
WITH dsFunctions DO
|
|
|
|
::SetSQL( "SELECT * FROM test" )
|
|
::Open()
|
|
? ::FieldByName( "First" ):Value
|
|
? ::Skip()
|
|
? ::FieldByName( "First" ):Value
|
|
? ::GoTo( 1 )
|
|
? ::FieldByName( "First" ):Value
|
|
? ::Prior()
|
|
? ::FieldByName( "First" ):Value
|
|
? ::First()
|
|
? ::FieldByName( "First" ):Value
|
|
? ::Last()
|
|
? ::FieldByName( "First" ):Value
|
|
? ::Close()
|
|
|
|
ENDWITH
|
|
|
|
dsFunctions:Destroy()
|
|
|
|
RETURN
|