llamar hora del servidor!

[mcofy]

Saludos,, tengo el sig problema!

Tengo una aplicacion de escritorio que trabaja en red, hecha en VB.net 2005, con BD de MySQL.

El problema es que no se como hacer para mandar a llamar la hora del servidor.

Lo unico que puedo guardar es la fecha actual pero de la PC que esta usando el sistema, no la hora del servidor.
La consulta SQL que utilizo es la siguiente:

"update nombre_tabla set hora='" & Format(Date.Now, "hh:mm tt") & " 'where folio='" & folio.text & "'")

Lo que consigo con este codigo es guardar la hora en la que el usuario realiza algun cambio, pero evidentemente el problema es que si el usuario modifica la fecha y la hora de su equipo, estare metido en graves problemas. En su caso lo que deberia de guardar es la fecha y hora del servidor, pero en este momento no se como hacerle.!
De antemano gracias y si tienen alguna sugerencia es bienvenida. Un abrazo!

[gnzsoloyo]

el problema es que si el usuario modifica la fecha y la hora de su equipo, estare metido en graves problemas.

Acá lo que tienes que hacer, más que llamar a la hora del servidor, es tener un proceso de validación de la hora en la aplicación del lado del cleinte que verifique que no se haya movido la fecha y hora del sistema

[mcofy]

un proceso de validacion en el cliente?, creo que eso queda fuera de mi alcance, ,, o mas bien no sabria como hacerlo!,,, y me pareceria que para eso tambien necesito compararlo con la hora del servidor,?.!!! no sabria como!!!!!

[gnzsoloyo]

Nostros manejamos en una de las aplicaciones ciertos registros encriptados (en el Registry de Windows, por caso) donde guardamos datos de configuración e instalación. Una de las cosas que guardamos es precisamente la fecha y hora de la última ejecución de la aplicación, con lo que cuando se abre nuevamente se puede detectar (en una validación que lleva apenas seis líneas), si la fecha ha sido alterada.
Otra posibilidad es invocar un servicio de la web que te devuelva la hora para la región en que la computadora está funcionando y verifique contra ella.

Las posibles formas de resolver el problema de la alteración del sistema son muchas, y no necesitas lidiar con el TimeZone del servidor de la base de datos...

[mcofy]

me parece bastante acertado lo que comentas, (he de confesar que no tengo mucha idea de como hacer lo que comentas). pense que el problema seria algo mas facil como una funcion que llamara la fecha y hora del servidor, agradeceria mucho pudieras explicarme un poco mas ampliamente, o en su defecto si tienes alguna pagina o informacion que compartir donde pueda leer sobre el tema. en serio que no se como hacerlo.Saludos!

[devilguzz]

puedes hacer lo siguiente:

"update nombre_tabla set hora= CONVERT(varchar,getdate(),108) & " 'where folio='" & folio.text & "'")

para que guarde la hora directamente del servidor... ahora si quieres ponerte a comparar que la fecha y/o hora del servidor sean las mismas q las de tu cliente... puedes utilizar esta simple sentencia

SELECT GETDATE();

lo transformas a un DateTime y la comparas con la fecha del cliente y puedes hacer las validaciones necesarias...


espero que te sirva de algo...

[mcofy]

ok, me parece muy bueno el codigo que compartes devilguzz, el problema es que marca error, por ejemplo dice:


("update nombre_tabla set fecha_busqueda= '" & Convert(varchar, getdate(), 108) & "',hora_busqueda='" & Label5.Text & "' where folio='" & folio.text & "'")

1.-me dice que conver es un tipo y no puede usarse como expresion
2.- no se ha declarado varchar
3.- no se ha declarado el nombre getdata

entonces no se que acer, falta importar una libreria o algo asi???
Saludos

[mcofy]

ok, me parece muy bueno el codigo que compartes devilguzz, el problema es que marca error, por ejemplo dice:


("update nombre_tabla set fecha_busqueda= '" & Convert(varchar, getdate(), 108) & "',hora_busqueda='" & Label5.Text & "' where folio='" & folio.text & "'")

1.-me dice que conver es un tipo y no puede usarse como expresion
2.- no se ha declarado varchar
3.- no se ha declarado el nombre getdata

entonces no se que acer, falta importar una libreria o algo asi???
Saludos

[gnzsoloyo]

Te paso un par de detalles del modo en que una de nuestras aplicaciones registra y verifica que no se haya movido la fecha de sistema hacia atrás.
Cada vez que el login sale bien:

Código vb.net:

Public Function UltimoInicio()
        Dim regData As RegistryKey
        Const PathKey As String = "SOFTWARE\\..."
        If regData Is Nothing Then
            Exit Function
        End If
        regData = Registry.LocalMachine.OpenSubKey(PathKey, True)
        regData.SetValue("DATA71", DateTime.Now.)
        regData.Close()
    End Function
 

