Deletar registro (registro de outra tabela)

Question

tenho uma tablea material e outra movimentacaooq eu quere fazer �:quando deletar qquer material, deletar a movimentacao q existir com o material q deleteija tentei muito, mais nao estou conseguindo, V...

Zottis · Answer

Qual a linguagem que voc� usa?Se for delphi use um loop antes de deletar(Before delete)Zottis...

Wolverine · Answer

Eu uso Delphi e Paradox acesso BDE,
eu ja usei isso zottis (while not table.eof do)
so q � esta dando certo
Minha Tabela
Material
Codigo,Nome,Quantidae,
Movimentacao
Codigo,Data,Quantidade,Codigo_material

ja tentei tabem usar sql (delete from movimentacao where codigo_material = :Codigo_material(este sendo o codigo da tabela Material)), e depois eu deletava o material (tablematerial.delete)
so q esta dando um erro no dephi
Blz

Zottis · Answer

As tabelas sao master details?De uma olhada no demo do delphi DemosDBMastappmastapp.dprno DM na tabela orders before deletePara mim deu certo quando usava paradox......

Wolverine · Answer

o exemplo q tem no delphi eu fiz igual, s� q ele esta deletando td os registros da tabela movimenta��o, e � s� os registros do material q foi deletado
eu quero fazer �, quando, no form Material, deletar o material, tds as movimenta��es que contenha o mesmo sejam deletados
e se eu uso master details eu � sei oq �
tem como vc me ou algu�m passar-me o c�digo para fazer isso
Blz, T+

Wolverine · Answer

:( Help...

Martoss · Answer

Com q banco de dados tah trabalhando???Ja viu como estah o relacionamento?Talvez o problema possa ser no Banco de Dados, no relacioamento. fala ae, soh pra confirmar...

Wolverine · Answer

Eu uso Delphi e Paradox acesso BDE, se vc quiser posso mandar para vc dar uma olhada...

Wolverine · Answer

:( Ajuda...

Aroldo Zanela · Answer

Colega,Supondo que c�digo seja inteiro:[code:1:ed6d33f84b]With Query dobegin  /* Remove detalhes antes do mestre para n�o ficar �rf�os */  Close;  SQL.Text := �DELETE FROM movimentacao WHERE codigo = :codigo�;  ParamByName(�codigo�).Value := StrToInt(Edit1.Text);  ExecSQL;  Close;  SQL.Text := �DELETE FROM material WHERE codigo = :codigo�;  ParamByName(�codigo�).Value := StrToInt(Edit1.Text);  ExecSQL;end;[/code:1:ed6d33f84b]...

Wolverine · Answer

MUITO ABRIGADO [b:21c23b80d5]Aroldo Zanela[/b:21c23b80d5], ate q fim, agora deu certo

  if Application.MessageBox(�Deseja excluir este material?�,�Confirme�,
        MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = IDNO then
        Exit; // retorna (sem fazer nada)
    // devemos excluir os itens primeiro, para n�o termos
    // registros �rf�os
    with DM do
    begin
    try
      With Query do
      begin
     //* Remove detalhes antes do mestre para n�o ficar �rf�os */
        Close;
        SQL.Text := �DELETE FROM movimentacao WHERE codigo_material = :codigo�;
        ParamByName(�codigo�).Value := StrToInt(DBEdit1.Text);
        ExecSQL;
      end;
      TableMaterial.Delete;
      TableMovimentacao.Refresh;
    except
        ShowMessage(�Ocorreu um erro durante a exclus�o do pedido�);
    end;
   end;
end;

Wolverine · Answer

:lol:
[b:a335270d04] Aroldo Zanela[/b:a335270d04], estava dando erro na minha logica pq estava usando, sql.add, e deu certo com sql.text, tem como vc me explicar o pq, ou endicar um lugar para eu tirar essa outra duvida

Aroldo Zanela · Answer

Colega,A principal diferen�a entre a propriedade Text e o m�todo Add da classe TQuery prende-se ao fato que ao atribuir o conte�do por meio da propriedade Text ele sobrescreve o valor atual, j� no caso de Add � necess�rio utilizar o m�todo Clear antes para limpar o conte�do da propriedade Text.S�o equivalentes da seguinte forma:[code:1:81ea2cf009]Query.Close;Query.SQL.Clear;Query.SQL.Add(�SELECT * FROM tabela�);Query.Open;Query.Close;Query.SQL.Text := �SELECT * FROM tabela�;Query.Open;[/code:1:81ea2cf009]...

Wolverine · Answer

Aroldo Zanela, eu tenho certeza q estava dando sql.clear, mais estava dando erro, mais Muito Obrigado...

F�rum Deletar registro (registro de outra tabela) #211927