Cuantos registros hay en un archivo

08/04/2005 - 20:26 por Alr | Informe spam
Estoy haciendo una serie de reportes en Excel, estos reportes se generan a
partir de bases de datos "Dbf". Y ya que aun tengo algunas dudas me temo que
seguire consultandolos, ya que este grupo me ha sido de gran utilidad, lo
cual les agradezco mucho.

Como se cuantos registros tengo en un archivo?
Lo estoy haciendo barriendo todo el archivo y agregando un contador,
haciendo un "do while not rs.eof" y un "Loop", donde "rs" es el recordset.
El caso es que por lo que he visto el recordset tiene varias propiedades
como "rs.MoveFirst", "rs.MoveNext", puedo saber el numero de campos que
tiene con "rs.Fields.Count", etc., por lo que pense que la propiedad
"rs.RecordCount" me daria esa informacion, sin embargo el valor que me da
es -1, entonces pense en colocarme en el ultimo registro con "rs.MoveLast",
pero cuando llego a esta linea el programa se salta todas las demas lineas
sin enviarme ningun error por lo que ignora el codigo que esta debajo de
esta linea.
Estoy haciendo algo mal?
Agradeceria algo de ayuda.
Si gustan puedo enviarlos el codigo que tengo.

Saludos al grupo.
 

Leer las respuestas

#1 KL
08/04/2005 - 20:43 | Informe spam
Hola Alr,

Pueba hacer:

With rs
.MoveLast
x=.RecordCount
End With

Saludos,
KL


"Alr" wrote in message
news:
Estoy haciendo una serie de reportes en Excel, estos reportes se generan a
partir de bases de datos "Dbf". Y ya que aun tengo algunas dudas me temo
que seguire consultandolos, ya que este grupo me ha sido de gran utilidad,
lo cual les agradezco mucho.

Como se cuantos registros tengo en un archivo?
Lo estoy haciendo barriendo todo el archivo y agregando un contador,
haciendo un "do while not rs.eof" y un "Loop", donde "rs" es el recordset.
El caso es que por lo que he visto el recordset tiene varias propiedades
como "rs.MoveFirst", "rs.MoveNext", puedo saber el numero de campos que
tiene con "rs.Fields.Count", etc., por lo que pense que la propiedad
"rs.RecordCount" me daria esa informacion, sin embargo el valor que me da
es -1, entonces pense en colocarme en el ultimo registro con
"rs.MoveLast", pero cuando llego a esta linea el programa se salta todas
las demas lineas sin enviarme ningun error por lo que ignora el codigo que
esta debajo de esta linea.
Estoy haciendo algo mal?
Agradeceria algo de ayuda.
Si gustan puedo enviarlos el codigo que tengo.

Saludos al grupo.



Preguntas similares