Actualizar Listview con DAO
Publicado por Miriam V. (1 intervención) el 28/01/2002 20:08:31
Un programa independiente que corre en un servidor... actualiza una base de datos cada vez que alguien registra una tarjeta en las puertas... osea es aleatorio... yo leo desde mi programa esa base y pongo los datos en un listview ... como es aleatorio los cambios en la base del servidor .. en un timer pongo
Private Sub Timer1_Timer()
Dim SQL As String
SQL = "Select * from [Transactions] Where Date=#" & Format(Date, "yyyy/mm/dd") & "#"
Set RFlan = BFlan.OpenRecordset(SQL)
On Error Resume Next
RFlan.MoveLast
On Error GoTo 0
If RFlan.RecordCount > ListView3.ListItems.Count Then
leaDatos ' funcion que rellena el listview con el recordset
End If
End Sub
Y funciona bien se actualiza casi simultaneamente ... mi preocupacion es sobre la lectura al disco del servidor... no se hara lento el sistema cuando se conecten mas terminales corriendo mi programa... y es que el timer esta a 250 miliseg.
Utilizo DAO 3.51 para conectar a las bases... Alguien tiene una mejor opcion para actualizar??
Private Sub Timer1_Timer()
Dim SQL As String
SQL = "Select * from [Transactions] Where Date=#" & Format(Date, "yyyy/mm/dd") & "#"
Set RFlan = BFlan.OpenRecordset(SQL)
On Error Resume Next
RFlan.MoveLast
On Error GoTo 0
If RFlan.RecordCount > ListView3.ListItems.Count Then
leaDatos ' funcion que rellena el listview con el recordset
End If
End Sub
Y funciona bien se actualiza casi simultaneamente ... mi preocupacion es sobre la lectura al disco del servidor... no se hara lento el sistema cuando se conecten mas terminales corriendo mi programa... y es que el timer esta a 250 miliseg.
Utilizo DAO 3.51 para conectar a las bases... Alguien tiene una mejor opcion para actualizar??
Valora esta pregunta
0