ediçao de todos os registos numa tabela!

05/11/2005

boas caros programadores!!

digamos que tenho uma tablea em paradox,em que uso ttable e que contem os seguintes dados:


Nome telefone telemovel
joao 111 111
pedro 222 222
joao 111 111
teresa 333 333

e o que gostaria de fazer é:
quando o utilizador quisesse alterar o campo joao para:

telemovel telefone
555 555



ele alterasse todos os registos que a tabela contem.


como posso fazer isto???

sou muito novato em delphi e estou a tentar começar a aprofundar os meus conhecimentos,espero que me possam ajudar.

desda ja o meu muito obrigado!


Cyberchip

Respostas

05/11/2005

Firekiller

No caso, creio que uma query seria melhor:

with Query do begin
close;
SQL.Text := ´Update Tabela Set TeleMovel = :Telemovel, Telefone = :Telefone Where Nome = :Nome´;
ParamByname(´Telemovel´).AsString := ´555´;
ParamByName(´Telefone´).AsString := ´555´;
ParamByname(´Nome´).AsString := ´João´;
ExecSql;
end;


Responder Citar

05/11/2005

Martins

[b:bb9dff5caf]Pergunta:[/b:bb9dff5caf]

Todos dessa tabela passarão a ter o mesmo número telemovel?


Responder Citar

05/11/2005

Firekiller

Colega Martins, creio que foi apenas um exemplo... só para demonstrar como seria a tabela.


Responder Citar

05/11/2005

Zangado

mNome := dbCadastro.FieldByName(´Nome´).AsString;
mMatricula := dbCadastro.FieldByName(´Matricula´).AsString;

while not dbCadastro.eof do begin
if dbCadastro.FieldByName(´Nome´).AsString = mNome then begin
dbCadastro.edit;
dbCadastro.FieldByName(´Telefone´).AsString := edTelefone.Text;
dbCadastro.Post;
end;
dbCadastro.Next;
end;
dbCadastro.FindKey([mMatricula]);


Responder Citar

06/11/2005

Cyberchip

aee galera muito obrigado...funciona na perfeiçao (e mais qualquer coisa q aprendi no delphi), muito obrigado galera


Responder Citar