Boa noite,

Estou usando VB6 pra acessar uma base de dados PostgreSQL 9.0. A conexão está funcionando bem, porém tenho um campo do tipo Numeric(8,2) que na base de dados possui informações com decimais, mas o textbox os mostra apenas com 00 no final. Já formatei de várias maneiras (exemplos abaixo) e continuam aparecendo dessa maneira.

txtVal.Text = Format(rst![Valor], "###,##0.00")
txtVal.Text = Format$(rst![Valor], "currency")
txtVal.Text = Format(CCur(rst![Valor]), "###,##0.00; ###,##0.00;0;ulo")

Campo (banco de dados): Valor = 500.25

Saída desejada textbox: txtVal = 500,25
Saída atual textbox: txtVal = 500,00

Alguém tem uma luz pra me fornecer? Obrigado!

 

[ ]'s

 

Dado

tenta assim:

Format(rst![Valor], "#,######0.00")

FormatCurrency(rst![Valor], , vbTrue, vbTrue, vbTrue)

antes de formatar ao depurar qual o valor no rst![Valor]   ?

Boa noite Juan,

 

Tentei as duas maneiras que você me enviou e trazem a mesma resposta. Valores sem os decimais, somente inteiros. Depurei e o valor que o VB traz do banco de dados é inteiro (500) sem os 2 dígitos de precisão, como descrito no campo.

 

Alterei os tipos para "real" e "double precision" e consegui apresentar o campo com os decimais, porém conforme li em diversos manuais estes dois tipos não são indicados para cálculos e armazenamento de dados monetários. Como resolver essa pendenga? Mais uma vez obrigado pela ajuda e atenção!

 

[ ]'s

 

Dado

Bom dia Juan!

 

A princípio as configurações estão OK. Tentei usando Numeric(10,4), depurei e traz os valores inteiros. Testei também com Access e funcionou normalmente usando tipo "Número geral". Estou usando o textbox padrão do VB6 com SP6 e PostgreSQL 9.0, num Windows XP SP3.

 

Socorro! rsrsrs

 

[ ]'s

 

Dado