Discuss "Function USerName(ID)" in the .Net Development forum.

Imports Microsoft.VisualBasic
Imports System
Imports System.ComponentModel
Imports Keith.ProjectManager.BO

Namespace Keith.ProjectManager.Bll

    Public Class Common
        Public Shared Sub CheckLogIn()
            If Len(HttpContext.Current.Session("UserName")) < 1 Or HttpContext.Current.Session("UserName") = "Guest" Then
                HttpContext.Current.Session("UserName") = ""
                HttpContext.Current.Session("UserID") = ""
                HttpContext.Current.Response.Redirect("default.aspx")

                Dim LogOutMsg As String
                LogOutMsg = "Your session has expired"
            End If
        End Sub

        Public Shared Function GetUSerName(ByVal uID As Integer) As String
            Dim UserList As New UserList
            UserList = UserManager.GetItem(uID)

            Dim myUser As New Users
            Return myUser.Name
        End Function
    End Class

End Namespace

<DataObjectMethod(DataObjectMethodType.Select, False)> _
        Public Shared Function GetItem(ByVal id As Integer) As Users
            Return UserDB.GetItem(id)
        End Function

Public Shared Function GetItem(ByVal id As Integer) As Users
            Dim myUser As Users = Nothing
            ' Using
            Dim myConnection As MySqlConnection = New MySqlConnection(myConfig.myConnection)
            Try
                Dim myCommand = New MySqlCommand(QueryUserDB.Item(id), myConnection)
                myConnection.Open()
                'Using
                Dim myReader As MySqlDataReader = myCommand.ExecuteReader
                Try
                    If myReader.Read Then
                        myUser = FillDataRecord(myReader)
                    End If
                    myReader.Close()
                Finally
                    CType(myReader, IDisposable).Dispose()
                End Try
                myConnection.Close()
            Finally
                CType(myConnection, IDisposable).Dispose()
            End Try
            Return myUser
        End Function

Private Shared Function FillDataRecord(ByVal myDataRecord As IDataRecord) As Users
            Dim myUser As Users = New Users
            myUser.Idkey = myDataRecord.GetInt32(myDataRecord.GetOrdinal("idkey"))
            myUser.Name = myDataRecord.GetDateTime(myDataRecord.GetOrdinal("name"))
            myUser.Email = myDataRecord.GetString(myDataRecord.GetOrdinal("email"))
            myUser.Password = myDataRecord.GetString(myDataRecord.GetOrdinal("psswrd"))
            Return myUser
        End Function

 Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30311: Value of type 'Keith.ProjectManager.BO.Users' cannot be converted to 'Keith.ProjectManager.BO.UserList'.

Source Error:

Line 20:         Public Shared Function GetUSerName(ByVal uID As Integer) As String
Line 21:             Dim UserList As New UserList
Line 22:             UserList = UserManager.GetItem(uID)
Line 23: 
Line 24:             Dim myUser As New Users


Source File: C:\Inetpub\wwwroot\keithdesign\App_Code\global\BLL\Common.vb    Line: 22

Public Shared Function GetUSerName(ByVal uID As Integer) As String
            Dim Users As New Users
            Users = UserManager.GetItem(uID)

            Dim myUser As New Users
            Return myUser.Name
        End Function

Public User As Users = UserManager.GetItem(uID)

label1.text = Master.User.Name

Public User As Users = UserManager.GetItem(uID)

 
Inherits System.Web.UI.MasterPage
 
Public User As Users = UserManager.GetItem(uID)
 
Sub Page_Load()
.
.
.

        Public Shared Function GetUSerName(ByVal uID As Integer) As String
            Dim UserList As New UserList
            UserList = UserManager.GetItem(uID)

            Dim myUser As New Users
            Return myUser.Name
        End Function