Показать сообщение отдельно
  #3  
Старый 03.02.2016, 16:08
Tollly1992 Tollly1992 вне форума
Прохожий
 
Регистрация: 03.02.2016
Сообщения: 5
Версия Delphi: Delphi
Репутация: 10
По умолчанию

Хоренькак ето туплю жутко на этом моменте(
вот смотрите открываю одну БД и вторую выбираю местоположение. дальше нужно удалить таблицу из первой БД и вставляю в нее всю таблицу из второй БД.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var   Filename,s:string;
begin
adoconnection2.Connected:=true;
adotable2.Open;
     OpenDialog1.Execute;
     Filename:=opendialog1.FileName;
     ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
         'Data Source='+filename+';Persist Security Info=False';
      ADOConnection1.Connected:=true;
      ADOTable1.TableName:='lgotniki';
      adotable1.Open;


//Âñòàâêà
      adoquery8.SQL.Add('INSERT INTO lgotniki_MFC.lgotniki SELECT *');
      adoquery8.SQL.Add('FROM lgotniki_NEW.lgotniki_new ');
      adoquery8.Active:=true;
Ответить с цитированием