Visual Basic - problema de desplazamiento

Life is soft - evento anual de software empresarial
   
Vista:

problema de desplazamiento

Publicado por Joseespinal (3 intervenciones) el 07/01/2009 01:47:31
Bueno amigos del foro mi problema es el sgte:
tengo una tabla creada en SQLserver 2000 y he creado un formulario para recuperar los datos en vb6.0 con los clasicos botones de desplazamiento inicio, anterior, siguiente y final
y cuando hago click en siguiiente por ejemplo solo avanza uno y no el resto igual para los demas botones solo avanza un registro nada mas no entiendo porque, el codigo es el siguiente:

Private Sub cmddesp_Click(Index As Integer)
If Rs.State = 1 Then Rs.Close
Rs.Open "select * from categoria", Cn
Select Case Index
Case 0
Rs.MoveFirst
Case 1
Rs.MovePrevious
Case 2
Rs.MoveNext
Case 3
Rs.MoveLast
End Select
txtcod.Text = Rs!idcat
txtcat.Text = Rs!Nomcat
cmddesp(1).Enabled = IIf(Rs.AbsolutePosition = Rs.RecordCount, false, True)
cmddesp(3).Enabled = IIf(Rs.AbsolutePosition = Rs.RecordCount, false, True)
cmddesp(0).Enabled = IIf(Rs.AbsolutePosition = 1, True, True)
cmddesp(2).Enabled = IIf(Rs.AbsolutePosition = 1, False, True)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problema de desplazamiento

Publicado por P3L30N2009 (701 intervenciones) el 07/01/2009 08:30:24
Lógico!

Cada vez que pinchas en el botón estás abriendo el recordset y al abrirlo siempre se posiciona en el primer registro, con lo cual aunque le des 'siguiente' nunca pasará del segundo registro de la tabla.

Solución: Abre el recordset en otro módulo, por ejemplo en el mismo donde haces la conexión.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar