[firebase-br] Erro de TokenUknow nesse Update..ajuda! estou usando FB, Delphi 7

[Felipe Giotto]

Ao invés de rodar o SQL diretamente, utilize parâmetros, que você 
eliminará problemas de caracteres regionais:

Modulo.SqlProdutos.Close;
Modulo.SqlProdutos.SQL.Clear;
Modulo.SqlProdutos.SQL.Add('UPDATE PRODUTO SET '+
                                          'ESTOQUE = ESTOQUE + 
:INCREMENTO WHERE COD_PRODUTO = :CODPRODUTO');
Modulo.SqlProdutos.Prepare;
Modulo.SqlProdutos.ParamByName('INCREMENTO').AsFloat:=Modulo.SqlPedidosQUANTIDADE.AsFloat; 

Modulo.SqlProdutos.ParamByName('CODPRODUTO').AsString:=Modulo.SqlPedidosCOD_PRODUTO.AsString; 

Modulo.SqlProdutos.ExecSQL;

Espero ter ajudado,

Felipe Giotto ;-)



Cesar wrote:

> eu consegui fazert esse update..mais esta dando erro no Where erro de 
> Token Uknow..como posso resolver isso
> estou fazendo assim
> Var
> strQuantidade: string;
> begin
>  strQuantidade := FloatToStr(Modulo.SqlPedidosQUANTIDADE.AsFloat);
>  Modulo.SqlProdutos.Close;
>  Modulo.SqlProdutos.SQL.Clear;
>  Modulo.SqlProdutos.SQL.Add('UPDATE PRODUTO SET '+
>                                           'ESTOQUE = ESTOQUE + '+ 
> strQuantidade+','+
>                                           'WHERE COD_PRODUTO = 
> '+#39+Modulo.SqlPedidosCOD_PRODUTO.AsString+#39);
>            Modulo.SqlProdutos.Prepare;
>            Modulo.SqlProdutos.ExecSQL;
>            Modulo.SqlPedidos.Next;
>
>
>
>     
>
>     
>        
> _______________________________________________________ Yahoo! Acesso 
> Grátis: Internet rápida e grátis. Instale o discador agora!
> http://br.acesso.yahoo.com/
>
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço 
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>
>

-- 
Felipe Luiz Christófolli Giotto
Meta Tecnologia em Software, Ltda