Visual Basic - Recorrer un Recordset

Life is soft - evento anual de software empresarial
   
Vista:

Recorrer un Recordset

Publicado por Anesco (5 intervenciones) el 11/01/2015 20:43:13
Aunque tengo cierta experiencia en otros lenguajes, soy nuevo en VBA.
Pretendo recorrer un Recordset.
Dim dbsMiBaseDeDatos As DAO.Database
Dim rstMiTabla As DAO.Recordset
SetdbsMiBaseDeDatos = CurrentDb
Set rstProgramados = dbsMiBaseDeDatos.
OpenRecordset("MiTabla")
rstMiTabla.MoveFirst
Do Until rstMiTabla.EOF
MsgBox "" & rstMiTabla!MiCampo
rstMiTabla.MoveNext
Loop
El orden que obtengo de los registros es el inverso al de la tabla
He hecho todo tipo de comprobaciones,incluso he cambiado el método de búsqueda cambiando:
MoveFirst por Movelast, EOF por BOF y MoveNext por MovePrevious y entonces si obtengo el orden de la tabla
Podria enviar una copia de la base de datos si alguien pudiera ayudarmeGracias por atenderme, saludos
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

Recorrer un Recordset

Publicado por Juan Gilberto (277 intervenciones) el 12/01/2015 16:46:12
1
2
3
4
5
6
7
8
9
10
11
12
Dim dbsMiBaseDeDatos As DAO.Database
Dim rstMiTabla As DAO.Recordset
 
Set dbsMiBaseDeDatos = CurrentDb
Set rstMiTabla = dbsMiBaseDeDatos.OpenRecordset("MiTabla", dbOpenTable)
       rstMiTabla.Index = "nombre del indice"    'Si acaso esta tabla tiene un Indice lo cual da el orden
 
rstMiTabla.MoveFirst
Do Until rstMiTabla.EOF
    MsgBox "" & rstMiTabla!MiCampo
    rstMiTabla.MoveNext
Loop
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

Recorrer un Recordset

Publicado por Anesco (5 intervenciones) el 12/01/2015 20:48:11
Gracias por responder.
Continuo recibiendo mal el orden de los registros
Al parecer he debido diseñar mal esa tabla pues con las demás no tengo problemas
Voy a probar eliminando la tabla y creándola de nuevo
Muchas gracias por ayudarme, un saludo
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