1b8c78f30b
* contrib/sddodbc/tests/test1.prg
! Fixed relative path to test.mdb after recent relocation.
Still doesn't work though:
---
Connect: 1
Error SQLBASE/1901 Not connected
Called from DBUSEAREA(0)
Called from MAIN(14)
---
25 lines
559 B
Plaintext
25 lines
559 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "simpleio.ch"
|
|
#include "hbrddsql.ch"
|
|
|
|
REQUEST SDDODBC, SQLMIX
|
|
|
|
PROC main()
|
|
RDDSETDEFAULT( "SQLMIX" )
|
|
SET( _SET_DATEFORMAT, "yyyy-mm-dd" )
|
|
? "Connect:", RDDINFO( RDDI_CONNECT, { "ODBC", "DBQ=" + hb_DirBase() + "..\..\hbodbc\tests\test.mdb;Driver={Microsoft Access Driver (*.mdb)}" } )
|
|
? "Use:", DBUSEAREA( .T.,, "select * from test", "test" )
|
|
? "Alias:", ALIAS()
|
|
? "DB struct:", HB_VALTOEXP( DBSTRUCT() )
|
|
INKEY( 0 )
|
|
BROWSE()
|
|
|
|
INDEX ON FIELD->SALARY TO salary
|
|
DBGOTOP()
|
|
BROWSE()
|
|
DBCLOSEAREA()
|
|
RETURN
|