Mask

[Guest - - Isabela - -]

Eu gostaria de saber como eu faço pra gravar um mask.

Exemplo: Gravar telefone. No meu Banco de Dados o tipo de dados esta como numero, e no VB esta ativado o MASK (##) ####-####, relacionado já com a tabela do Access, só não sei porque motivo não esta gravandooo.

Se alguém puder ajudar ficaria muito grata

Isabela

[jntk]

Tente mudar o tipo de dados do seu banco para texto normal.

Isso provavelmente acontece porque, o campo número do banco de dados só aceita números, e não aceita simbolos / letras, como por exemplo: () -

Abraço...

[William Rodrigues]

Salve!

Não me lembro assim de cabeça cara, mas seria algo como FormattedText

Abraços,

William Rodrigues

[mariozneto]

Eu gostaria de saber como eu faço pra gravar um mask.

Exemplo: Gravar telefone. No meu Banco de Dados o tipo de dados esta como numero, e no VB esta ativado o MASK (##) ####-####, relacionado já com a tabela do Access, só não sei porque motivo não esta gravandooo.

Se alguém puder ajudar ficaria muito grata

Isabela

Qual string de Conexão você está usando ????

Falow... T+

[- - Isabela - -]

Estou usando o banco de dados do Access - Microsoft Jet 4.0 OLE DB Provider

[mariozneto]

Oi Isa,

Você pode usar a Mascara de entrada do Próprio MsAccess!!

Se mesmo assim não conseguir, me avisa, que eu faço um exemplo para você e lhe mando por e-mail

Falow.... T+

[kuroi]

porque não troca o campo telefone pra texto em vez de numero?

[mariozneto]

porque não troca o campo telefone pra texto em vez de numero?

kuroi,

Não seria a melhor forma para resolver o problema, a mesma mascara que tem no controle, basta informar ao banco de dados, assim poderá colocar os números no lugar certo!!!

Falow... T+

[mariozneto]

Fiz correndo, desculpe se tiver algum erro:

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

'código para incluir
Private Sub cmdIncluir_Click()
  
  Set cnn = New ADODB.Connection
  cnn.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0; Data Source =c:\banco.MDB"
  
  cnn.Open
  cnn.Execute "insert into clientes1 (telefone) values (" & MaskEdBox1.Text & ")"

End Sub

'codigo para ler
Private Sub cmdLer_Click()

  Set cnn = New ADODB.Connection
  cnn.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0; Data Source =c:\banco.MDB"
  cnn.Open
  
  Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseClient
  rs.Open "SELECT * FROM Sua_tabela", cnn, adOpenDynamic, adLockOptimistic
  
  If Not rs.EOF Then
    MaskEdBox1.Text = Format(rs.fields("Telefone"), "(##) ####-####")
  End If
  
End Sub

Private Sub Form_Load()
   MaskEdBox1.Mask = "(##) ####-####"
End Sub

qualquer dúvida me fale!!!

Falow... T+

[- - Isabela - -]

MUITO OBRIGADA GALERA CONSEGUI FAZER A MASK FUNCIONAR!

VALEU!!!

T+

[mariozneto]

MUITO OBRIGADA GALERA CONSEGUI FAZER A MASK FUNCIONAR!

VALEU!!!

T+

OK!!!

Precisando é só Postar....

Falow... T+