Ado Excel muchos datos

[Delfino]

Estoy accediendo por medio de dos AdoQuery a dos hojas Excel y con una bucle recorriendo sus datos para automatizar un proceso. Cuando hay pocos datos funciona a la perfección, pero cuando pasan de las 5000 filas o menos la bucle es interminable. No da error pero se queda ahí pensando. Alguien sabría una solución? Saludos..

[Neftali [Germán.Estévez]]

¿Exactamente cual es el código del bucle? ¿Qué haces para cada fila?
No me parece que 5000 filas sean un número demasiado grande.

[Delfino]

Ahi va el codigo :

Código Delphi [-]
   adoXls1.First;
   while not adoXls1.Eof do
    begin
     if TryStrToInt(adoXls1.Fields[0].AsString, IntVal) = False  then
      Continue;
     adoXls2.First;
     while not adoXls2.Eof do
      begin
       if adoXls2.Fields[0].AsInteger = IntVal then
        begin
         cdsCommon1.Insert;
         cdsCommon1.Fields[1].AsString := adoXls1.Fields[0].AsString;
         cdsCommon1.Fields[0].AsInteger := adoXls2.Fields[0].AsInteger;
         cdsCommon1.Post;
         Break;
        end;
       adoXls2.Next;
      end;
     if adoXls2.Eof then
      begin
       cdsDiff1.Insert;
       cdsDiff1.Fields[1].AsString := adoXls1.Fields[0].AsString;
       cdsDiff1.Fields[0].AsInteger := adoXls2.Fields[0].AsInteger;;
       cdsDiff1.Post;
      end;
     Application.ProcessMessages;
     adoXls1.Next;
    end;

Lo q quiero es entre dos Excel y basado en un campo clave sacar los valores q tiene en comun y los q tiene uno pero el otro no tiene, no se si hay mejor manera

[Neftali [Germán.Estévez]]

Empezado por Delfino

Lo q quiero es entre dos Excel y basado en un campo clave sacar los valores q tiene en comun y los q tiene uno pero el otro no tiene, no se si hay mejor manera

Tal vez podrías utilizar un par de SQL's.
Haciendo la INNER JOIN de ambas por el campo clave deberías obtener sólo aquellos registros coincidentes.

Y una LEFT JOIN o RIGHT JOIN y luego preguntando por NULOS te permirta saber los que están en uno y en otro no.

[Delfino]

Los joins donde irian? en una tercera AdoQuery?
Son dos archivos Excel independientes uno del otro..

Tienes algun ejemplo?

[Neftali [Germán.Estévez]]

Empezado por Delfino

Los joins donde irian? en una tercera AdoQuery?
Son dos archivos Excel independientes uno del otro..
Tienes algun ejemplo?

Mi idea era realizar una query con la JOIN sobre los dos excels que tienes ahora, utilizando hojas como tablas; El problema es que ningu he probado a realizarlo con libros distintos.

Se trataría de utilizar un Query que hiciera directamente la INNER entre las 2 hojas de los dos libros.

En SQL Server y ADO funciona esta nomenclatura:

Código SQL [-]
Select A.*, B.* from [BASEDATOS1].dbo.TTabla1 AS A
INNER JOIN [BASEDATOS2].dbo.TTabla2 AS B 
ON A.ID=B.ID

Se trataría de intentar hacer lo mismo, pero en este caso (Excel) las Hojas corresponden a las tablas y los libros a las Bases de Datos.

La teoría es esa, pero nunca lo he probado y no si el driver de Excel admite esa sintasix.

[cloayza]

Yo creo que el problema esta aqui...

Código Delphi [-]

{Al hacer continue se quedara siempre en el mismo registro, ya que el puntero de registro no se ha movido...
Sugiero antes de continue realizar un adoXls1.Next}
if TryStrToInt(adoXls1.Fields[0].AsString, IntVal) = False  then
begin
      adoXls1.Next;
      Continue;
end;

Saludos cordiales...

[Delfino]

Empezado por cloayza

Yo creo que el problema esta aqui...

Efectivamente ahi estaba el problema. Corregido ahora todo el proceso se hace en menos de 15 segundos para mas de 20000 registros..

[saldanaluis]

Tengo la necesidad de tomar información de excel y vi este tema, pero no veo como se usa ADO para conectarse a excel.
¿que se pone en el ADOConnection?
¿con que se accede, TADOTable?

Gracias por sus respuestas.

[Neftali [Germán.Estévez]]

Se hace de la misma forma en como te conectas a cualquier otra Base de Datos con ADO.
Te pongio una imagen para que veas los componentes. Lo único que cambia es la cadena de conexión.

Si buscas en los foros por "Excel ADO*" encontrarás muuuuchos temas al respecto.