Remover registro de duas tabelas - Delphi - ADO

Delphi

23/07/2015

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:
  if MessageDlg('Deseja excluir o registro ?', mtWarning, [mbYes, mbNo], 0) = mrYes then
    Tabela.Delete;



Alguém me ajuda? :(
Firmino

Firmino

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

23/07/2015

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.
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

23/07/2015

[img]http://arquivo.devmedia.com.br/forum/imagem/437747-20150724-161319.jpg[/img]
GOSTEI 0
Firmino

Firmino

23/07/2015

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;



:)
GOSTEI 0
POSTAR