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

[Estevão Giordani]

Olá,
Tentou fazer o SQL sem o 'QuotedStr'? (e sem a vírgula tbm, claro...)

[]´s
Estevão.

>> apaga a virgula depois da atribuicao de valor
>>

>>>>> 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;
>>>>>



	

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