ediçao de todos os registos numa tabela!
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!
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
Curtidas 0
Respostas
Firekiller
05/11/2005
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;
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;
GOSTEI 0
Martins
05/11/2005
[b:bb9dff5caf]Pergunta:[/b:bb9dff5caf]
Todos dessa tabela passarão a ter o mesmo número telemovel?
Todos dessa tabela passarão a ter o mesmo número telemovel?
GOSTEI 0
Firekiller
05/11/2005
Colega Martins, creio que foi apenas um exemplo... só para demonstrar como seria a tabela.
GOSTEI 0
Zangado
05/11/2005
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]);
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]);
GOSTEI 0
Cyberchip
05/11/2005
aee galera muito obrigado...funciona na perfeiçao (e mais qualquer coisa q aprendi no delphi), muito obrigado galera
GOSTEI 0