Integridade referencial - Rotina
23/05/2003
0
Tenho duas tabelas: Exemplo: uma Produtos e outra Categoria do Produto
Sempre que cadastro um produto eu informo a qual categoria ele pertence
existe uma integridade entre esta duas tabelas, no qual não permite eu excluir uma categoria quando há um produto cadastrado que utiliza ela.
A questão é como faria para tratar este erro e Mostrar mensagem “existe produto cadastrado para esta categoria”.
Se alguém puder me passar uma rotina, ou apostila fico muito grato!
Estou utilizando: DELPHI 7
Banco de dados: Interbase
Estou usando Dbexpress no qual utilizo SQLQuery, DatasetProvider e ClientDataSet.
jelves@bol.com.br
Jelves
Posts
23/05/2003
Wallacest
TProduto.First;
While not TProduto.Eof Do
begin
If ProdutoGrupo.AsString = TGrupodescricao.Text then
begin
ShowMessage(´ Tal...´);
[...Seus codigos...]
end;
DM.TPonto.Next;
end else
TGrupo.delete;
Acho q isso pode t ajudar
ah, isso em banco de dados Desktop (paradox). pode sem SQL tb.
Qualquer duvida, entre em contato
24/05/2003
E_gama
Coloque um componente Query (QryProduto) no form de cadastro de categorias, e configure-o adquedamente. Depois, antes de excluir a categoria faça:
if QryProduto.Active then QryProduto.Close; QryProduto.SQL.Text := ´select count(*) as QTEPROD from PRODUTO ´ + ´where CODIGOCATEGORIA = ´ + IntToStr(CODIGODACATEGORIAQUEDESEJAEXCLUIR); QryProduto.Open; if QryProduto.FieldByName(´QTEPROD´).AsInteger > 0 then raise Exception.Create(´Existem produtos cadastrados nessa Categoria !´);
Basta, é claro, que você configure os nomes de tabelas e campos de acordo com o suas informações.
26/05/2003
Jelves
Jelves
Clique aqui para fazer login e interagir na Comunidade :)