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

всем спаисибо вообщем то решил проблему таким образом.
Код:
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_new';
      adotable1.Open;


//Âñòàâêà
   adoquery9.SQL.Add(' delete from lgotniki;');
    adoquery9.ExecSQL;
    adoquery8.SQL.Add(' INSERT INTO [lgotniki MFC].[lgotniki] SELECT * ');
      adoquery8.SQL.Add('FROM [lgotniki_NEW].[lgotniki_new] ');
      adoquery8.ExecSQL;
    Label2.Caption:='Áàçà äàííûõ óäà÷íî îáíîâëåíà';
      label2.Visible:=true;
осталось еще щас сжатие запихнуть чтоб БД не жирнела и все хорошо)
Ответить с цитированием