Fórum Erro ao formatar campo de valor para gravar no BD MySQL #350022
03/12/2007
0
Olá.
Estou com o seguinte problema.
Tenho um campo no meu BD MySQL 5.0 que se refere ao preco de um produto.
Ele é um campo tipo Decimal -> Tamanho: 15 -> Decimal: 3
Utilizo o seguinte codigo para converter os caracteres especiais para aceitação no BD MySQL sendo que o mesmo é pelo padrão americano. Então o separador entre as casas decimais de centavo é ´ . ´ ponto e não vírgula.
Segue:
Meu edit tem o seguinte valor:
1.000,000
Utilizo o seguinte código para formatar a string:
Explicação:
[b:68e39cbb30]Se tiver pontos formata retirando-os[/b:68e39cbb30]
[b:68e39cbb30]Se tiver virgula formata convertendo-a para ponto[/b:68e39cbb30]
Mas só me retorna o erro:
[color=red:68e39cbb30][b:68e39cbb30]Project vendas.exe raised exception class EBCdException with mesasge ´1000.000 is not valid BCD value´. Process stopped. Use Step or Run to continue[/b:68e39cbb30][/color:68e39cbb30]
Podem me ajudar?
Att.
Estou com o seguinte problema.
Tenho um campo no meu BD MySQL 5.0 que se refere ao preco de um produto.
Ele é um campo tipo Decimal -> Tamanho: 15 -> Decimal: 3
Utilizo o seguinte codigo para converter os caracteres especiais para aceitação no BD MySQL sendo que o mesmo é pelo padrão americano. Então o separador entre as casas decimais de centavo é ´ . ´ ponto e não vírgula.
Segue:
Meu edit tem o seguinte valor:
1.000,000
Utilizo o seguinte código para formatar a string:
EditPrecoDeVenda.Text := StringReplace(EditPrecoDeVenda.Text,´.´,´´,[]); EditPrecoDeVenda.Text := StringReplace(EditPrecoDeVenda.Text,´,´,´.´,[]); FieldByName(´PRECO_VENDA´).AsString := EditPrecoDeVenda.Text;
Explicação:
EditPrecoDeVenda.Text := StringReplace(EditPrecoDeVenda.Text,´.´,´´,[]);
[b:68e39cbb30]Se tiver pontos formata retirando-os[/b:68e39cbb30]
EditPrecoDeVenda.Text := StringReplace(EditPrecoDeVenda.Text,´,´,´.´,[]);
[b:68e39cbb30]Se tiver virgula formata convertendo-a para ponto[/b:68e39cbb30]
Mas só me retorna o erro:
[color=red:68e39cbb30][b:68e39cbb30]Project vendas.exe raised exception class EBCdException with mesasge ´1000.000 is not valid BCD value´. Process stopped. Use Step or Run to continue[/b:68e39cbb30][/color:68e39cbb30]
Podem me ajudar?
Att.
Devmedia
Curtir tópico
+ 0
Responder
Posts
06/12/2007
Devmedia
ALGUUUEM ???
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)