COMO OBTENGO LA HORA DEL SERVER

[Marco Augusto]

SALUDOS AL FORO

UTILIZO MYSQL VIA ADO
Y AL INTENTAR OBTENER LA HORA DEL SERVER NO LO PUEDO
LOGRAR, TODAS LAS FUNCIONES ME DEVUELVEN LA FECHA


SI HAGO EL QUERY DIRECTO EN MYSQL, SI OBTENGO LA FECHA Y HORA
PERO POR ADO NO LO LOGRO

UTILIZO XHARBOUR VER 1.1.0

ESTE ES EL CODIGO:

FUNCTION MAIN
oD:=CREARST("SELECT date(SYSDATE())")
XD:=oD:FIELDS(0):VALUE()
MSGINFO(XD,"DATE SYSDATE") && OBTENGO LA FECHA OK
oD:CLOSE()
*
oD:=CREARST("SELECT TIME(SYSDATE())")
XD:=oD:FIELDS(0):VALUE()
MSGINFO(XD,"TIME SYSDATE") && OBTENGO LA FECHA Y NO HORA
oD:CLOSE()
*
oT:=CREARST("SELECT CURDATE()")
XFE:=oT:FIELDS(0):VALUE()
MSGINFO(XFE,"CURDATE") && OBTENGO LA FECHA Y NO FECHA-HORA
ot:CLOSE()
*
oT:=CREARST("SELECT CURTIME()")
XTIME:=oT:FIELDS(0):VALUE()
MSGINFO(XTIME,"CURTIME") && OBTENGO LA FECHA Y NO HORA
ot:CLOSE()
*
oT:=CREARST("SELECT NOW()")
XDATO:=oT:FIELDS(0):VALUE()
MSGINFO(XDATO,"NOW") && OBTENGO LA FECHA Y NO HORA
ot:CLOSE()
RETURN NIL
*
FUNCTION CREARST(cSQL)
TRY
oRs:= TOleAuto():New("adodb.recordset")
CATCH oERRX
MsgStop( "No se ha podido crear el RECORDSET", oApp:cAplicacion)
oRs:= NIL
RETURN(oRS)
END

oRs:CursorLocation := adUseClient
oRs:LockType := adLockOptimistic
oRs:CursorType := 2
oRs:Source := cSQL
oRs:ActiveConnection(oApp:oCon)

TRY
oRs:Open()
CATCH oERRX
MsgStop( "No se ha podido abrir el RECORDSET!", oApp:cAplicacion)
RETURN(NIL)
END
RETURN(oRS)