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

[Marco Aurélio Tomaz]

O valor que você passa em strQuantidade, não pode conter vírgula e
outra coisa ...o código é string mesmo ou inteiro ?
Se for inteiro vc dispense a aspas e se for string, ao invés de
+#39+Modulo.SqlPedidosCOD_PRODUTO.AsString+#39, use
quotedstr(Modulo.SqlPedidosCOD_PRODUTO.AsString).

Antes da linha onde está o ExecSQL, colo isso aqui, para vc ver o
comando que está enviando:

inputbox('','',Modulo.SqlProdutos.SQL.text);

verfique se está indo com vírgula o valor do estoque



Em 04/11/05, Cesar<cesar_newton em yahoo.com.br> escreveu:
> 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
>