Excel - xlodbc eof y bof

   
Vista:

xlodbc eof y bof

Publicado por Jeane (15 intervenciones) el 06/05/2009 18:35:12
hola!
estoy haciendo una mantenimiento en vba con una coneccion de datos externa utilizando el complemento XLODBC

ha corrido todo bien las consultas y también al crear un nuevo item atraves del from vba.

ahora el mantenimeinto debe tener botones de navegacion "primer, anterior, siguiente y ultimo registro"

hice este código pero tantiando con otros codigos pero no corre bien que me aconsejarían hacer?:

'-----------------------------------
sub cmb_bnave()

Dim strRs As String
Dim rsODBC As Variant
ID& = SQLOpen("DSN=DIRTRIM")

strRs = "SELECT CARGO.CARGO_COD, CARGO.CARGO_DESC FROM CARGO CARGO ORDER BY CARGO.CARGO_DESC"""

rsODBC = SQLRequest(ID&, strRs)

If rsODBC.EOF Then MsgBox "EOF!"

'Do While Not rsODBC.EOF
'... code, that is not executed
'rsODBC
'Loop

end sub
'--------------------------------------
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