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)
COMO OBTENGO LA HORA DEL SERVER
-
- Posts: 122
- Joined: Wed Oct 12, 2005 1:03 pm
- Location: Cuernacava, Morelos Mexico
COMO OBTENGO LA HORA DEL SERVER
Marco Augusto Rodriguez Manzo
fwh 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport
PERZO SOFT
Sistemas Personalizados
fwh 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport
PERZO SOFT
Sistemas Personalizados
-
- Posts: 988
- Joined: Thu Nov 24, 2005 3:01 pm
- Location: Madrid, España
Re: COMO OBTENGO LA HORA DEL SERVER
Hola Marco,
podrías probar poner
oD:=CREARST("SELECT date(SYSDATE()) AS FECHA ")
en lugar de
oD:=CREARST("SELECT date(SYSDATE())")
para ver si dandole un nombre a la columna funciona?
podrías probar poner
oD:=CREARST("SELECT date(SYSDATE()) AS FECHA ")
en lugar de
oD:=CREARST("SELECT date(SYSDATE())")
para ver si dandole un nombre a la columna funciona?
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
-
- Posts: 122
- Joined: Wed Oct 12, 2005 1:03 pm
- Location: Cuernacava, Morelos Mexico
Re: COMO OBTENGO LA HORA DEL SERVER
GRACIAS CARLOS POR TU INTERES
SIGUENDO CON TU RECOMENDACION
EL RESULTADO SIGUE SIENDO LA FECHA Y YO NECESITO LA HORA
SIGUENDO CON TU RECOMENDACION
Code: Select all
oT:=CREARST("SELECT TIME(SYSDATE()) AS HORA ")
MSGINFO(oT:FIELDS("HORA"):VALUE)
oT:CLOSE()
Marco Augusto Rodriguez Manzo
fwh 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport
PERZO SOFT
Sistemas Personalizados
fwh 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport
PERZO SOFT
Sistemas Personalizados
- Willi Quintana
- Posts: 859
- Joined: Sun Oct 09, 2005 10:41 pm
- Location: Cusco - Perú
- Contact:
Re: COMO OBTENGO LA HORA DEL SERVER
Hola, uso la clase TMySQL con este codigo y me retorna los datos en forma correcta: el lio debe estar en el codigo de ADOl
Este codigo trabaja correctamente usando EAGLE1
Code: Select all
cDate := "SELECT CURDATE(), CURTIME()"
oDate := SQLQry(oMySQL, cDate )
dDate := oDate:FieldGet(1)
cTime := oDate:FieldGet(2)
oApp:dDate := dDate
oApp:cTime := cTime
? dDate, cTime // OK
Code: Select all
cDate := "SELECT CURDATE(), CURTIME()"
oDate := TMSQuery():New( oMySQL )
oDate:Open( cDate )
dDate := oDate:FieldGet(1) //
cTime := oDate:FieldGet(2)
oApp:dDate := dDate
oApp:cTime := cTime
? dDate, cTime
- Willi Quintana
- Posts: 859
- Joined: Sun Oct 09, 2005 10:41 pm
- Location: Cusco - Perú
- Contact:
Re: COMO OBTENGO LA HORA DEL SERVER
Otra opcion para actualizar la pc-estacion con la hora del serVIdor seria usando el comando NET TIME, llamando al servidor cuyo nombre estaria en cNameServer que lo tendria presentes al iniciaL la PC, luego de ejecutar esta funcion tiomas la hora de la pc-estacion con TIME() y listo,,,,,,
Code: Select all
Function SETDATEHORA()
local vServer
vServer := "COMMAND.COM /C NET TIME \\" + cNameServer + " /SET /YES"
WaitRun(vServer,0) // ejecutor externo
Return(Nil)
-
- Posts: 122
- Joined: Wed Oct 12, 2005 1:03 pm
- Location: Cuernacava, Morelos Mexico
Re: COMO OBTENGO LA HORA DEL SERVER
GRACIAS WILLI
VOY A TENER QUE UTILIZAR LAS CLASES QUE ME INDICAS
AUNQUE SOLO SEA PARA TOMAR LA HORA DEL SERVIDOR
LA SEGUNDA OPCION DE NET TIME NO ME FUNCIONA PORQUE
NO ESTOY EN UNA RED LOCAL
GRACIAS
VOY A TENER QUE UTILIZAR LAS CLASES QUE ME INDICAS
AUNQUE SOLO SEA PARA TOMAR LA HORA DEL SERVIDOR
LA SEGUNDA OPCION DE NET TIME NO ME FUNCIONA PORQUE
NO ESTOY EN UNA RED LOCAL
GRACIAS
Marco Augusto Rodriguez Manzo
fwh 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport
PERZO SOFT
Sistemas Personalizados
fwh 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport
PERZO SOFT
Sistemas Personalizados