Declare some integers for holding the values


Private MonthlyGoal As Integer = 0
Private FiscalYrYTD As Integer = 0

In your Databound event add up the values:

Public Sub dgAttainment_ItemDataBound(ByVal sender As Object, ByVal e As DataGridItemEventArgs)

If e.Item.ItemType = ListItemType.Item Or _
e.Item.ItemType = ListItemType.AlternatingItem Then
‘add the items as you bind each row
‘Intellisense will not have the datafield name when you choose
‘e.item.dataitem but just add it anyways – it is the datafield
‘that you have used in your datagrid column
MonthlyGoal += e.Item.DataItem.MonthlyGoal
FiscalYrYTD += e.Item.DataItem.FiscalYrYTD

ElseIf (e.Item.ItemType = ListItemType.Footer) Then
‘put the added values into the appropriate column in the footer

e.Item.Cells(6).Text = FormatCurrency(MonthlyGoal, 2)
e.Item.Cells(9).Text = FormatCurrency(FiscalYrYTD, 2)

end if

End Sub

'Declare your connection, command and SQL
Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim strSQL As String
'Assign your values
'I have concatenated the partnumber with the product name for ease of the user
strSQL = "select item_id,part_number,(part_number + '-' + productname) as theitem FROM products "
myConnection = New SqlConnection(conString)
myCommand = New SqlCommand(strSQL, myConnection)
'Open your connection
myConnection.Open()
'My dropdownlist is named drpProducts
drpProducts.DataSource = myCommand.ExecuteReader()
'Use the values from the SQL to populate the text and value fields of dropdown
drpProducts.DataTextField = "theitem"
drpProducts.DataValueField = "item_ID"
drpProducts.DataBind()
'Give your dropdownlist a default value
drpProducts.Items.Insert(0, "Choose Item")
'Close your connection
myConnection.Close()

'Declare your connection & command objects along with your SQL String
Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim strSQL As String
'Build your SQL and populate your other values
strSQL = "select myPrice FROM myproducts where itemid= " & drpProducts.SelectedItem.Value
myConnection = New SqlConnection(conString)
myCommand = New SqlCommand(strSQL, myConnection)
'Open your connection
myConnection.Open()
'Assign your retrieved value to an object
lblItemPrice.Text = myCommand.ExecuteScalar()
'Close your connection
myConnection.Close()

I came across a rollover image control that Chris Garrett put together - I don't usually do rollovers but am trading out a web site for a heavy metal band (they are doing some construction for me) and they want rollovers. I started to do it with client side javascript and googled it with .net and found this clean, neat little user control to throw into your library.

'Set up your connection Info
Dim conDB As New SqlConnection(Me.conString)
Dim Command As New SqlClient.SqlCommand("GetVendorOrders")
Command.CommandType = CommandType.StoredProcedure
Command.Connection = conDB

'Create your Parameters (I created 2)
Dim vendorCode As New SqlClient.SqlParameter()
vendorCode.ParameterName = "@vendorCode"
vendorCode.SqlDbType = SqlDbType.NVarChar

Dim marking As New SqlClient.SqlParameter()
marking.ParameterName = "@flaggedValue"
marking.SqlDbType = SqlDbType.Int

'Set Parameter Values
vendorCode.Value = "AZ"
marking.Value = 3

'Add your Parameters
Command.Parameters.Add(vendorCode)
Command.Parameters.Add(marking)

'Create DataAdapter and place into Dataset
Dim daSalesByCategory As New SqlClient.SqlDataAdapter()
daSalesByCategory.SelectCommand = Command
Dim dsOrders As New DataSet()
daSalesByCategory.Fill(dsOrders)

Create Procedure "InsertnewOrder"

As

Insert into Orders(orderDate, orderStatus) Values(getdate(),'Shopping')

RETURN (@@IDENTITY)

Dim myCon As SqlConnection
myCon = New SqlConnection(conString)
Dim myCmd As SqlCommand
myCmd = New SqlCommand("InsertnewOrder", myCon)
myCmd.CommandType = CommandType.StoredProcedure
myCmd.Parameters.Add("@return", SqlDbType.Int)
myCmd.Parameters("@return").Direction = ParameterDirection.ReturnValue
myCon.Open()
myCmd.ExecuteNonQuery()
Session("orderID") = myCmd.Parameters("@return").Value.ToString()

butPrint.Visible = True

Sub pullRecords(ByVal sender As System.Object, ByVal e As System.EventArgs)

'I have eliminated code to build the SQL String but basically create a datagrid in this subroutine like you normally would



Dim dreader As System.Data.SqlClient.SqlDataReader
dreader = cmdReturn.ExecuteReader(CommandBehavior.CloseConnection)
dgOrders.DataSource = dreader
dgOrders.DataBind()


dreader.Close()
conDB.Close()
conDB.Dispose()

End Sub