converter valores

Delphi

17/06/2007

ola pessoal estou com uma duvida q nao estou conseguindo fazer pois uso o delphi 7 Adotable............gostaria de como saber converter varios campos apos uma filtragem vou explicar melhor

tenho um campo chamado RAÇA pois eu faço uma filtragem no campo RAÇA po Campolina ai eu filtrei 15 animais por Campolina teria como eu converter esta 15 Raça de Campolina por Macho de sela ...dentro de um botao????????????? teria como mudalos todo de uma vez????? to precisando urgentemente senao perco o emprego


Keliniciante

Keliniciante

Curtidas 0

Respostas

Marcus_adriano

Marcus_adriano

17/06/2007

Será que utilizando a instrução Update não resolveria seu caso?
Mãos a obra:

UPDATE TABELA SET RAÇA SET MACHODESELA
WHERE (RAÇA = ´CAMPOLINA´)

Seria mais ou mesnoa isso aí.

Abraços.


GOSTEI 0
Marcus_adriano

Marcus_adriano

17/06/2007

Será que utilizando a instrução Update não resolveria seu caso?
Mãos a obra:

UPDATE TABELA SET RAÇA SET MACHODESELA
WHERE (RAÇA = ´CAMPOLINA´)

Seria mais ou mesnoa isso aí.

Abraços.


GOSTEI 0
Paullsoftware

Paullsoftware

17/06/2007

Se não entender o código, post ai pra gente os campos de sua tabela e banco ultilizado, já que usa AdoTable creio que seja Access ou SqlServer, mais seria legal passar usar o componente AdoDataSet que é bem melhor que o AdoTable ou AdoQuery, já que o mesmo funciona como os dois :wink:
primeiro vc pode excutar um filtro básico usando uma instrução SQL mais ou menos assim;
coloque 1 AdoQuery, 1 DataSource, 1 DbGrid, 2 Edit´s e button..
no onclick do button faça algo como:
begin
with AdoQuery do
begin
close;
sql.Clear;
sql.Add(´ Update SUA_TABELA  set ´);
sql.Add(´ raca = :NOVARACA ´);
sql.Add(´ where raca=:FILTRO ´);
ParamByName(´FILTRO´).Value := Edit1.Text;
ParamByName(´NOVARACA´).Value := Edit2.Text;
ExecSql;
//Código opcional, somente para mostrar as mudanças!
close;
sql.Clear;
sql.Add(´ Select * from SUA_TABELA ´);
sql.Add(´ where raca=:FILTRO ´);
ParamByName(´FILTRO´).Value := Edit2.Text;
Open;
end;//do with
end;
espero ter ajudado :wink:


GOSTEI 0
POSTAR