USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Gravar valor decimal (URGENTE)
Expedito Junior
RECIFE
PE - BRASIL
Postada em 30/08/2005 11:33 hs            
Caros colegas,
 
Gostaria de ajuda no seguinte problema:
 
tenho a seguinte instrução sql:
 
"insert into tbname (Nome, Telefone, Endereco, Estado, Cep, Valor_Pedido) values ('Fulano de Tal', '999-9999-9999', 'Rua xxxxxx', 'xx', 'xxxx-xxx', 51,14)
 
O 51,14 (valor do pedido) está sendo entendido como dos campos por causa da virgula que separa o decimal. Como faço para corrigir este problema? Meu SGDB é MySql.
 
Fico grato desde já pelas colaborações. 

Expedito Junior

msn: expedito_junior947@hotmail.com

"A oportunidade favorece uma mente preparada!"

     
VACA
LIMEIRA
SP - BRASIL
Postada em 30/08/2005 12:08 hs            
vc vai ter q fazer uma funçao pra trocar a virgula por ponto... assim funciona.... naum soh o SQL mais tb o ACESS tem essa limitaçao

"Quando estou fraco, aí então é que sou Poderoso"
     
Expedito Junior
RECIFE
PE - BRASIL
Postada em 30/08/2005 12:42 hs            
Não tem outro jeito?

Expedito Junior

msn: expedito_junior947@hotmail.com

"A oportunidade favorece uma mente preparada!"

     
VACA
LIMEIRA
SP - BRASIL
Postada em 30/08/2005 12:48 hs            
q eu saiba naum..
mais eh facil...
eh mais ou menos assim, cria essa funcao
function procura (string_sql as string)
dim posicao as integer
posicao = instr(1, string_sql, ",")
if posicao>0 then
string_sql = mid(string_sql, 1, posicao - 1) & "." & mid(string_sql, posicao +1)
function procura string_sql
end if
end function

faça os ajudates necessario e chame essa funcao toda vez q vc quiser procurar um valor decimal

"Quando estou fraco, aí então é que sou Poderoso"
     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
Postada em 30/08/2005 13:43 hs            
Supondo q valor seja a variavel onde vc tem o numero:
 
valor = Replace(valor, ",", ".")
 
Isso troca as virgulas por ponto na variavel valor.
 
Para montar seu sql, faz assim:
 
valor = Replace(valor, ",", ".")
"insert into tbname (Nome, Telefone, Endereco, Estado, Cep, Valor_Pedido) values ('Fulano de Tal', '999-9999-9999', 'Rua xxxxxx', 'xx', 'xxxx-xxx'," & valor & ")"
 
Espero ter ajudado...


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

     
Expedito Junior
RECIFE
PE - BRASIL
Postada em 30/08/2005 15:38 hs            
valeu

Expedito Junior

msn: expedito_junior947@hotmail.com

"A oportunidade favorece uma mente preparada!"

     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página