ActiveDelphi

[volmirsanto]

Nao estou conseguindo gravar dados no banco no lado server do datasnap só consiguo fsazer select
Como devo proceder pra fazer um insert no banco no lado servidor datasnap
é possivel fazer isso ? como ?
estou tentando assim mas sem suscesso
function TClsTeste.AtualizaCreditosVend(cod_vend: Integer; credito,
debito: Double): Double;
begin
if DtmDataBase.Conecta then //conecta no banco
begin
try
BeginTransacServer;//inicia uma transacao
with DtmDataBase.qrAtualizaCreditos do
begin //verifica se ja existe dados na tabela credito_vend
Close; //para este venddedor no serv
SQL.Clear;
SQL.Add('SELECT credito, debito '+
'FROM credito_vend '+
'where pes_cod='''+IntToStr(cod_vend)+''' ');
Open;
end;
with DtmDataBase.qrAtualizaCreditos do //Atualiza os creditos do vendedor que esta atualizando
begin //os dados na base credito_vend (no servidor)
if not DtmDataBase.qrAtualizaCreditos.IsEmpty then
begin
Close;
SQL.Clear;
SQL.Add('Update credito_vend set pes_cod=:pes_cod0, credito=:credito1, '+
'debito=debito+:debito2, '+
'data_atualizacao=:data_atualizacao3 '+
'where pes_cod='''+IntToStr(cod_vend)+''' ');
end
else
begin
Close;
SQL.Clear;
SQL.Add('Insert into credito_vend(pes_cod, credito, debito, data_atualizacao) '+
'values(:pes_cod0, :credito1, :debito2, :data_atualizacao3) ');
end;
Params[0].AsInteger :=cod_vend;
Params[1].AsFloat :=credito;
if debito > 0 then
Params[2].AsFloat :=debito
else
Params[2].AsFloat :=0;
Params[3].AsDateTime:=Now;
ExecSQL;{Aqui Trava tudo}
end;
CommitTransacServer;
Result:=0;
except
on E:Exception do
begin
RollbackTransacServer;
Result:=1;
DtmDataBase.SaveLog('Erro ao Atualizar os creditos do vendeddor: '+IntToStr(cod_vend));
DtmDataBase.Desconecta; //fecah a conexao
end;
end;
DtmDataBase.Desconecta; //fecah a conexao
end;
end;

esta é a function responsavel pro inserir no lado server
mas trava na hora de dar o comando execSQL;
uso delphi xe2 postgres 9.2.1 e comopnenente de conexao ao db ZeosLib 7

Quem puder me dar uma luz

[imex]

Boa noite,

Nunca utilizei ZeosLib nem PostgreSQL, mas essa função funciona normalmente em uma aplicação comum (sem Datasnap) com esses mesmos componentes?
Estou perguntando porque já vi alguns membros do fórum tendo dificuldades com a versão 7 da ZeosLib.
Você tentou fazer um teste utilizando DBExpress?

_________________
Assinatura: http://www.imoveisemexposicao.com.br/imoveis-venda-guarulhos-residencial

[volmirsanto]