importar datos de excel a firebird

[thomasini]

tengo una consulta, ya que tengo un caso similar pero mi traba es que no puedo leer el total de registros del excel .... quisiera saber como hacen o como hicieron para saber hasta que registro llenar los datos en la BD..
les pongo un ejemplo...

Si tengo un excel con 150 filas tendria que recorrer las 150 filas pero como se sabe q son 150 filas e tratado de hacer un bucle pero este demora mucho en tiempo de ejecucion no se si uds puedan tener algun otro tipo de metodo para saber q ese excel tiene una cierta cantidad de registros, ya que para mi caso el numero de registros que debo leer es variable...

Gracias
Thomas M.

[Dalmine]

hola que tal mira asi yo recorro el excel, ya sabiando cuantas columnas tiene y teniendo una tabla de acuerdo a los campos que tien excel

table1.open;
While not ADODataSet1.EoF do begin
table1.insert;
Table1.FieldByName('nombre').Value := AdoDataSet1.Fields[0].Value ;
Table1.FieldByName('num').Value:= AdoDataSet1.Fields[1].Value ;
Table1.FieldByName('num1').Value := AdoDataSet1.Fields[2].Value ;
Table1.FieldByName('ape').Value := AdoDataSet1.Fields[3].Value ;
table1.post;
AdoDataSet1.Next;
end;
end;


para guiarme he usado este ejemplo que hizo otro companero del foro http://www.clubdelphi.com/foros/show...xcel+a+paradox

suertee