Fórum Como deletar duas tabelas que nao tem referencia? #58674

try //começa o bloco do try/except
    dm.qFunc.Close;
    dm.qFunc.Sql.Add(´Delete from salario_m S where S.id_sal ´
               +´in(select F.id_gerarformula from formulas F ´
               +´where (S.id_sal = :pExclui))´);
    dm.qFunc.ParamByName(´pExclui´).AsInteger:=vExclui;
    dm.qFunc.ExecSql;
    //---tabela filha
    dm.zTFormula.Close;
    dm.zTFormula.Sql.Add(´Delete from Formulas ´
                     +´where F.id_gerarFormula = :pExclui)´);
    dm.zTFormula.ParamByName(´pExclui´).AsInteger:=vExclui;
    dm.zTFormula.ExecSql;
    dm.qFunc.Refresh; //faz um refresh na tabela para atualizar os dados
    dm.zTFormula.Refresh;
  except
    on Exc:Exception do
    begin
       ShowMessage(´Ocorreu um erro na tentantiva de Excluir os registro: ´ + Exc.Message);
       DM.zDB.Rollback;
       dm.qFunc.Refresh; //faz um refresh na tabela para atualizar os dados
    end;
  end; //final do bloco do try/except