Fórum Como fazer para apagar dados em duas tabelas? #390067
06/11/2010
0
procedure TFrmCadTurDisc.BtnExcluirAlunoClick(Sender: TObject);
begin
if not DmDados.IBQryAlunoTurma.IsEmpty then
begin
if Mensagem('Tem Certeza Que Deseja Excluir o Aluno da Turma?') then
begin
DmDados.IBQryAlunoTurma.Delete; DmDados.IBQryAlunoTurma.Close;
DmDados.IBQryAlunoTurma.Open;
end;
end
else
ShowMessage('Não existe nenhum Aluno na Turma para apagar!'); end;
Osmar
Curtir tópico
+ 0Posts
06/11/2010
Rafael Ribeiro
Espero ter ajudado.
Rafael
Gostei + 0
06/11/2010
Osmar
Gostei + 0
15/11/2010
Flavia Santos
- Primeiro apaga a chave estrangeira anterior:
ALTER TABLE Tabela_de_Notas DROP CONSTRAINT NomeChaveEstrangeiraAtual;
- Depois cria uma nova com a opção de deletar em cascata:
ALTER TABLE NOTAS ADD CONSTRAINT FK_NOTAS FOREIGN KEY (MATRICULA_ALUNO_NOTAS) REFERENCES TURMA_ALUNO(MATRICULA_ALUNO) ON DELETE CASCADE
flw,
Gostei + 0
22/05/2011
Osmar
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)