OpenRecordset no me trae todos los registros

[ldcaraza]

Hola,

tengo una rutina que extrae datos de una BD access por un SQL. El problema que tengo es que si ejecuto el SQL desde access me regresa 93 registros, pero en VB me regresa sólo uno. El código como lo tengo es el siguiente:

Dim dbsSQL As Database
Dim rsIncidencias As Recordset
Dim arr_incidencias As Variant

Set dbsSQL = CurrentDb

Set rsIncidencias = dbsSQL.OpenRecordset(txt_sql, dbOpenSnapshot, dbReadOnly)
arr_incidencias = rsIncidencias.GetRows()
int_reccount = UBound(arr_incidencias, 2)

rsIncidencias.Close


Inspeccionando la ejecución veo que rsIncidencias.RecordCount es 1

Saludos,

[Kruzado]

revisaste el valor de txt_ql?, digo interrumpiste el programa y viste que valor tenia al momento de abrir la base de datos?
tambien puedes probar con un movelast, porque me ha sucedido que las bases snapshot las carga en memoria al momento de utilizar el registro y al momento de utilizar el recordcount no me mostraba el total de registros hasta que le dabe un tutabla.movelast, entonces si no "navego" por la tabla, no carga los registros y por eso el recordcount sale en uno, no tengo idea porque pasa, pero pasa

[ldcaraza]

Gracias Kruzado... lo logré solucionar cambiando el código a:

Dim dbsSQL As Database
Dim rsIncidencias As Recordset
Dim arr_incidencias As Variant

Set dbsSQL = CurrentDb

Set rsIncidencias = dbsSQL.OpenRecordset(txt_sql, dbOpenSnapshot, dbReadOnly)

rsIncidencias.MoveLast
int_reccount = rsIncidencias.RecordCount
rsIncidencias.MoveFirst

arr_incidencias = rsIncidencias.GetRows(int_reccount)
int_reccount = UBound(arr_incidencias, 2)