ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Edição de Cadastro

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
benilton
Novato
Novato


Registrado: Domingo, 22 de Junho de 2008
Mensagens: 13

MensagemEnviada: Ter Nov 08, 2011 8:00 am    Assunto: Edição de Cadastro Responder com Citação

Moderadores do Active-Delphi escreveu:

Tópico editado por: johnny-walker
Motivo: Regras do fórum
Título Original: EDIÇÃO DE CADASTRO


Senhores tenho uma tabela que possui já vários cadastrastros o que preciso é o seguinte existe os dados do campo setor que preciso editar (trocar o dado 'EM ANÁLISE' por 'ANALIZADO'). atraves de um botão depois de ser enviado para outro setor, gostaria que ao clicar nesse botão fizesse a edição de todos os cadastro até não haver mais nenhum.

estou aprendendo mais não estou conseguindo pazer isso.

CARREGO OS DADOS EM UM FORMULARIO COM DBGRID
MEUS COMPONENTES SÃO
TZQUERY
DATASETPROVIDER
CLIENTDATASET
TDATA SORCE

de já agradeço.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

MensagemEnviada: Ter Nov 08, 2011 8:10 am    Assunto: Responder com Citação

Para alterar utilizando o ClientDataSet você pode montar um looping mais ou menos como segue:

edit: faltou o ApplyUpdates no código abaixo

Código:
DataSource1.Enabled := false;   // DataSource ligado ao ClientDataSet1
try
    ClientDataSet1.First;
    while not ClientDataSet1.Eof do
        begin
        if ClientDataSet1.FieldByName('Setor').AsString = 'EM ANÁLISE' then
            begin
            ClientDataSet1.Edit;
            ClientDataSet1.FieldByName('Setor').AsString := 'ANALISADO';
            ClientDataSet1.Post;
            if ClientDataSet1.ApplyUpdates(0) > 0 then
                ShowMessage('Erro na alteração do registro');
            end;
        ClientDataSet1.Next;
        end;
finally
    DataSource1.Enabled := true;
end;


Ou via SQL com uma instrução semelhante a que segue:

Código:
update Tabela
set Setor = 'ANALISADO'
where Setor = 'EM ANÁLISE'


Espero que ajude.

__________________
Assinatura: Imobiliarias em Guarulhos
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Ter Nov 08, 2011 9:37 am    Assunto: Responder com Citação

Uma pergunta.
Quando vc abre a tabela vc já tem os dados em análise, mas vc precisa mudar todos ou somente alguns?
Tem uma coisa interessante é que vc pode fazer isto no dbgrid com multiselect igual a true, assim vc pode percorrer todos que vc clicou e baixar todos que estiverem selecionados.


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB