base de datos

[natu_06lumar]

buenas noches lo que pasa es que tengo el siguiente codigo de un formulario
Public Class FrmDATOSDELPACIENTE
Private mdatosdelpaciente As New DATOSDELPACIENTE
Private mhistorialdelpaciente As New Historialdelpaciente

Private Sub FrmDATOSDELPACIENTE_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PACIENTES.DataSource = mdatosdelpaciente.transferirpacientes
End Sub
Private Sub accesoahistorial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles accesoahistorial.Click
frmhistorialdelpaciente.ShowDialog()
End Sub



Private Sub paciente()
Dim pacientes As New DATOSDELPACIENTE
pacientes.Cedula = TextBox1.Text
pacientes.nombre = TextBox2.Text
pacientes.Direccion = TextBox3.Text
pacientes.Telefono = TextBox4.Text
pacientes.Ciudad = TextBox5.Text
pacientes.Barrio = TextBox6.Text
pacientes.Sexo = TextBox7.Text
pacientes.Estrato = TextBox8.Text
pacientes.Sisben = TextBox9.Text
pacientes.Eps = TextBox10.Text
pacientes.insertarPaciente()

End Sub



Private Sub btnregistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnregistrar.Click
Dim Text As Object
For Each Text In Me.Controls
If TypeOf Text Is TextBox Then

End If
If Text.Text = "" Then
MsgBox("hay campos: " & Text.Tag & "vacios")
Exit Sub
End If
Next Text
End Sub
el cual se encarga de mostrarnos la tabla de una base de datos y tiene un texbox por cada dato y un botton que se llama ingresar
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.

[AlexisLAG]

para saber si en textbox se han ingrresado numeros deberas usar la funcion

IsNumeric(textbox)

esta funcion devuelve verdadero si los datos que se ingresa son números

espero que te sirva

[Avellaneda]

Iniciado por natu_06lumar

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