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.