Сравнение 2 файлов dbf

[Аватар]

Провайдера OLE DB Provider for Visual FoxPro под рукой нет, попробовал JET OLE DB с командной строкой
Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=e:\dbf\;Mode=Read;Extended Properties=DBASE IV;Persist Security Info=False
запросы типа "SELECT * FROM NAZ_ALL" и "SELECT * FROM WM" съел без проблем, кодировка тоже в порядке, запросы от Сержа ни в какую - не понимает функций FOXPRO. А написать программу по сканированию данных в дельфях по двум полученным таблицам проблема?

[AlexFBG]

Сообщение от Аватар

А написать программу по сканированию данных в дельфях по двум полученным таблицам проблема?

Изначально думал, что так и придется сделать, а как реализовать не доходит. Алгоритм примерно такой себе представляю: создать переменную, присвоить ей значание запись1 таблицы, поля -фамилия+имя+отчество+год рождения, проверяем наличие переменной в записях второй таблицы, если нет - записываем значение переменной в файл, обнуляем переменную, переходим к следующей записи в таблице№1. Таким образом определяется вхождение таб1 в таб2, потом меняем таблицы местами и находим вхождение таб2 в таб1. Все понимаю а как на Delphi реализовать? Есть ли варианты проще? Устанавливать Fox не желательно для меня.

[ReportCube]

Вроде бы можно и так: обычное соединение с помощью ADO и выполняем запрос

SELECT * FROM naz_all a LEFT OUTER JOIN wm b ON
UCASE(TRIM(TRIM(TRIM(a.FM) + ' ' + a.IM) + ' ' + a.OT)) + ' ' + Str(a.DTR) = b.PERSONOUID

Одно условие

WHERE NOT b.PERSONOUID IS NULL

Другое условие

WHERE b.PERSONOUID IS NULL

[Аватар]

На дельфях простенько набросал, можно за основу взять

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ADODB, StrUtils, DB;

type
  TForm1 = class(TForm)
    ADOQueryWM: TADOQuery;
    ADOQueryNA: TADOQuery;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var xList: TStringList;
    s,xFm,xIm,xOt: String;
    i,j: Integer;
    xDtr: TDateTime;
    xFind: Boolean;
function ParsePersonouid(Personouid: String): Boolean;
begin
  Result:=False;
  s:=Trim(Personouid);
  j:=1;
  i:=PosEx(' ',s,j);
  if i=0 then Exit;
  xFm:=Copy(s,j,i-j);
  j:=i+1;
  i:=PosEx(' ',s,j);
  if i=0 then Exit;
  xIm:=Copy(s,j,i-j);
  j:=i+1;
  i:=PosEx(' ',s,j);
  if i=0 then Exit;
  xOt:=Copy(s,j,i-j);
  j:=i+1;
  try
    xDtr:=StrToDate(Copy(s,j,Length(s)-j+1));
  except
    Exit;
  end;
  Result:=True;
end;
begin
  DateSeparator:='.';
  ShortDateFormat:='dd/mm/yyyy';

  ADOQueryWM.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\dbf\;Mode=Read;Extended Properties=DBASE IV;Persist Security Info=False';
  ADOQueryWM.SQL.Text:='SELECT * FROM WM';
  ADOQueryWM.Active:=True;

  ADOQueryNA.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\dbf\;Mode=Read;Extended Properties=DBASE IV;Persist Security Info=False';
  ADOQueryNA.SQL.Text:='SELECT * FROM NAZ_ALL ORDER BY FM,IM,OT,DTR';
  ADOQueryNA.Active:=True;

  xList:=TStringList.Create;
  xList.Add('Записи WM не найденные в NAZ_ALL');
  ADOQueryWM.First;
  while not ADOQueryWM.Eof do begin
    xFind:=ParsePersonouid(ADOQueryWM.FieldByName('Personouid').AsString) and
           ADOQueryNA.Locate('FM;IM;OT',VarArrayOf([xFm,xIm,xOt]),[loCaseInsensitive]);
    if xFind and (ADOQueryNA.FieldByName('DTR').AsDateTime<>xDtr) then begin
      xFind:=False;
      while not ADOQueryNA.Eof and
            AnsiSameText(ADOQueryNA.FieldByName('FM').AsString,xFm) and
            AnsiSameText(ADOQueryNA.FieldByName('IM').AsString,xIm) and
            AnsiSameText(ADOQueryNA.FieldByName('OT').AsString,xOt) do begin
        xFind:=ADOQueryNA.FieldByName('DTR').AsDateTime=xDtr;
        if xFind then Break;
        ADOQueryNA.Next;
      end;
    end;
    if not xFind then xList.Add(ADOQueryWM.FieldByName('Personouid').AsString);
    ADOQueryWM.Next;
  end;

  xList.Add('');
  xList.Add('Записи NAZ_ALL не найденные в WM');
  ADOQueryNA.First;
  while not ADOQueryNA.Eof do begin
    s:=ADOQueryNA.FieldByName('FM').AsString+' '+
       ADOQueryNA.FieldByName('IM').AsString+' '+
       ADOQueryNA.FieldByName('OT').AsString+' '+
       FormatDateTime('dd.mm.yyyy',ADOQueryNA.FieldByName('DTR').AsDateTime);
    if not ADOQueryWM.Locate('Personouid',s,[loCaseInsensitive]) then xList.Add(s);
    ADOQueryNA.Next;
  end;

  xList.SaveToFile('e:\dbf\Protokol.txt');
  xList.Free;
  ADOQueryWM.Active:=False;
  ADOQueryNA.Active:=False;
end;

end.

[AlexFBG]

Выдает ошибку: File ucase.prg does not exist. Поставщик данных MS OLE DB Provider for Visual FoxPro.

[AlexFBG]

Аватар, огромное спасибо, все получилось. Даже не надо Provider for Visual FoxPro! Дороботаю интерфейс и поделюсь с коллегами, права на алгоритм твой.

[Аватар]

AlexFBG не забудь восстановить значения DateSeparator и ShortDateFormat если код будешь в проект встраивать. Ну и обработку исключений не мешало бы в код вставить

[antonon82]

Помогите пожалуйста сравнить 2 dbf файла и сохранить в dbf

[Stilet]

antonon82

Во-первых: Не лезь в чужую тему.
Во-вторых: Может стоит выложить файлы?

[antonon82]

Как тут написать в личные сообщения?