Timer Vb.Net

[mrprogman]

Como le puedo hacer para que cada cierto tiempo me ejecute este codigo..en una forma de vb.net..me imagino que con un timer..pero como lo podria implementar..?..saludos y gracias por sus respuestas

Dim con7 As New OleDb.OleDbConnection
con7.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Expomecanico\Expo2012A.mdb;Persist Security Info=False;")
'Dim ban2 As Integer
con7.Open()
'Dim SSel As String
Dim da7 As OleDbDataAdapter = New OleDbDataAdapter("SELECT count(*) FROM Registrados group by id ", con7)
'SELECT count(clientes.NUMERO) AS Numero_Personas FROM clientes WHERE clientes.HORA_LLEGADA is not null

Dim ds7 As New DataSet
ds7.Clear()

Label17.Text = da7.Fill(ds7)

If da7 Is Nothing Then
MsgBox("Please enter First Name")
End If

'TextBox9.Text = ds7.Tables(0).Rows(0)("count(*)")
con7.Close()

Dim con8 As New OleDb.OleDbConnection
con8.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Expomecanico\Expo2012A.mdb;Persist Security Info=False;")
'Dim ban2 As Integer
con8.Open()
'Dim SSel As String
Dim da8 As OleDbDataAdapter = New OleDbDataAdapter("SELECT count(*) FROM Expo group by id ", con8)
'SELECT count(clientes.NUMERO) AS Numero_Personas FROM clientes WHERE clientes.HORA_LLEGADA is not null

Dim ds8 As New DataSet
ds8.Clear()

Label21.Text = da8.Fill(ds8)



con8.Close()

[mrprogman]

El principal problema creo yo, es que tengo esta aplicacion en una maquina y de ahi se conectan a otras 3 por medio de un acceso directo..y ya coloque un timer para la hora y me doy cuenta que cada maquina me da la hora diferente.en vez de darne la hora de la aplicacion de la maquina principal... si yo le pongo un timer a esos querys que mande en el post anterior, no me los va a actualizar en todas la maquinas al mismo tiempo o si..?..no se como hacerles..alguien me puede ayudar con esto..?..gracias

[Aquaventus]

Hola mrprogman, tu estas anunciando otro problema que ahora es la hora, para mantener el orden se recomienda crear otro tema para que no combinar respuestas. Saludos!

PDT: El problema es que usted jala la hora de la máquina cliente sino me equivoco... pero bueno coloca tu code en el post que puedes crear sobre la hora para ayudarte mejor.

[mrprogman]

No, no estoy pidiendo ayuda sobre la hora, lo que quise decir fue solo un ejemplo de como funciona el timer en relacion a la hora en esas maquinas..el principal y unico problema es el primer post que puse, el segundo fue solo una referencia a ese problema....Gracias

[Aquaventus]

Como muestras la hora? Para que cada máquina tenga la hora distinta es porque seguro jalas como te digo de la pc cliente.

[mrprogman]

Si efectivamente, la jalo de la pc del cliente..pero como te comento.....lo q

[mrprogman]

Lo que yo ocupo hacer es que cada cierto tiempo este codigo se ejecute en la TODAS las maquinas..yo pienso que con un timer...y puse el ejemplo de como estoy manejando la hora con un timer.Saludos

Dim con7 As New OleDb.OleDbConnection
con7.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\XYZ\Expo2012A.mdb;Persist Security Info=False;")
'Dim ban2 As Integer
con7.Open()
'Dim SSel As String
Dim da7 As OleDbDataAdapter = New OleDbDataAdapter("SELECT count(*) FROM Registrados group by id ", con7)
'SELECT count(clientes.NUMERO) AS Numero_Personas FROM clientes WHERE clientes.HORA_LLEGADA is not null

Dim ds7 As New DataSet
ds7.Clear()

Label17.Text = da7.Fill(ds7)

If da7 Is Nothing Then
MsgBox("Please enter First Name")
End If

'TextBox9.Text = ds7.Tables(0).Rows(0)("count(*)")
con7.Close()

Dim con8 As New OleDb.OleDbConnection
con8.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\XYZ\Expo2012A.mdb;Persist Security Info=False;")
'Dim ban2 As Integer
con8.Open()
'Dim SSel As String
Dim da8 As OleDbDataAdapter = New OleDbDataAdapter("SELECT count(*) FROM Expo group by id ", con8)
'SELECT count(clientes.NUMERO) AS Numero_Personas FROM clientes WHERE clientes.HORA_LLEGADA is not null

Dim ds8 As New DataSet
ds8.Clear()

Label21.Text = da8.Fill(ds8)

[Dradi7]

Bueno

Primero no lo veo sentido de que tengas un acceso directo y tus clientes jalen de ahi para conectarse, esto es cuestionable.

En cuanto al Timer no lo veo sentido de que quieres que corra dicho proceso cada vez que llege un determinado tiempo, en tal caso podrías utilizar Socket o en todo caso una manera mucho mas facil, es que supongo que tengas Cliente-Servidor en donde la configuración del Servidor establece la hora exacta para cada maquina pero esto ya son politicas y directivas que debes manejar dentro de tu Servidor si es que lo tienes

Saludos

[mrprogman]

Creo que no me he dado a entender...tengo 4 maquinas...las cuales sirven para registrar invitados a un exposicion..todas las maquinas muestran cuantos asistentes han ingresado a la exposicion pero me lo muestran desfasados, es decir si una maquina no ha registrado a ningun invitado marca menos que la que si ha registrado y lo que yo necesito es que en todas se actualize al mismo tiempo, por el momento coloque en un boton llamado "actualiza" el codigo que les puse en el primer post, crei que con un timer podria hacer que ese codigo se ejecutara, pero por lo que veo no, por eso les puse el ejemplo de como tengo la hora. Estoy utilizando vb.net 2008 y una base de datos en acces. Gracias por sus respuestas.