no actializa el ultimo dato que guardo
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
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
No estoy muy seguro pero prueba a hacer un requery
al final de la funcion grabar
adotabla.requery
al final de la funcion grabar
adotabla.requery
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.
espero que te ayude.
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
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