Interbase 6 e Visual Basic 6

[malexandresouza 0]

Bom dia Pessoal.To precisando de uma ajuda.Estou usando Visual Basic 6.0No meu banco de dados em Interbase Server 6 tenho o campo: Numeric(9,2) para armazenar valores moeda.Uso a Seguinte linha para gravar no banco de dados: SQL = "" SQL = "INSERT INTO ESTOQUE (cdEstoque," SQL = SQL & "cdProduto," SQL = SQL & "moPrecoVendaUnitVarejo," SQL = SQL & "moPrecoVendaUnitAtacado," SQL = SQL & "moPrecoVendaInterno," SQL = SQL & "nuQtdeEstTotal," SQL = SQL & "nmHostAud," SQL = SQL & "dtRegAud," SQL = SQL & "cdProfSist) VALUES ( " SQL = SQL & TxtcdEstoque.Text & "," SQL = SQL & TxtCdProduto.Text & "," SQL = SQL & "'" & Format(TxtmoPrecoVendaUnitVarejo.Text, "###,##0.00") & "'," SQL = SQL & "'" & Format(TxtmoPrecoVendaUnitAtacado.Text, "###,##0.00") & "'," SQL = SQL & "'" & Format(TxtmoPrecoVendaInterno.Text, "###,##0.00") & "'," SQL = SQL & TxtnuQtdeEstTotal.Text & "," SQL = SQL & "'" & StrMaquina & "'," SQL = SQL & "'" & Format(Date, "m/d/yyyy") & "'," SQL = SQL & DblcdUsuario & ")" objCon.BeginTrans objCon.Execute SQL objCon.CommitTransNo Campo moPrecoVendaInterno por exemplo, os dados são salvos neste formato : 5032 que na verdade deveria ser 50,32.Quando mando exibir este valor 5032 na caixa de texto o valor é formatado para 5.032,00 .Já Tentei usar CCUR para formatar na hora de salvar mas não resolveu.Alguem tem uma solução pra isso.Agradeço sua atenção.

[luiz humberto 0]

Quando você coloca um campo com o tipo decimal, se o valor por exemplo for 50,32 o banco de dados entenderá que a ',' está separando milhar então o que deve ser feito é dar um replace onde tem ',' coloca '.' com isso será passado para banco de dados o valor 50.32 e não 50,32.Obs: Para formatar os números prefiro utilizar o FormatNumber(Valor,2), onde o segundo argumento equantidade de casas decimas após a ','.