Atualização de dados utilizando Datasnap
24/06/2019
12
Bom dia,! Estou precisando implementar um Método para editar ou atualizar dados em BD Firebird através de dispositivo móvel com Android, eu criei um web service com métodos de inserir , agora preciso de update.Este é o comando de inserção:
procedure Tdmacessodados.AtualizaProdutosDoServidor;
var
dsProdutos: TFDJSONDataSets;
Acodigo,ANome:string;id: integer; desc: string; preco: double;
;
begin
dsProdutos :=ClientModule1.ServerMethods1Client.GetProdutos();
if TFDJSONDataSetsReader.GetListCount(dsProdutos) = 1 then
begin
memInsercao.Active := false;
memInsercao.AppendData(TFDJSONDataSetsReader.GetListValue(dsProdutos, 0));
qryInsercao.SQL.Clear;
qryInsercao.SQL.Add(''insert into produto (CODIGO_PRODUTO,ID_PRODUTO,''+''NOME_PRODUTO,PRECO_PRODUTO) values (:CODIGO_PRODUTO,:ID_PRODUTO,:''+''NOME_PRODUTO,:PRECO_PRODUTO));
while not memInsercao.Eof do
begin
ACodigo := memInsercao.FieldByName(''codigo_produto'').AsString;
ANome := memInsercao.FieldByName(''nome_produto'').AsString;
preco := meminsercao.FieldByName(''preco_produto'').Asfloat;
if not ExisteProduto(Acodigo,ANome,id, desc, preco,
) then
begin
qryInsercao.ParamByName(''codigo_produto'').AsString := ACodigo;
qryInsercao.ParamByName(''nome_produto'').AsString := Anome;
qryInsercao.ParamByName(''preco_produto'').Asfloat := preco;
qryInsercao.ExecSQL;
end;
memInsercao.Next;
end;
procedure Tdmacessodados.AtualizaProdutosDoServidor;
var
dsProdutos: TFDJSONDataSets;
Acodigo,ANome:string;id: integer; desc: string; preco: double;
;
begin
dsProdutos :=ClientModule1.ServerMethods1Client.GetProdutos();
if TFDJSONDataSetsReader.GetListCount(dsProdutos) = 1 then
begin
memInsercao.Active := false;
memInsercao.AppendData(TFDJSONDataSetsReader.GetListValue(dsProdutos, 0));
qryInsercao.SQL.Clear;
qryInsercao.SQL.Add(''insert into produto (CODIGO_PRODUTO,ID_PRODUTO,''+''NOME_PRODUTO,PRECO_PRODUTO) values (:CODIGO_PRODUTO,:ID_PRODUTO,:''+''NOME_PRODUTO,:PRECO_PRODUTO));
while not memInsercao.Eof do
begin
ACodigo := memInsercao.FieldByName(''codigo_produto'').AsString;
ANome := memInsercao.FieldByName(''nome_produto'').AsString;
preco := meminsercao.FieldByName(''preco_produto'').Asfloat;
if not ExisteProduto(Acodigo,ANome,id, desc, preco,
) then
begin
qryInsercao.ParamByName(''codigo_produto'').AsString := ACodigo;
qryInsercao.ParamByName(''nome_produto'').AsString := Anome;
qryInsercao.ParamByName(''preco_produto'').Asfloat := preco;
qryInsercao.ExecSQL;
end;
memInsercao.Next;
end;

Antony Moraes
Curtir tópico
+ 0
Responder
Post mais votado
26/06/2019
Olá Antony, por que vc não usa RestDataWare, muito mais simples e prático, feito por brasileiros, Tem o pessoal do suporte, forum, skype e telegram que lhe ajuda em tudo e o melhor, grátis. https://www.restdw.com.br/
Paulo Freire

Responder
Mais Posts
26/06/2019
Antony Moraes
Olá Antony, por que vc não usa RestDataWare, muito mais simples e prático, feito por brasileiros, Tem o pessoal do suporte, forum, skype e telegram que lhe ajuda em tudo e o melhor, grátis. https://www.restdw.com.br/
Obrigado Paulo não conhecia a solução, vou pesqu8sar sobre o assunto!
Responder
Clique aqui para fazer login e interagir na Comunidade :)