"..." sería la ruta de la clave en el Registry que se crea al iniciar por primera vez la aplicación.

Luego, esta función se invoca en el Load del formulario principal, antes de iniciar el login. Valida varias cosas, por lo que la respuesta de esta función tiene un Select Case:

Código vb.net:

Public Function VerificarUpdate() As Integer
        Try
            Dim regData As RegistryKey
            Const PathKey As String = "SOFTWARE\\..."
            If Registry.LocalMachine.OpenSubKey(PathKey) Is Nothing Then
                Return 1000
            End If
            ' -----------------------------------------------------------
            Dim Data71 As DateTime
            ' -----------------------------------------------------------
            ' Variables para lectura de propiedades de archivos
            '  ...
            '  Data71. Ultimo ingreso registrado.
            ' -----------------------------------------------------------
            ' Listado de valores de retorno
            ' -----------------------------------------------------------
            ' -1:   Se ha producido un error no clasificado.
            ' 2001: Fecha de instalación original posterior a la actual.
            '       El usuario ha alterado la fecha del sistema.
            ' 2002: ...
            ' 2003: La fecha de la ultima sesión es posterior a la fecha actual.
            '       El usuario ha alterado la fecha del sistema.
            ' 2004: ...
            ' -----------------------------------------------------------
            regData = Registry.LocalMachine.OpenSubKey(PathKey, True)
            ' -----------------------------------------------------------
            ' ...
            ' -----------------------------------------------------------
            Data71 = regData.GetValue("DATA71")
            regData.Close()
            ' -----------------------------------------------------------
            oDia = Data71
            ' -----------------------------------------------------------
            If oDia > DateTime.Now Then
                Return 2003
            End If
        Catch ex As Exception
            Return -1
        End Try
    End Function
 

Si la respuesta no es la esperada en el Select Case, aparece una advertencia y la aplicación se cierra sin que pueda evitarse.
Esta función esta creada en una clase específica, que también contiene la función anterior, y que sólo se instancia en otra clase, la cual a su vez no puede ser accedida desde afuera del form principal.

¿La idea te sirve?

[devilguzz]

Iniciado por mcofy

ok, me parece muy bueno el codigo que compartes devilguzz, el problema es que marca error, por ejemplo dice:


("update nombre_tabla set fecha_busqueda= '" & Convert(varchar, getdate(), 108) & "',hora_busqueda='" & Label5.Text & "' where folio='" & folio.text & "'")

1.-me dice que conver es un tipo y no puede usarse como expresion
2.- no se ha declarado varchar
3.- no se ha declarado el nombre getdata

entonces no se que acer, falta importar una libreria o algo asi???
Saludos

1. que tipo de dato es fecha_busqueda y hora_busqueda
2. CONVERT(varchar,GETDATE(),108) es una expresion del MSSQL... asi q no debes asignarla como si fuera una variable... debe ir algo asi
"UPDATE <tabla> SET <campo>=CONVERT(varchar,GETDATE(),108), hora_busqueda='"& label5.Text & "' WHERE folio='"& folio.text & "'"

[mcofy]

devilguzz, me sigue dando errores la consulta, me suena bien logico lo que comentas, pero esa consulta necesita ser enviada bajo ese formato,

... quizas ese getdate es solo de asp,,,,, o que otra cosa se te ocurre??????

por que de funcionarme asi, seria genial!!!!!!!!!!!!!!

[gnzsoloyo]

Ocurre que devilguzz no se ha fijado correctamente y te está poniendo una función de MSSQL (MS SQL Server) y no de MySQL, que es lo que tú estás trabajando, con lo que siempre te dará error.
Lo que él te propone es que conviertas la fecha del servidor en VARCHAR para meterlo en ese campo (Ver SQL Helper).
Intersante, usual en SQL Server, pero no es lo que tu estás pidiendo.

Si quieres que tome la fecha y hora del servidor, tienes que hacerlo en el SQL mismo:

Código MySQL:

UPDATE nombre_tabla SET hora=CURTIME()
WHERE folio= valor;
 

Ahora bien, si quieres enviar la hora de la máquina cliente, debes hacerlo desde la programación:

Código vb.net:

Dim sSQL as string = "UPDATE nombre_tabla SET hora='" & DateTime.Now.ToString("HH:mm:ss") & "' WHERE folio= valor;"
 

El método es rústico, pero eficiente. Asegúrate de que en el string el valor quede entre apóstrofes (').

[mcofy]

devilguzz , gnzsoloyo

He checado sus respuestas y finalmente he podido hacer lo que necesitaba,
en efecto la solucion es usar "CURDATE()" y para la hora "CURTIME()"
Este es el codigo que utilizo, y me queda a la perfeccion.

"update externa_movimientos set fecha=curdate(), where folio='" & Label11.Text & "'")

Muchisismas Gracias, un abrazo.
GRACIAS POR SU INTERES.