DataGrid and the WDA Base Class

sirmilt · May 6th, 2009, 11:31 AM

I am trying to use the WDABase class with the DataGrid example in chapter 5 but am having a problem getting it to work. The following example is slightly different then the example in chapter 5. The code throws the error "Object reference not set to an instance of an object." at the line "objData.Command.CommandText = "Query1" in the event NonParameterQuery"

Code:

 
PublicClass Form1
Private Sub PopulateGrid()
'Initialize a new instance of the WDABase data class
Using objData As New WDABase
Try
'Populate the DataSet
objData.DataAdapter.Fill(objData.DataSet, "DataGrid")
'Bind the data to the dataset
dgrd1.DataSource = objData.DataSet
'The data member is the table name
dgrd1.DataMember = "tGrid"
'Set the Alternating RowsDefaultCellStyle.BackColor
dgrd1.AlternatingRowsDefaultCellStyle.BackColor = Color.WhiteSmoke
'Set theCellBorderStyle property
dgrd1.CellBorderStyle = DataGridViewCellBorderStyle.Raised
'Set the SelectionMode property
dgrd1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
'Set the AutoSizeColumnsMode property
dgrd1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
'Center align the State columnn
dgrd1.Columns("State").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Using
End Sub
Private Sub NonParameterQuery()
'Initialize a new instance of the WDABase data class
Using objData As New WDABase
objData.Command.CommandText = "Query1"
objData.Command.CommandType = CommandType.StoredProcedure
objData.Command.Connection = objData.Connection
'PopulateGrid the data grid
PopulateGrid()
End Using
End Sub
Private Sub ParameterQuery()
'Initialize a new instance of the WDABase data class
Using objData As New WDABase
objData.Command.CommandText = "Query2"
objData.Command.CommandType = CommandType.StoredProcedure
'PopulateGrid the data grid
PopulateGrid()
End Using
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
NonParameterQuery()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ParameterQuery()
End Sub
EndClass

Thearon · May 9th, 2009, 07:20 AM

Does your WDABase class initialize the Command object when the class is initialized? From the code that you have posted that is inferred.

Thearon

sirmilt · May 13th, 2009, 01:49 PM

Thearon, thank you for the reply.

Unless I misunderstood thr code, this initializes the Command object in the EDABase class:

PublicSub InitializeCommand()
If Command IsNothingThen
Try
Command = New OleDbCommand(SQL, Connection)
'See if this is a stored procedure
IfNot SQL.ToUpper.StartsWith("SELECT ") _
AndNot SQL.ToUpper.StartsWith("INSERT ") _
AndNot SQL.ToUpper.StartsWith("UPDATE ") _
AndNot SQL.ToUpper.StartsWith("DELETE ") Then
Command.CommandType = CommandType.StoredProcedure
EndIf
Catch OleDbExceptionErr As OleDbException
ThrowNew System.Exception(OleDbExceptionErr.Message, _
OleDbExceptionErr.InnerException)
EndTry
EndIf
EndSub

I get the error at this line of code:
objData.Command.CommandText = "Query1"

Thearon · June 23rd, 2009, 06:49 AM

Have you tried setting a breakpoint in the InitializeCommand procedure to ensure that the Command object is being initialized. If so then step through the code from that point until you set it to your query to make sure no other call is being made to set that object to Nothing.

Thearon