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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar