No puedo guardar en base de datos
Private Sub Guardar(contador, Tiempo)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("e:GescarGescar.mdb")
Set rs = db.OpenRecordset("SELECT * FROM Tiempos")
rs.AddNew
rs("Tiempo") = Tiempo
rs("Paso") = contador
rs.Update
rs.Close
db.Close
Desarrollo.Refresh
Call VerFinalLista
End Sub
Cuando ejecuto el codigo anterior me da un error en la linea " Set rs = db.OpenRecordset("SELECT * FROM Tiempos") " y "me dice error 13 en tiempo de ejecucion, no coinciden los tipos pero no se que es lo que esta pasando"
Dede ya muchas gracias
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("e:GescarGescar.mdb")
Set rs = db.OpenRecordset("SELECT * FROM Tiempos")
rs.AddNew
rs("Tiempo") = Tiempo
rs("Paso") = contador
rs.Update
rs.Close
db.Close
Desarrollo.Refresh
Call VerFinalLista
End Sub
Cuando ejecuto el codigo anterior me da un error en la linea " Set rs = db.OpenRecordset("SELECT * FROM Tiempos") " y "me dice error 13 en tiempo de ejecucion, no coinciden los tipos pero no se que es lo que esta pasando"
Dede ya muchas gracias
brother revisa tu referencias del proyecto debes de tener activadas Microsoft Access 10.0 object library y Microsoft DAO 3.6 object library, bueno esta ultima esta en dependencia si estas desarrollando con access 2000 arriba, y a lo mejor tenes cargadas otras referencias que te estan creando conflictos
