Thread: Function USerName(ID)

hi guys, once again i'm stuck

I did try for a while on my own, i know it's sad
anywho moving on, as the name suggests I want to create a function to
return a users name based on their user ID.

here's the page where i tried to write the function:

Code:

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

Usermanager Bll: (only relevant code)

Code:

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

UserDB DAL:

Code:

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

the error, this is before i have even tried to use it anywhere:

Code:

 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

Shem

fixed that error

Code:

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

Shem

UserList = UserManager.GetItem(uID)

UserManager.GetItem returns a Users Object not a List.

Are you trying to get a list of User Names or an individual one?

I realised that look above

Originally Posted by Shem

fixed that error

Code:

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

Shem

OK...Posted as I was replying. Why are you creating another instance of the Users object?

Why not just have Return Users.Name?

And then, why is this not just in your page code? If you wanted to use it a lot, just create the instance in your Master Page

.master

Code:

Public User As Users = UserManager.GetItem(uID)

.aspx.vb

Code:

label1.text = Master.User.Name

Or am I missing something here?

no your not missing anything, I most likely am
I just did it that way as that's how I am used to doing things?

so in my masterpage.master.vb i just add:

Code:

Public User As Users = UserManager.GetItem(uID)

in my Page_Laod()?

Shem

Originally Posted by richyrich

OK...Posted as I was replying. Why are you creating another instance of the Users object?

I went by your example that you did for me when we populated Projects?

Add it outside the Page_Load()

Code:

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

also how will I use it in my Repeater, as i need to convert diff userID's on same
page?

Originally Posted by Shem

I went by your example that you did for me when we populated Projects?

Code:

        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

I don't remember doing anything like that....