Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

No funciona rs.movenext

Estas en el tema de No funciona rs.movenext en el foro de Visual Basic clásico en Foros del Web. Tengo una conexion ADO con mysql en un servidor local, la conexion esta bien, he podido acceder a los datos de mi base tambien agregar ...
  #1 (permalink)  
Antiguo 13/09/2006, 09:40
 
Fecha de Ingreso: septiembre-2005
Mensajes: 74
Antigüedad: 19 años, 7 meses
Puntos: 0
No funciona rs.movenext

Tengo una conexion ADO con mysql en un servidor local, la conexion esta bien, he podido acceder a los datos de mi base tambien agregar registros pero no he podido avanzar los registros, lo chistoso es que aparentemente si avanza porque al presionar 5 veces el boton "siguiente registro" me manda el error de que ya llego al ultimo registro de mi base y yo tengo 4 registros, entonces quiere decir que si avanza, pero los textbox donde deben mostrarse los datos no los actualiza, se queda en el primer registro.

el codigo de mi boton es: rs.movenext y rs esta declarado como mi recordset

ESPERO ME PUEDAN AYUDAR MUCHAS GRACIAS.
  #2 (permalink)  
Antiguo 13/09/2006, 10:05
Avatar de tazzito  
Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 18 años, 9 meses
Puntos: 2
hola, aun te falta algo de informacion trabajas enlasado completamente como lo haces avanzar ??? no se envia el codigo que tienes aparte de avanzar que mas hace... por favor
  #3 (permalink)  
Antiguo 13/09/2006, 10:29
 
Fecha de Ingreso: septiembre-2005
Mensajes: 74
Antigüedad: 19 años, 7 meses
Puntos: 0
Gracias tazzito, este es mi codigo

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click() BOTON AGREGAR
rs.AddNew
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command2_Click() BOTON GRABAR
rs.Fields("Nombre") = Text1.Text
rs.Fields("Apellido") = Text2.Text
rs.Update
Text1.Text = ""
Text2.Text = ""
MsgBox "Tus registros han sido guardados"
End Sub

Private Sub Form_Load()
conn.Open "driver={mysql odbc 3.51 driver};" _
& " user= Administrador;" _
& " password= 123;" _
& " server= localhost;" _
& " database= Contratos;" _

rs.Open "select * from Generales", conn, adOpenStatic, adLockOptimistic

Text1.Text = rs.Fields("Nombre")
Text2.Text = rs.Fields("Apellido")
End Sub

Private Sub siguiente_Click() BOTON SIGUIENTE REGISTRO
rs.MoveNext
End Sub
  #4 (permalink)  
Antiguo 13/09/2006, 10:49
Avatar de tazzito  
Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 18 años, 9 meses
Puntos: 2
si rs es solo recordset y no es ningun tipo de objeto enlazable lo que te falta es asignar en el Sub Siguiente_Click

Text1.Text=rs.Fields("Nombre")
Text2.Text=rs.Fields("Apellido")

y con eso ira refrescando la informacion
  #5 (permalink)  
Antiguo 13/09/2006, 11:29
 
Fecha de Ingreso: septiembre-2005
Mensajes: 74
Antigüedad: 19 años, 7 meses
Puntos: 0
tienes razon tazzito ahora si me actualiza los registros. funciona bien, pero habra otra forma de mejorar el codigo. quiza deba enlazar a algun objeto como dices. ¿como lo haria ?

gracias
  #6 (permalink)  
Antiguo 13/09/2006, 12:16
Avatar de tazzito  
Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 18 años, 9 meses
Puntos: 2
no te recomiendo enlazarlos a objetos, pero puedes probar con un adoc como vas esta bien mientras menos enlazado a objetos trabajes mas amplio y facil de exportar es tu programa xD
  #7 (permalink)  
Antiguo 13/09/2006, 12:35
 
Fecha de Ingreso: septiembre-2005
Mensajes: 74
Antigüedad: 19 años, 7 meses
Puntos: 0
ok tazzito entonces no hare enlaces muchas gracias por tu ayuda !!
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 21:07.