no actializa el ultimo dato que guardo

Wladimir
09 de Octubre del 2003
Enviado por wladimir el día 8 de octubre de 2003
Buenos día.... por favor alguien que me pueda dar una mano.
Cuando le doy click al boton guardar me guarda pero cuando busco ese dato pro los botones siguiente, anterior y ultimo no me lo muestra.
luego que cierro el programa y lo abro nuevamente me muestra ese dato guardado.
Como actualizo para que cuando guarde me muestre el ultimo dato.
Gracias
Este es el codigo del programa:
Dim cnbase As Connection
Dim WithEvents adotabla As Recordset


Private Sub CmdAgregar_Click()

adotabla.AddNew
End Sub

Private Sub CmdAnterior_Click()
If adotabla.BOF Or adotabla.EOF Then Exit Sub
adotabla.MovePrevious
If adotabla.BOF Then adotabla.MoveFirst
End Sub

Private Sub CmdCancelar_Click()
adotabla.CancelUpdate
End Sub

Private Sub CmdEliminar_Click()
adotabla.Delete
adotabla.MoveFirst
End Sub

Private Sub CmdGuardar_Click()

sql = "insert into TIPUsuarios (NomUsu,NomPC," & _
"IP,SerCPU,TipIma," & _
"Netop,ExtUsu,DptUsu, " & _
"UbiUsu,SerMon)" & _
" values ('" & TextNomUsuario & "', '" & TextNomPC & "', '" & _
TextIPMaquina & "', '" & TextSerCPU & "', '" & TextImagen & "', '" & _
TextNetop & "', '" & TextExtUsu & "', '" & TextDpto & "', '" & _
TextUbicUsu & "', '" & TextSerMonitor & "')"

cnbase.Execute sql
Me.TextDpto = ""
Me.TextExtUsu = ""
Me.TextImagen = ""
Me.TextIPMaquina = ""
Me.TextNetop = ""
Me.TextNomPC = ""
Me.TextNomUsuario = ""
Me.TextSerCPU = ""
Me.TextSerMonitor = ""
Me.TextUbicUsu = ""


End Sub

Private Sub CmdPrimero_Click()
adotabla.MoveFirst
End Sub

Private Sub CmdSalir_Click()
Unload Me
End Sub

Private Sub CmdSiguiente_Click()
If adotabla.BOF Or adotabla.EOF Then Exit Sub
adotabla.MoveNext
If adotabla.EOF Then adotabla.MoveLast
End Sub

Private Sub CmdUltimo_Click()
adotabla.MoveLast
End Sub

Private Sub Form_Load()
Set cnbase = New Connection
cnbase.CursorLocation = adUseClient
cnbase.Provider = "Microsoft.Jet.oledb.4.0"
cnbase.Open App.Path & "DBControldeIP.mdb"
Set adotabla = New Recordset
adotabla.Open "select IP,NomUsu,ExtUsu,TipIma,DptUsu,UbiUsu,Netop,NomPC,SerCPU,SerMon from TIPUsuarios order by NomUsu", cnbase, adOpenStatic, adLockOptimistic
Set Me.TextDpto.DataSource = adotabla
Set Me.TextExtUsu.DataSource = adotabla
Set Me.TextImagen.DataSource = adotabla
Set Me.TextIPMaquina.DataSource = adotabla
Set Me.TextNetop.DataSource = adotabla
Set Me.TextNomPC.DataSource = adotabla
Set Me.TextNomUsuario.DataSource = adotabla
Set Me.TextSerCPU.DataSource = adotabla
Set Me.TextSerMonitor.DataSource = adotabla
Set Me.TextUbicUsu.DataSource = adotabla
Me.TextDpto = ""
Me.TextExtUsu = ""
Me.TextImagen = ""
Me.TextIPMaquina = ""
Me.TextNetop = ""
Me.TextNomPC = ""
Me.TextNomUsuario = ""
Me.TextSerCPU = ""
Me.TextSerMonitor = ""
Me.TextUbicUsu = ""
End Sub



juanolas
09 de Octubre del 2003
No estoy muy seguro pero prueba a hacer un requery
al final de la funcion grabar
adotabla.requery

JOSH-CORP
09 de Octubre del 2003
el pata anterior tiene razon, pero antes del requery utiliza un update. todo esto en el cuadro de codigo del boton "guardar" asi cuando guardas te actualizara la base de datos.

espero que te ayude.

juanolas
09 de Octubre del 2003
¿pata?

Baltasar
09 de Octubre del 2003
Me imagino que lo de "pata" es una expresión amistosa.

La opción del REQUERY creo que solucionaría el problema (yo no trabajo con controles enlazados, y la verdad que no es mi terreno)

Lo que sí que NO se puede usar es el UPDATE, ya que se trata de una instrucción SQL.

Saludos