Problemas con datagrid
Publicado por Fernando (5 intervenciones) el 19/01/2006 05:45:07
Tengo el siguiente codigo:
Private Sub Guardar(contador, Tiempo)
Dim db As Database
Dim rs As Recordset
Dim sql As String
Set db = OpenDatabase("e:\Gescar\Gescar.mdb")
sql = "select * from Tiempos"
Set rs = db.OpenRecordset(sql)
rs.AddNew
rs("Tiempo") = Tiempo
rs("Paso") = contador
rs.Update
rs.Close
db.Close
Call ActualizarDesarrollo
Call VerFinal
End Sub
Private Sub ActualizarDesarrollo()
Coneccion.Recordset.Requery
Set Desarrollo.DataSource = Coneccion
End Sub
Dim db As Database
Dim rs As Recordset
Dim sql As String
Set db = OpenDatabase("e:\Gescar\Gescar.mdb")
sql = "select * from Tiempos"
Set rs = db.OpenRecordset(sql)
rs.AddNew
rs("Tiempo") = Tiempo
rs("Paso") = contador
rs.Update
rs.Close
db.Close
Call ActualizarDesarrollo
End Sub
Private Sub ActualizarDesarrollo()
Coneccion.Recordset.Requery
Set Desarrollo.DataSource = Coneccion
End Sub
Y realmente va de maravillas, de no ser por que no actualiza de forma inmediata.
Los valores de tiempo y contador los captura cuando presiono la barra espaciadora y es en ese momento cuando entra en Private Sub Guardar(contador, Tiempo), hasta ahi todo barbaro ya que guarda en la BD perfecto pero como decia antes la actualizacion si bien la hace no me la muestra instantaneamente. Como puedo solucionar este problema o existe alguna otra forma de hacerlo.
Desde ya muhas gracias.
Private Sub Guardar(contador, Tiempo)
Dim db As Database
Dim rs As Recordset
Dim sql As String
Set db = OpenDatabase("e:\Gescar\Gescar.mdb")
sql = "select * from Tiempos"
Set rs = db.OpenRecordset(sql)
rs.AddNew
rs("Tiempo") = Tiempo
rs("Paso") = contador
rs.Update
rs.Close
db.Close
Call ActualizarDesarrollo
Call VerFinal
End Sub
Private Sub ActualizarDesarrollo()
Coneccion.Recordset.Requery
Set Desarrollo.DataSource = Coneccion
End Sub
Dim db As Database
Dim rs As Recordset
Dim sql As String
Set db = OpenDatabase("e:\Gescar\Gescar.mdb")
sql = "select * from Tiempos"
Set rs = db.OpenRecordset(sql)
rs.AddNew
rs("Tiempo") = Tiempo
rs("Paso") = contador
rs.Update
rs.Close
db.Close
Call ActualizarDesarrollo
End Sub
Private Sub ActualizarDesarrollo()
Coneccion.Recordset.Requery
Set Desarrollo.DataSource = Coneccion
End Sub
Y realmente va de maravillas, de no ser por que no actualiza de forma inmediata.
Los valores de tiempo y contador los captura cuando presiono la barra espaciadora y es en ese momento cuando entra en Private Sub Guardar(contador, Tiempo), hasta ahi todo barbaro ya que guarda en la BD perfecto pero como decia antes la actualizacion si bien la hace no me la muestra instantaneamente. Como puedo solucionar este problema o existe alguna otra forma de hacerlo.
Desde ya muhas gracias.
Valora esta pregunta


0