всем спаисибо вообщем то решил проблему таким образом.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | 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;
|
осталось еще щас сжатие запихнуть чтоб БД не жирнела и все хорошо)