[firebase-br] OFF - ERRO NO UPDATE " TOKEN UNKNOW WHERE" AJUDA!

[Cesar]

estou fazendo um update para atualizar o meu estoque...mais esta dando o 
erro descrito acima..ja tentei fazer de tudo..alguem pode me ajudar? uso 
Delphi 7 e FB
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 + '+ 
quotedstr(strQuantidade)+','+
                                           'WHERE COD_PRODUTO = 
'+#39+Modulo.SqlPedidosCOD_PRODUTO.AsString+#39);
            Modulo.SqlProdutos.Prepare;
            Modulo.SqlProdutos.ExecSQL;
            Modulo.SqlPedidos.Next;

msn: newton_cesar em hotmail.com 


	

	
		
_______________________________________________________ 
Yahoo! Acesso Grátis: Internet rápida e grátis. 
Instale o discador agora!
http://br.acesso.yahoo.com/