Fórum Ajuda com ClientDataSet Urgente #372348
16/07/2009
0
Bom dia a todos.
Utilizando um clientDataSet, criei dois campos dentro dele.
Usuario e Qtde
Obs.: Nome do clientDataSet = relAtivo
Agora eu preciso pesquisar nestes campos se o usuario já existe,
depois preciso inserir o usuario e depois fazer update da qtde.
Mas como esta tabela é uma tabela virtual, eu não sei como fazer isto.
Se eu for dar um select por exemplo eu não sei nem o nome da tabela.
Alguem poderia me ajudar?
Obrigado.
Uelinton
Utilizando um clientDataSet, criei dois campos dentro dele.
Usuario e Qtde
Obs.: Nome do clientDataSet = relAtivo
Agora eu preciso pesquisar nestes campos se o usuario já existe,
depois preciso inserir o usuario e depois fazer update da qtde.
Mas como esta tabela é uma tabela virtual, eu não sei como fazer isto.
Se eu for dar um select por exemplo eu não sei nem o nome da tabela.
Alguem poderia me ajudar?
Obrigado.
Uelinton
Uelinton_reis
Curtir tópico
+ 0
Responder
Posts
16/07/2009
Woinch
Para localizar determinado usuário você poderá utilizar a função Locate do ClientDataSet.
Para contar você deverá varrer todo o ClientDataSet, através de um laço while. Experimente utilizar um filtro que fica mais fácil, exemplo:
Espero ter ajudado.
Para contar você deverá varrer todo o ClientDataSet, através de um laço while. Experimente utilizar um filtro que fica mais fácil, exemplo:
Filter := ´USUARIO = ´´NOME´´´; Filtered:= True; relAtivo.First; I := 0; while not relAtivo.Eof do begin Inc(I); relAtivo.Next; end; Filter := ´´; Filtered := False;
Espero ter ajudado.
Responder
Gostei + 0
16/07/2009
Emerson Nascimento
se eu entendi...
if not relAtivo.Locate(´Usuario´, ValorProcurado, []) begin relAtivo.Append; relAtivo.FieldByName(´Usuario´).AsString := ValorProcurado; end else relAtivo.Edit; relAtivo.FieldByName(´Qtde´).AsInteger := relAtivo.FieldByName(´Qtde´).AsInteger + 1; relAtivo.Post;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)