Прошу прощение за нубство.
Попробую объяснить что мне требуется.
К сожалению конкретизировать не могу что за табл и что там надо, поэтому буду описывать возможно немного запутанно.
Существует табл.№1 №2 №3 №4. Из каждой этой таблици путем сравнения например определенного толбца в №1 №2 и №3 табл нужно выдетруть информацию и записать ее в табл. №5. Затем по аналогии сравнить табл №3 и №4 и из талб №4 добавить в №5 недостающую информацию.
Вот все что у меня есть:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
ADOConnection1.Close;
ADOConnection1.ConnectionString := Format('Provider=VFPOLEDB.1;Data Source=%s;'
+ 'Mode=ReadWrite;Extended Properties="";User ID="";Password="";'
+'Mask Password = False; '
+ 'Cache Authentication=False;Encrypt Password=False;'
+ 'Collating Sequence = RUSSIAN; DSN = ""',[ExtractFilePath(OpenDialog1.FileName)]);
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(Format('select * from %s',
[ExtractFileName(OpenDialog1.FileName)]));
ADOQuery1.Active := True
end;
end;