Deletar Registro Utilizado Em 2 Tabelas

[Guest Alisson]

olá, a minha dúvida é a cguint: Como fazer pra comparar e/ou verificar numa tabela que não possui registros com o mesmo código antes de excluir.

Exemplo: Tabela Itens e Tabela Classificação.

Ao clicar em um registro na tabela Classificação para excluir, ele verifica se o mesmo não está sendo utilizado na tabela Ítens, já que o mesmo é chave estrangeira nessa tabela.

Eu tentei acrescentar uma query no formulário e fazer uma comparação e até que funcionou, mas apenas com o 1º registro, como comparar com todos? Desde já grato pela atenção! Abaixo está a comparação:

if IBQ_ClassificaoCOD_Classificao.Value = IBQ_ItemCOD_Classificacao.Value then...

[Progr'amador]

Olá,

você pode usar uma outra query, tipo;

IBQuery.Close;
IBQuery.Sql.Clear;
IBQuery.Sql.Add('Select * from ITENS');
IBQuery.Sql.Add('Where COD_Classificacao = :cod');
IBQuery.Params[0].Value := IBQ_ClassificaoCOD_Classificao.Value;
IBQuery.Open;

if  IBQuery.RecordCount  > 0 then... 

Abs. Progr'amador.

[Guest Alisson]

D++++++++.... pow, vlw MESMO! Agora é um problema a menos pra eu me preocupar! E o melhor, essa é uma solução simples e principalment rápida, que ateh um iniciante como eu conseguiu fazer sem problema algum! Show d bola irmão, abraços...