Fórum Remover registro de duas tabelas - Delphi - ADO #526626
23/07/2015
0
Uso um banco Access com 2 tabelas. A tabela VENDA e a tabela ITENSVENDA. Fiz um button que me permite excluir algum registro de venda, porém eu gostaria que os dados referentes na tabela ITENSVENDA fossem deletados junto. Vi aqui alguns problemas semelhantes, mas com o ADO não.
O comando para deletar é esse:
Alguém me ajuda? :(
O comando para deletar é esse:
if MessageDlg('Deseja excluir o registro ?', mtWarning, [mbYes, mbNo], 0) = mrYes then
Tabela.Delete;Alguém me ajuda? :(
Firmino
Curtir tópico
+ 0
Responder
Posts
24/07/2015
Raimundo Pereira
Exemplo
DELETE FROM VENDA WHERE ID_VENDA ='1';
DELETE FROM ITENSVENDA WHERE ID_VENDA ='1';
OU SEJA COLOQUE O CAMPO ID_VENDA NAS DUAS TABELAS.
QUANDO CANCELAR A VENDA EXECUTE OS DOIS COMANDOS.
DELETE FROM VENDA WHERE ID_VENDA ='1';
DELETE FROM ITENSVENDA WHERE ID_VENDA ='1';
OU SEJA COLOQUE O CAMPO ID_VENDA NAS DUAS TABELAS.
QUANDO CANCELAR A VENDA EXECUTE OS DOIS COMANDOS.
Responder
Gostei + 0
24/07/2015
Raimundo Pereira
[img]http://arquivo.devmedia.com.br/forum/imagem/437747-20150724-161319.jpg[/img]
Responder
Gostei + 0
25/07/2015
Firmino
Obrigado pela ajuda, consegui resolver, mas foi um pouco diferente:
:)
begin
if MessageDlg('Deseja excluir o registro ?', mtWarning, [mbYes, mbNo], 0) = mrYes then
while not (DM.ADOTableItensVenda.EOF) do // laço de repetição
begin
DM.ADOTableItensVenda.Delete;
end;
DM.ADOTableVenda.Delete;
Close;
end;:)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)