Aquí!!, Aquí!! Realizar una Búsqueda en ASP.NET

[juagarc4]

Hola, que tal,
Yo trabajo en VB.NET, para WEB FORMS, intentará echarte una mano, y luego traducirlo a C# no creo que sea mu dificil,¿ok?

Para el WEB FORM, llamdo Login.aspx:
En el Login.aspx tenemos un TextBox, un boton llamado BtnEntrar y una label llamada Label1.

En el CodeBehind (Login.aspx.vb) tenemos:

Código:

    Private Sub Page_Load(ByVal sender As System.Object, ByVal 
e As System.EventArgs) Handles MyBase.Load
        'Introducir aquí el código de usuario para inicializar la página
    End Sub

    Private Sub BtnEntrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEntrar.Click
        Dim cn As SqlConnection

        cn = New SqlConnection("data source=Nombre de tu Server SQL;initial  catalog=Organizacion;persist security info=False;user id=usuario; password=password")
        cn.Open()

        If Not ValidarUsuario(TEXTBOX1.Text) Then
            MsgBox1.ShowMessage("ERROR: Los datos introducidos no son correctos. Por favor vuelva a intentarlo.")
        else 'Si ha encontrado al usuario muestro los datos en una label, por ejemplo'
           label1.text="La persona seleccionada es: " & session("id") &"  "& session("Nombre")
        End If
    End Sub

    Function ValidarUsuario(ByVal Nombre As String) As Boolean
        'Declaración de Variables
        Dim cmd As SqlCommand
        Dim dr As SqlDataReader
        Dim RetVal As Boolean = False

        Session("Id") = ""
        Session("Nombre")=""
        
        'Creamos la cadena para obtener los datos
        cmd = New SqlCommand("SELECT PERSONAL.id, PERSONAL.Nombre FROM PERSONAL WHERE (PERSONAL.Nombre = '" & Nombre & "')", cn)

        dr = cmd.ExecuteReader()
        
        While (dr.Read()) 'Compruebo si existen esos datos

            If StrComp(dr("Nombre"), Nombre, 1) = 0 Then
  
                RetVal = True
                Session("Nombre") = dr("Nombre")
                Session("Id") = dr("Id")
            Else
                'No ha puesto correctamente el nombre
                RetVal = False
                Exit Function
            End If
        End While

        dr.Close()
        cmd.Dispose()
        ValidarUsuario = RetVal
    End Function