c5ae2cec9b
* harbour/contrib/hbwin/hbwinole.h
* harbour/contrib/hbwin/olecore.c
+ functions hb_oleParam(), hb_oleItemToVariant() made public
* harbour/contrib/rddsql/hbrddsql.h
* harbour/contrib/rddsql/sqlbase.c
+ added NULL SDD driver. It allows to use SQLBASE, SQLMIX RDD
without any real SDD driver. It could be usefull to implement
memory/array RDD
* unspecified SDD methods are "inherited" from NULL SDD
+ harbour/contrib/rddsql/tests/arrayrdd.prg
+ "Array RDD" example added
* harbour/contrib/rddsql/sddfb/fbirddd.c
* harbour/contrib/rddsql/sddmy/mysqldd.c
* harbour/contrib/rddsql/sddodbc/odbcdd.c
* harbour/contrib/rddsql/sddpg/pgsqldd.c
* deleted empty or default SDD methods. They are inherited from
NULL SDD now
* harbour/contrib/rddsql/sddodbc/tests/test1.prg
+ added svn:keywords header
* extended to show SQLMIX index features
24 lines
543 B
Plaintext
24 lines
543 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
REQUEST SDDODBC, SQLMIX
|
|
|
|
#define RDDI_CONNECT 1001
|
|
|
|
PROC main()
|
|
RDDSETDEFAULT( "SQLMIX" )
|
|
SET( 4, "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
|