Foros del Web » Programación para mayores de 30 ;) » .NET »

Problema con Windows Service.

Estas en el tema de Problema con Windows Service. en el foro de .NET en Foros del Web. Hola a todos, Estoy creando un Servicio de Windows donde cada cierto tiempo reviso los registros que hay en una Base de Datos SQL, la ...
  #1 (permalink)  
Antiguo 17/09/2004, 13:22
 
Fecha de Ingreso: agosto-2004
Mensajes: 8
Antigüedad: 19 años, 8 meses
Puntos: 0
Problema con Windows Service.

Hola a todos,

Estoy creando un Servicio de Windows donde cada cierto tiempo reviso los registros que hay en una Base de Datos SQL, la consulta T-SQL me devuelve entre otras cosas el Path de un archivo, el cual debo ejecutar cuando una Hora (tambien devuelta en la consulta) sea igual a la actual.

Ahora el problema que tengo es que no me sale la validacion de la hora...por ejemplo:

La hora guardada en la Base de Datos viene con el formato:"hh:mm:ss", y la tengo que validar entonces con la hora actual, pero si el evento ELAPSED se ejecuto antes o despues de la hora guardada en la DB, pues esto me va a fallar, he intentando varias validaciones pero ninguna me resuelve.

Abajo esta el codigo en cuestion:

Código:
 

Dim t1 as New Timer
Protected Overrides Sub OnStart(ByVal args() As String)
        t1.Interval = 200000
        t1.Enabled = True
    End Sub


    Private Sub t1_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles t1.Elapsed
        Dim selectCmd As String = "SELECT FilePath, FileDate FROM Calendar"
        Dim sqlcmd As New SqlCommand(selectCmd, sqlCn)
        Dim sqlrdr As SqlDataReader = sqlcmd.ExecuteReader
        Dim fPath As String = ""
        Dim fTime As String = ""
        Try
            sqlCn.Open()
            Do While sqlrdr.Read
                fPath = sqlrdr.GetString(0)
                fTime = sqlrdr.GetString(1)
    If fTime <= Date.Now.ToLongTimeString.ToString Then
       Process.Start(fPath)
      End If           
            Loop
            sqlrdr.Close()
        Catch ex As ArgumentException
            Throw New Exception(ex.Message)
        Catch ex As SqlException
            Throw New Exception(ex.Message)
        Catch ex As Exception
            Throw New Exception(ex.Message)
        Finally
            sqlCn.Close()
        End Try
    End Sub

    Protected Overrides Sub OnStop()
        t1.Stop()
    End Sub
End Class
Espero me puedan ayudar...

Att
SolSeek.

Última edición por SolSeek; 17/09/2004 a las 13:26
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:48.