Hi,

Chapter 12
----------

I have problem in chapter 12. I cannot display Roles as in Figure 12-1 (Page 412) and Users in Fig 12-2. I get error message "Object reference not set to an instance of an object". Please note I am using SQL Server 2000 - Developer edition and Microsoft Visual Studio .NET 2003.

A code snippets are as below:

(1) WDARoles.vb
---------------------------------------------------------------------------
    Public Function GetRoles() As DataSet
        Try
            GetRoles = New DataSet
            MyBase.SQL = "usp_SelectRoles"
            'Fill the DataSet
            MyBase.FillDataSet(GetRoles, "Roles")

        Catch ExceptionErr As Exception
            Throw New System.Exception(ExceptionErr.Message, _
            ExceptionErr.InnerException)

        End Try
    End Function
---------------------------------------------------------------------------
In the above case the message appears for the statement below:
            MyBase.FillDataSet(GetRoles, "Roles")
---------------------------------------------------------------------------

(2) Admin.vb
---------------------------------------------------------------------------
    Private Sub LoadUsers()
        'Declare variables
        Dim objListViewItem As ListViewItem

        'Initialize a new instance of the business logic component
        objUsers = New WroxBusinessLogic.WBLUsers( _
            strCompany, strApplication)

        Try

            'Get all roles in a DataSet object
            objUsersDS = objUsers.GetUsers()

            'Clear previous list
            lvwUsers.Items.Clear()

            'Process all rows
            For intIndex = 0 To objUsersDS.Tables("Users").Rows.Count - 1
                'Create a new listview item
                objListViewItem = New ListViewItem
                'Add the data to the listview item
                objListViewItem.Text = _
                    objUsersDS.Tables("Users").Rows(intIndex).Item("Lo ginName")
                objListViewItem.Tag = _
                    objUsersDS.Tables("User").Rows(intIndex).Item("Use rID")
---------------------------------------------------------------------------
The error message appears at the last line which is:

                objListViewItem.Tag = _
                    objUsersDS.Tables("User").Rows(intIndex).Item("Use rID")
---------------------------------------------------------------------------
Any help will be geatly appreciated.

I'm a little confused as to the error you are getting as you are showing two unrelated snippets of code. I assume you are getting the "Object reference not set to an instance of an object" error on code snippet 1. In this case ensure that you have created the usp_SelectRoles stored procedure and that you are calling the GetRoles function to load the roles.

Thearon

Hi,

Chapter 12
----------


Sorry for the confusion.

Initially "Object reference not set to an instance of an object" error message box is confronted at (1) WDARoles.vb( above ) where I respond with return for the button. The second time the error message box is encountered in (2) Admin.vb( above ).

Please note having downloaded, compiled and run. I do not have the above problem.

Many Thanks.

Narendra

Narendra,

That's good. Now all you have to do is compare the code you downloaded with your code to determine the missing pieces.

Thearon

Thearon,

Thanks for your help.

Regards

Narendra