Duplicar una tabla con otro nombre dentro de una base de datos de access desde delphi

[ecfisa]

Hola feliz-58.

Agregar un TADOQuery y proba de este modo:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOTable1.Connection := ADOConnection1;
  ADOQuery1.Connection := ADOConnection1
end;

procedure CloneTable(aTable: TADOTable; aQuery: TADOQuery;
  const NewTableName: string);
var
  i   : Integer;
  Str : string;
begin
  Str := 'SELECT ';
  for i := 0 to aTable.FieldCount-1 do
    Str := Str + aTable.Fields[i].FieldName + ', ';
  SetLength(Str, Length(Str)-2); 
  Str := Str + ' INTO ' + NewTableName + ' FROM '+ aTable.TableName;
  with aQuery do
  begin
    Close;
    SQL.Text := Str;
    ExecSQL;
  end;
end;

Llamada ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  CloneTable(ADOTable1, ADOQuery1, Edit1.Text);
end;

No uso mucho ADO así que tal vez exista un modo mas simple o mejor de realizarlo. De ser así, seguro los compañeros mas experimentados con esos componentes te darán una mejor alternativa.

Saludos.