baa3c6b7c0
* utils/hbmk2/hbmk2.prg
+ Added experimental feature to aid external dependency
detection. Key header files can now be specified using
'-keyheader=' option. In case such key headers are not
found when evaluating '-inctrypath' conditional header
directories. The goal is to make hbmk2 capable of
replacing GNU Make for all of our contribs. F.e.:
'clean':
{HB_HOST_BIN_DIR}/hbmk2 hbfbird/hbfbird.hbp hbsms/hbsms.hbp -o../lib/${hb_plat}/${hb_comp}/ -clean
simple make:
{HB_HOST_BIN_DIR}/hbmk2 hbfbird/hbfbird.hbp hbsms/hbsms.hbp -o../lib/${hb_plat}/${hb_comp}/
'install':
{HB_HOST_BIN_DIR}/hbmk2 hbfbird/hbfbird.hbp hbsms/hbsms.hbp -o../lib/${hb_plat}/${hb_comp}/ -instpath=${HB_LIB_INSTALL}/ -info
% Minor cleanup to some plugin API functions.
* utils/hbmk2/examples/plug_moc.prg
% Minor cleanup.
* contrib/sddoci/tests/test1.prg
+ Showing field length and decimals.
43 lines
810 B
Plaintext
43 lines
810 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include "simpleio.ch"
|
|
#include "hbrddsql.ch"
|
|
|
|
REQUEST SDDOCI, SQLMIX
|
|
|
|
PROCEDURE Main()
|
|
LOCAL tmp
|
|
|
|
RDDSETDEFAULT( "SQLMIX" )
|
|
SET( _SET_DATEFORMAT, "yyyy-mm-dd" )
|
|
|
|
AEVAL( rddList(), {| X | QOut( X ) } )
|
|
|
|
? "-1-"
|
|
? "Connect:", tmp := RDDINFO( RDDI_CONNECT, { "OCILIB", "ORCL", "scott", "tiger" } )
|
|
IF tmp == 0
|
|
? "Unable connect to the server"
|
|
ENDIF
|
|
? "-2-"
|
|
? "Use:", DBUSEAREA( .T.,, "select * from emp", "emp" )
|
|
? "-3-"
|
|
? "Alias:", ALIAS()
|
|
? "-4-"
|
|
? "DB struct:", HB_VALTOEXP( DBSTRUCT() )
|
|
? "-5-"
|
|
FOR tmp := 1 TO FCount()
|
|
? FIELDNAME( tmp ), HB_FIELDTYPE( tmp ), HB_FIELDLEN( tmp ), HB_FIELDDEC( tmp )
|
|
NEXT
|
|
? "-6-"
|
|
INKEY( 0 )
|
|
BROWSE()
|
|
|
|
INDEX ON FIELD->SAL TO salary
|
|
DBGOTOP()
|
|
BROWSE()
|
|
DBCLOSEAREA()
|
|
|
|
RETURN
|