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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Banco de dados Access 2003
Rogério
não registrado
Postada em 25/01/2010 21:27 hs   
boa noite amigos que curtem o Visual Basic.
To com um problema em meu projeto.
É o seguinte tenho um banho de dados de uma agenda.
Ele tem varios textbox e 3 maskedit...
Nos textbox eu nao tenho problema em atualizar o banco de dados mas com o Maskedit eu não consigo sempre da erro quando eu usso mascara de data do tipo ##/##/#### ou telefone (###) ####-####

Tabela_agenda.Recordset("codigo") = txtcodigo.Text
    Tabela_agenda.Recordset("Nome") = txtnome.Text
    Tabela_agenda.Recordset("Datanasc") = txtdatanasc.Text
Esse é codigo que eu usei... se eu por um mask edite que fica mais facil nao hora do cadastro ele nao atualiza... alguma dica? obrigado
     
Omar
MONTES CLAROS
MG - BRASIL
Postada em 26/01/2010 20:21 hs            
Rogério fiz um teste com Access 2003 e não deu problema nenhum.
Usei Campo Texto, Campo Data/Hora com MaskEdBox.
Qual tipo de campo vc usa?
 
     
Rogerio
não registrado
Postada em 26/01/2010 20:36 hs   
eu fiz o mesmo teste agora e deu erro.

Unable to bind to field or datamember "data"
eu conexao ADO no textbox da sem problemas mas com o mask edit nao da qndo coloco a maskara ##/##/#### aparece essa mensagem de erro ai em cima...
datasource = adodc1
datafield = senha
tenho especificar na tabela que vou usar mascara?????
Obrigado
     
Omar
MONTES CLAROS
MG - BRASIL
ENUNCIADA !
Postada em 27/01/2010 10:57 hs            
Qual tipo de campo da tabela vc usa.
Data/hora,
Texto ou
Número.
   
Rogerio
não registrado
Postada em 27/01/2010 19:13 hs   
uso data/hora
     
Omar
MONTES CLAROS
MG - BRASIL
Postada em 27/01/2010 20:30 hs            
Rogério este é o meu teste

Private Sub Command5_Click()
Dim Sqlstring As String, sSQL As String
Sqlstring = "insert into Clientes (Codigo,nome,parcela,cpf,Datanasc1,Datanasc2,Datanasc3)values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Mask1 & "','" & Mask2 & "','" & Mask3 & "');"
            
            BancoDeDados.Execute (Sqlstring)
             MsgBox "Gravado"
End Sub
No mask3 uso a formatação ##/##/#### somente no Mask,na tabela não e da certo
sem nenhum erro.
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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