RES: [firebase-br] VB+FB

[Rogerio]

	Caro amigo faca uma funcao que coonverta a  virgula em ponto antes de
gravar no VB
	exemplo
    .....
    ssql = ssql & Converte(tipodata, objFormulario.dtpPagamento.Value) &
"','"
    ssql = ssql & objFormulario.txtDocumento.Text & "',"
    ssql = ssql & Converte(tipomoeda, objFormulario.mskTotal.Text) &
",'-','"
    ....

Public Function Converte(Tipo As eTipo, sValor As String) As String
    If Tipo = tipodata Then
        Converte = Format(sValor, "mm-dd-yy")
    ElseIf Tipo = tipomoeda Then
        Converte = Replace(Format(sValor), ",", ".")
    End If
End Function


-----Mensagem original-----
De: lista-bounces em firebase.com.br
[mailto:lista-bounces em firebase.com.br]Em nome de Helbert Miranda
Enviada em: quarta-feira, 27 de abril de 2005 23:23
Para: lista em firebase.com.br
Assunto: [firebase-br] VB+FB


Boa noite. Estou com um problema aqui. Tenho um banco em FB, usanto
SQL DIALECT 1.
Quando vou gravar um valor decimal, retorna um erro devido à
formatação (9.999,99).
Para gravar, tenho que enviar o número no formato (9999.99) para o FB.
A formatação
default no Brasil é a "," como separador decimal e "." como separador
de milhares e por isso não
quero alterar esta formatação nas Opções Regionais, pois afetaria
todos os outros programas.
Já tentei usar o Format e o Format$, mas não consegui ainda.


Código:
valor="1200,25"
rs.Open("Insert into Precos (nPreco) values ('1200,25')")

->Ele grava no banco como 120025


valor="1200.25"
rs.Open("Insert into Precos (nPreco) values ('1200.25')")

->Ele grava certo (1200,25) no banco.


Se alguém que usa VB puder me ajudar, fico agradecido.
Peço desculpas por este post que não é exclusivamente sobre FB.

Helbert Miranda

______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas:
http://search.gmane.org/search.php?group=firebase

Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: McAfee VirusScan / Atualizado em 27/04/2005 / Versão: 4.4.00 -
Dat 4478
Proteja o seu e-mail Terra: http://mail.terra.com.br/




--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.10.3 - Release Date: 25/4/2005