Código
begin
Try
With Query1 do
Begin
Close;
Sql.Clear;
Sql.Add('Insert Into tb_pai
(Cod_Orcamento,Cod_Aba,Cod_Atividades,Descricao_Atividades,Cod_Mais)Select
Cod_Orcamento,Cod_Aba,Cod_Atividades,Descricao_Atividades,Cod_Mais>From tb_orcamentos');
Sql.Add('Where cod_orcamento = 6');
ExecSql;
table2.refresh;
End
Except
Showmessage('Favor Selecionar novamente');
End
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009