Ver Mensaje Individual
  #3 (permalink)  
Antiguo 14/11/2008, 06:08
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Respuesta: base de datos

Cita:
Iniciado por natu_06lumar Ver Mensaje
buenas noches lo que pasa es que tengo el siguiente codigo de un formulario

...
necectio saber como valido que en el campo cedula si se allan escrito numeros y en el campo nombre solo letras que no me permita numero lo mismo en en de cedula no me permita texto.
Buenos dias, te pongo el código del boton ingresar:

Código:
    Private Sub btnregistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnregistrar.Click
        Dim Caracter As Char
        ' comprobar que no haya ningún TextBox vacío.
        Dim Text As Object
        For Each Text In Me.Controls
            If TypeOf Text Is TextBox Then
                If Text.Text = "" Then
                    MsgBox("Hay que rellenar todos lo campos.")
                    Exit Sub
                End If
            End If
        next text
        ' verificar cada carácter del campo cedula
        For i As Integer = 1 To Len(TextBox1.Text)
            Caracter = Mid(TextBox1.Text, i, 1)
            If Char.IsLetter(Caracter) Then
                MsgBox("El campo cedula sólo puede contener números")
                Exit Sub
            End If
        Next i
        ' verificar cada caracter del campo nombre
        For i As Integer = 1 To Len(TextBox2.Text)
            Caracter = Mid(TextBox2.Text, i, 1)
            If Char.IsNumber(Caracter) Then
                MsgBox("El campo nombre NO puede contener números")
                Exit Sub
            End If
        Next i

    End Sub
Si lo vas a utilizar en otros procedimientos, es mejor que crees una función que devuelva un booleano y le pases el contenido de los TextBox.

Nota para AlexixLAG: La función IsNumeric no existe en .NET