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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Gravar um valor
Moreti
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 27/05/2009 21:55 hs            
Pessoal, estou tentando gravar um valor de uma Label, mas está me retornando erro.
Essa Label recebe um valor monetário. Se eu gravar como inteiro ele grava mas se eu gravar com os centavos ele me retorna erro.
Estou usando access 2007 com VBA
No banco está como Currency e na label estou usando o Ccur(Label.Caption)
 
Obrigado
   
Tiranossauro
DOIS IRMÃOS
RS - BRASIL
ENUNCIADA !
Postada em 28/05/2009 21:05 hs            
Você usa uma string SQL com "UPDATE" para fazer esta gravação ? Poderia postar aqui como vc faz para o pessoal poder te ajudar ?
   
Moreti
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 28/05/2009 21:55 hs            
 
Grava = "INSERT INTO Minha_Base ( " & _
             "AccountID, " & _
             "Contrato, " & _
             "Cpf_Cnpj, " & _
             "Valor_Negociado, " & _
             "Qtd_Parcelas, " & _
             "N_Parcelas ) VALUES ("
Grava = Grava & _
             txt1.Text & "," & _
             lblOP19.Caption & "," & _
             lblCpf.Caption & "," & _
             Ccur(lblAcordo.Caption) & "," & _
             lblQtdParcela.Caption & "," & _
             Parcela & ")"
 
Aqui eu estou colocando um Msgbox para ver como ele está mandando para o banco.
MSGBOX Grava
Está mandando certinho, mas na hora de gravar está dando erro.
A Label é lblAcordo.Caption
 
Obrigado
   
DeFreitas
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 29/05/2009 08:22 hs            
Bom dia.

Amigo,

Veja se isso resolve:

Replace(lblAcordo.Caption, ",", ".")

   
Tiranossauro
DOIS IRMÃOS
RS - BRASIL
ENUNCIADA !
Postada em 29/05/2009 09:40 hs            
tenta fazer a modificação que está em negrito: (retira o ccur e trata a variável como texto conforme está abaixo usando apóstrofo)
 
Grava = "INSERT INTO Minha_Base ( " & _
             "AccountID, " & _
             "Contrato, " & _
             "Cpf_Cnpj, " & _
             "Valor_Negociado, " & _
             "Qtd_Parcelas, " & _
             "N_Parcelas ) VALUES ("
Grava = Grava & _
             txt1.Text & "," & _
             lblOP19.Caption & "," & _
             lblCpf.Caption & ",'" & lblAcordo.Caption & "'," & _
             lblQtdParcela.Caption & "," & _
             Parcela & ");"
 
Mais uma observação: Você afirmou que o erro está nesta variável, mas se não der certo poste aqui colocando o tipo de cada variável do banco de dados para avaliarmos se o conteúdo das outras está indo no formato correto na sua instrução.
Lembre-se que variáveis texto precisam ir entre apóstrofos '
Boa sorte
 
   
Página(s): 1/1    

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