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