Atualização de dados utilizando Datasnap
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
Curtidas 0
Melhor post
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
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