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
26 lines
814 B
Plaintext
26 lines
814 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
REQUEST SQLMIX
|
|
|
|
PROC main()
|
|
RDDSETDEFAULT("SQLMIX")
|
|
DBCREATE("persons", {{"NAME", "C", 20, 0}, {"FAMILYNAME", "C", 20, 0}, {"BIRTH", "D", 8, 0}, {"AMOUNT", "N", 9, 2}},, .T., "persons")
|
|
|
|
DBAPPEND(); AEVAL({PADR("Bil", 20), PADR("Gatwick", 20), STOD("19650124"), 123456.78}, {|X,Y| FIELDPUT(Y, X)})
|
|
DBAPPEND(); AEVAL({PADR("Tom", 20), PADR("Heathrow", 20), STOD("19870512"), 9086.54}, {|X,Y| FIELDPUT(Y, X)})
|
|
DBAPPEND(); AEVAL({PADR("John", 20), PADR("Weber", 20), STOD("19750306"), 2975.45}, {|X,Y| FIELDPUT(Y, X )})
|
|
DBAPPEND(); AEVAL({PADR("Sim", 20), PADR("Simsom", 20), STOD("19930705"), 32975.37}, {|X,Y| FIELDPUT(Y, X )})
|
|
|
|
DBGOTOP()
|
|
BROWSE()
|
|
|
|
INDEX ON FIELD->AMOUNT TO amount
|
|
DBGOTOP()
|
|
BROWSE()
|
|
DBCLOSEALL()
|
|
RETURN
|
|
|
|
|
|
PROC RDDSYS(); RETURN |