Atualização de dados utilizando Datasnap

Delphi

DataSnap

24/06/2019

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;
Antony Moraes

Antony Moraes

Curtidas 0

Melhor post

Paulo Freire

Paulo Freire

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/
GOSTEI 1

Mais Respostas

Antony Moraes

Antony Moraes

24/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/

Obrigado Paulo não conhecia a solução, vou pesqu8sar sobre o assunto!
GOSTEI 0
POSTAR