bom dia, tentei fazer o codigo para copiar a tabela do jeito q você me disse segue abaixo: procedure TForm1.Button1Click(Sender: TObject);
var L:TStringList;
begin
L := TStringList.Create;
ADOConnection1.GetTableNames(L);
if L.IndexOf('MENU') >= 0 then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.text :=('Insert into MENU02 (DESCRICAO, CHAVE, ICONE, LIBERADO, ORDEM) Select DESCRICAO, CHAVE, ICONE, LIBERADO, ORDEM FROM MENU');
ADOQuery1.ExecSQL;
L.Free;
ShowMessage('Tabela Criada com sucesso!');
end;
end;
end. Porem não esta funcionando... não sei onde esta o erro...