Update SQL

Delphi

14/04/2004

Tenhu uma tabela de clientes e os codigos foram alterados, ainda tenho os codigos antigos e preciso alterar em uma outra tabela os codigos dos clientes antigos para os novos codigos!!! Como faço essa atualização???

vlw!!!


Breguede

Breguede

Curtidas 0

Respostas

Wtjunior

Wtjunior

14/04/2004

Danilo,

O campo código deve ser chave (PK) certo...
Esta outra tabela é uma tabela FILHA ?
Qual banco de dados vc usa?
Estes novos códigos estão em outra tabela?
Existem relacionamentos com os códigos antigos?

Wilson


GOSTEI 0
Marcelo

Marcelo

14/04/2004

Tente da seguinte maneira:

procedure onclick_do_botao( sender : TObject );
{  essa funcao interna verifica se é o mesmo cliente pelo nome,
    pois segundo o que disse, a unica relacao entre as tabelas
    é o nome, caso tenha outro, voce pode alterar isso!
}
function Localiza : Boolean;
begin
  tbAntiga.IndexName := ´iNome´;  // especifica o index da tabela
  tbAntiga.FindeNeares([tbNovaNOME.Text]);  // efetua a busca
  if tbAntigaNOME.Text = tbNovaNOME.Text then   // caso seja igual
    result true  // retorna true!
  else  // caso contrario
    result false;  // retorna false!
end;
betin
  tbAntiga.Firsh;  // tabela que deve ser atualizada!
  while not tbAntiga.Eof do
    begin
      if Localiza then  // recebe a resposta da funcao "Localiza"
        begin  // efetua a atualizacao
          tbAntiga.Edit;
          tbAntiga.FieldByName( ´CODIGO´ ).AsString := tbNovaCODIGO.Text;
          tbAntiga.Post;
        end;
      tbAntiga.Next;
    end;
end;


Valeu?


GOSTEI 0
POSTAR