很简单啦 with tAdoConnection.create(self) do try loginprompt:=false; onnectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mdb1.mdb;'; open('Admin','') execute('select * into [mdb2].b2 from b2'); execute('delete from [mdb2].b2'); finally free; end;
with tAdoConnection.create(self) do try
loginprompt:=false;
onnectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mdb1.mdb;';
open('Admin','')
execute('select * into [mdb2].b2 from b2');
execute('delete from [mdb2].b2');
finally
free;
end;