rst mover al siguiente registro

[carnero]

Código:

           
            Log.SQL = "select * from PROFESOR"
            Log.rst.Open Log.SQL, Log.cnn, adOpenDynamic, adLockOptimistic
          

If Not Log.rst.EOF Then
    Log.rst.MoveNext
  
        Text4(1).Text = Log.rst.Fields(0)
        Text5(2).Text = Log.rst.Fields(1)
        Text6(3).Text = Log.rst.Fields(2)
        Text7(4).Text = Log.rst.Fields(3)
        Text8(5).Text = Log.rst.Fields(4)
        Text9(6).Text = Log.rst.Fields(5)
        Text10(7).Text = Log.rst.Fields(6)
        Text11(8).Text = Log.rst.Fields(7)
        Text12(9).Text = Log.rst.Fields(8)
End If

If Log.rst.EOF Then
   Log.rst.MovePrevious
        

    End If

tengo el siguiente codigo, funciona, pero no como deberia jajajaj

el problema es que si tengo 3 registro avanza solamente hasta el 2, no se porque no sigue avanzando
¿que puede ser?

gracias

[gogupe]

Prueba haciendo esto:

Código:

           
            Log.SQL = "select * from PROFESOR"
            Log.rst.Open Log.SQL, Log.cnn, adOpenDynamic, adLockOptimistic
          

while log.rst.EOF = false

  
        Text4(1).Text = Log.rst.Fields(0)
        Text5(2).Text = Log.rst.Fields(1)
        Text6(3).Text = Log.rst.Fields(2)
        Text7(4).Text = Log.rst.Fields(3)
        Text8(5).Text = Log.rst.Fields(4)
        Text9(6).Text = Log.rst.Fields(5)
        Text10(7).Text = Log.rst.Fields(6)
        Text11(8).Text = Log.rst.Fields(7)
        Text12(9).Text = Log.rst.Fields(8)

    Log.rst.MoveNext
End If

El comando movenext debe de ponerlo al final, para que te muestre el primero.

[carnero]

funciona igual que el que yo tenia solo se mueve 1 ves

que puedo hacer????

[carnero]

ya lo arregle mi error era hacer la consulta denuevo :P
gracias de todas maneras

El comando movenext debe de ponerlo al final, para que te muestre el primero.

esta equivocado es todo lo contrario