Re: hmg and oracle
Posted: Fri Mar 01, 2019 4:23 pm
hello, can you chek this code ? Ojo! Your Table, Base, User and Pass
Code: Select all
#include "Minigui.ch"
#include "adordd.ch"
static cHost := "DBINDIO53" // NOMBRE DE LA BASE OJO VER TNS NAMES
static cUser := "scot" // USER
static cPass := "scot" // PASS
static cProv := "MSDAORA.1" // PRIVIDER OF WINDOW
//--------------------------------------------------------------------//
FUNCTION Main()
PRIVATE aItemDept :={}
Public oOra AS OBJECT
SET EXCLUSIVE OFF
SET DELETE ON
SET DATE GERMAN
SET CENTURY ON
SET EXACT ON
SET NAVIGATION EXTENDED
SET EPOCH TO YEAR(DATE()) - 50
SET INTERACTIVECLOSE ON
Oracle_Connect()
DEFINE WINDOW wifmain AT 10, 10 ;
WIDTH 800 HEIGHT 600 ;
TITLE "Table DEPT" ;
MAIN
ON KEY ALT+F4 ACTION wifmain.release
@050,020 GRID Grid_1 WIDTH 500 HEIGHT 400 ;
WIDTHS {60,200,200};
HEADERS {'Dept','Dname','Loc'}
END WINDOW
LoadData()
ACTIVATE WINDOW wifmain
RETURN
FUNCTION Oracle_Connect()
oOra := TOLEAuto():New('ADODB.Connection')
oOra:ConnectionString="Provider=" + cProv + "; " + "Data Source=" + cHost + "; " + "User ID=" + cUser + "; " + "Password=" + cPass + ";"
oOra:Open()
RETURN NIL
FUNCTION LoadData()
LOCAL oRs
LOCAL cFila0,cFila1,cFila2
IF ( oRs := TOleAuto():New("ADODB.Recordset") ) != NIL
oRs:Open( "SELECT CODUSER, NAMEUSER, PASSWRD FROM TCCUSER", oOra )
DO WHILE ! oRs:EOF
cFila0 := oRs:Fields(0):value
cFila1 := oRs:Fields(1):value
cFila2 := oRs:Fields(2):value
wifmain.grid_1.additem( {cFila0,cFila1,cFila2} )
oRs:MoveNext()
ENDDO
oRs:Close()
ENDIF
RETURN NIL