Return to Snippet

Revision: 16023
at October 28, 2009 14:21 by fuzzylogic


Updated Code
Function CheckExistingUsername(ByVal username As String) As Boolean

        Dim UserExists As Boolean = False
        Dim strConn As String = System.Configuration.ConfigurationManager.ConnectionStrings("Fullconnection").ConnectionString
        Dim MySQL As String = "Select username from tUser where [email protected]"
        Dim MyConn As New SqlConnection(strConn)
        Dim objDR As SqlDataReader
        Dim Cmd As New SqlCommand(MySQL, MyConn)
        Cmd.Parameters.Add(New SqlParameter("@Username", username))

        Try
            MyConn.Open()
            objDR = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

            While objDR.Read()
                UserExists = True
            End While

        Catch ex As Exception
            LogError("GlobalClass.vb :: CheckExistingUsername", ex.ToString)
        Finally
            MyConn.Close()
            CheckExistingUsername = UserExists
        End Try
    End Function

Revision: 16022
at July 23, 2009 10:58 by fuzzylogic


Initial Code
Function CheckExistingUsername(ByVal username As String) As Boolean

        Dim UserExists As Boolean = False
        Dim strConn As String = System.Configuration.ConfigurationManager.ConnectionStrings("Fullconnection").ConnectionString
        Dim MySQL As String = "Select username from tUser where [email protected]"
        Dim MyConn As New SqlConnection(strConn)
        Dim objDR As SqlDataReader
        Dim Cmd As New SqlCommand(MySQL, MyConn)
        Cmd.Parameters.Add(New SqlParameter("@Username", username))

        Try
            MyConn.Open()
            objDR = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

            While objDR.Read()
                UserExists = True
            End While

        Catch ex As Exception
            LBL_Info.Visible = True
            LBL_Info.Text = "Error: " & ex.Message
        Finally
            CheckExistingUsername = UserExists
        End Try

    End Function

Initial URL


Initial Description


Initial Title
Check if username is in use

Initial Tags
validation

Initial Language
VB.NET