Validación campo email
Publicado por Sergio (1 intervención) el 15/07/2021 11:22:52
Hola buenas. Estoy con un formulario en Visual Basic y la cosa es que no me reconoce el ningún correo lo ponga como lo ponga. Este es mi código:
Gracias por adelantado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public Class fregcliente
Private Sub BRegCliente_Click(sender As Object, e As EventArgs) Handles BRegCliente.Click
enlace()
If (TBnif.Text = "") Or (TBnombre.Text = "") Or (TBdireccion.Text = "") Or (TBemail.Text = "") Or (TBtelefono.Text = "") Then
MsgBox("Debe rellenar todos los campos.")
ElseIf TBtelefono.TextLength <> 9 Then
MsgBox("El campo teléfono debe tener 9 dígitos.")
ElseIf TBemail.Text <> "^[\w-\.]+@\w+\.\w+$" Then
MsgBox("Debe rellenar una dirección de correo válida.")
Else
comando = New OleDb.OleDbCommand("INSERT INTO clientes(nif, nombre, direccion, email, telefono)" & Chr(13) &
"VALUES(TBnif, TBnombre, TBdireccion, TBemail, TBtelefono)", conexion)
comando.Parameters.AddWithValue("@nif", TBnif.Text)
comando.Parameters.AddWithValue("@nombre", TBnombre.Text)
comando.Parameters.AddWithValue("@direccion", TBdireccion.Text)
comando.Parameters.AddWithValue("@email", TBemail.Text)
comando.Parameters.AddWithValue("@telefono", TBtelefono.Text)
comando.ExecuteNonQuery()
conexion.Close()
End If
End Sub
Private Sub BSalir_Click(sender As Object, e As EventArgs) Handles BSalir.Click
Me.Close()
End
End Sub
End Class
Gracias por adelantado.
Valora esta pregunta
0