Сравнить дваdbgrid -а

[alex89d]

Доброе время суток! помогите решить задачу! Нужно сравнить два набора данных в разных dbgrid-ах, Делаю вот так:

dbgrd1.DataSource.DataSet.First;
While not dbgrd1.DataSource.DataSet.eof do begin
       datus1:=dbgrd1.DataSource.DataSet.FieldByName('Дата').Value;
       dbgrd2.DataSource.DataSet.First;
           While not dbgrd2.DataSource.DataSet.eof do begin
              datus2:=dbgrd2.DataSource.DataSet.FieldByName('Дата').Value;
              try
                if datus1=datus2 then edt1.Text:='Ура' else
                dbgrd2.DataSource.DataSet.Next;;
              Finally
                    end;
           end;
           try
           if datus1=datus2 then edt1.Text:='Ура' else
           dbgrd1.DataSource.DataSet.Next;
             Finally
          end;
          end;
          end;

Помогите кто чем может!

[ReportCube]

Если данные из одной базы данных, то это проще сделать средствами SQL, в котором данные и сравнивают.

[evg_m]

ok:=false;
dbgrd1.DataSource.DataSet.First;
While not dbgrd1.DataSource.DataSet.eof do begin
  datus1:=dbgrd1.DataSource.DataSet.FieldByName('Дата').Value;
  dbgrd2.DataSource.DataSet.First;
  While not dbgrd2.DataSource.DataSet.eof do begin
    datus2:=dbgrd2.DataSource.DataSet.FieldByName('Дата').Value;
    if datus1=datus2 then ok:=true;
    if ok then break else dbgrd2.DataSource.DataSet.Next;
  end;
  if ok then break else dbgrd1.DataSource.DataSet.Next;
end;

ok:=false;
dbgrd1.DataSource.DataSet.First;
While not dbgrd1.DataSource.DataSet.eof do begin
  datus1:=dbgrd1.DataSource.DataSet.FieldByName('Дата').Value;
  ok:=dbgrid2.Locate('Дата', datus1, []);
  if ok then break else dbgrd1.DataSource.DataSet.Next;
end;

[alex89d]

БД разные, поэтому не SQL!
evg_m cпасибо! Очень выручил!

[alex89d]

А как вывести уникальные зачения из dbgrid1 и dbgrid2 в memo отсеяв одинаковые!

[evg_m]

if ok then break else dbgrd1.DataSource.DataSet.Next; //заменить на

if not ok then begin
 s:= <текст который хотите добавить>
 memo1.lines.add(s);
end; // обращаю внимание ЗДЕСЬ НЕТ "else"

dbgrd1.DataSource.DataSet.Next; //должна работать всегда !!! (это то чего не было в вашем первоначальном коде)

вывод данных уникальных для DBGrid1 (те из первой для которых нет "дубля" во второй).
для уникальных наоборот надо тот же цикл наоборот.

procedure ScanUnique(ds1, ds2);
begin
 //здесь цикл с заменой "глобальных" переменных 
 // Dgrid1.DataSource.Dataset ->ds1
 // Dgrid2.DataSource.Dataset ->ds2

end;

ScanUnique( DBgrid1.Datasource.Dataset, DBgrid2.DataSource.DataSet);
// и наоборот
ScanUnique( DBgrid2.Datasource.Dataset, DBgrid1.DataSource.DataSet);

[Аватар]

Разные базы не обязательно препятствие для SQL. СУБД какое?

[alex89d]

И звените за наглость, но можно на примере вложенного файла!

[Аватар]

А-а, Excel. SQL выборку из двух таблиц можно применить, но с ограничениями - либо через BDE, либо ADO, но линкуя через другую СУБД, например ACCESS или MS SQL. Думаю ТС это не понравится, поэтому без примеров

[ReportCube]

Объедините в одной книге два листа и сравнивайте через SQL как отдельные таблицы