Utiles NET 2.0

Crear y acceder a los métodos de un TableAdapter definido en un DataSet tipado.

'Esta función retorna una DataTable después de crear el TableAdapter y ejecutar el método definido en la mismo.
Public Function ObtenerAreasXEsActiva() As DataSet1.AREADataTable
Dim AreasAdapter As New DataSet1TableAdapters.AREATableAdapter()
Dim Areas As DataSet1.AREADataTable
Areas = AreasAdapter.GetDataByEsActivaArea(1)
Return Areas
End Function

----------------------------------------------------------------

Recuperar de web.config

Forma 1:My.Settings.Item("ConnectionStringCaja")
Forma 2:My.Settings.strSQLServer

-----------------------------------------------------------
Accesar a una celda de un GridView
DataGridView1.Rows(0).Cells(0).Value = DateTime.Now 'Colocar el valor.
DataGridView1.Rows(0).Cells(0).Style.Format = "d"
MessageBox.Show(DataGridView1.Rows(0).Cells(2).Value)

Recuperar el valor de la celda seleccionada en el GridView por ejemplo al evento
SelectedIndexChanged.

sValor = Me.GridView1.Rows(Me.GridView1.SelectedIndex).Cells.Item(0).Text

------------------------------------------------------------

Condición necesaria para manejar el doble postback de un
ButtonField del tipo image en un GridView. Por ejemplo al evento RowDeleting

Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting

If (Me.Request("x") Is Nothing) AndAlso (Me.Request("y") Is Nothing) Then
objArea = New AreaBLL
objArea.DeleteArea(Me.GridView1.Rows(e.RowIndex).Cells.Item(0).Text)
Else
Me.GridView1.DataSource = objArea.ObtenerAreas()
Me.GridView1.DataBind()
End If
End Sub

--------------------------------------------------------------------------------------------

Implementar el pagineo en el GridView

Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging

'Asignar el nuevo índice d página solicitado.
Me.GridView1.PageIndex = e.NewPageIndex
Me.GridView1.DataSource = objArea.ObtenerAreas()
Me.GridView1.DataBind()

End Sub