Modificando la función de
ecfisa, podemos copiar cualquier base de datos
Origen o
Destino
Código Delphi
[-]
procedure CloneTable(TableSource, TableTarget: String);
begin
with TADOQuery.Create(Self) do
begin
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=Unidad:\Ruta\BaseDeDatos.mdb;' +
'Persist Security Info=False';
SQL.Add('SELECT *');
SQL.Add(' INTO ' + TableTarget);
SQL.Add(' FROM ' + TableSource);
ExecSQL;
Free;
end;
end;
Un saludo.