Utiles VB.NET 1.1

VB NET ASP 1.1
Recuperar el valor de una celda de un DataGrid

En el evento
DataGrid1.SelectedIndexChanged


Session("Id") = Me.DataGrid1.SelectedItem.Cells(0).Text

--------------------------------------------------------------------------------------------
VB NET ASP 1.1
Recuperar el total de renglones en un DataGrid

Session("TotalRenglones") = Me.DataGridMetricasMeta.Items.Count()

--------------------------------------------------------------------------------------------
VB NET ASP 1.1
Obtener el texto del item seleccionado, ya que el dropdownlist no cuenta con una propiedad text directamente.

Me.DropDownListProducto.Items(Me.DropDownListProducto.SelectedIndex).Text

--------------------------------------------------------------------------------------------
VB NET ASP 1.1

Recuperar el valor de archivo web.config

'Extraer la cadena de conexión del archivo web.config en una variable de aplicación.
Application("ServerBD") = ConfigurationSettings.AppSettings("ServerBD")

--------------------------------------------------------------------------------------------
VB NET ASP 1.1
Poner texto en un dropdownlist como si se tratará de una caja de texto.

Me.DropDownList1.SelectedItem.Text = "Seleccione un valor"

--------------------------------------------------------------------------------------------
VB NET ASP 1.1
Ocultar columna del DataGrid

Me.DataGridMetricasMeta.Columns(6).Visible = False

--------------------------------------------------------------------------------------------
VB NET ASP 1.1
Encontrar y seleccionar un item basado en un texto en un DropDownList

DropDownList1.SelectedValue = DropDownList1.Items.FindByText("Ilumina").Value

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

Validar existencia de nulo en el resultado de un DataReader

If IsDBNull(dr("ObsDocto")) then

End if

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

Pasar parametros a un comando

cmd.Parameters.Add("@EmployeeID", SqlDbType.Int).Value = EmployeeID

cmd.Parameters.Add("@Name", SqlDbType.Int).Value = System.DBNull.Value--Valor nulo

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

Ejecutar una Transacción ADO.NET

cn.Open

Dim trans as SqlTrasaction = cn.BeginTransaction
Dim cmDel as New SqlCommand()

cmDel.Connection = cn

cmDel.Transaction = trans

Try

cmDel.CommandText = "Delete TablaDetalle Where Product = 12"

cmDel.ExecuteNonQuery()

cmDel.CommandText = "Delete TablaEnc Where Product = 12"

cmDel.ExecuteNonQuery()

trans.Commit()

Catch Ex as Exception

trans.Rollback()

Finally

cn.Close()

End try