96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
49 lines
933 B
Plaintext
49 lines
933 B
Plaintext
#require "rddsql"
|
|
#require "sddoci"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
REQUEST SDDOCI, SQLMIX
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL tmp
|
|
|
|
#if defined( __HBSCRIPT__HBSHELL )
|
|
rddRegister( "SQLBASE" )
|
|
rddRegister( "SQLMIX" )
|
|
hb_SDDOCI_Register()
|
|
#endif
|
|
|
|
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
|