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.