marzo 22, 2007

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

Utiles SQL Server

Registros que están en A, pero no en B

SELECT NombreEmp FROM EMPLEADO WHERE (IdEmpleado NOT IN (SELECT IdEmpleado FROM EMPLEADO_AREA))

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

Obtener registros duplicados

select au_lname count(*) from dup_authors group by au_lname having count(*) > 1

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

Consulta con apostrofe

Select ApPat From EmpleadoWhere ApPat = 'O''Rally'

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

Obtener sólo la fecha de un DateTime

SELECT CONVERT(CHAR(10), FechaAltaCustodia, 103) AS SoloFecha FROM FOLIO_CUSTODIA
------------------------------------------------------------------------------------------
Convert con redondeo

Select Convert(numeric(3,0), 987.654)--Salida 988

------------------------------------------------------------------------------------------
Case

SELECT Nombre,
EsActivo= CASE
WHEN EsActivo= 0 THEN 'No'
WHEN EsActivo= 1 THEN 'Si'
END
FROM Tabla1

------------------------------------------------------------------------------------------
Uso de Exist

IF EXISTS(SELECT * FROM authors WHERE au_fname = 'Elmer')
PRINT "Existen los datos"
ELSE

RAISERROR('No existen los datos')

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

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