Lobyte --Julio César SP--

Modelo Entidad Relación Direcciones México

2011-10-28T21:45:00.005-05:00

Manejo de excepciones en SQL Server

2011-02-24T16:30:00.001-06:00

Dos formas de manejar los errores con SQL Server, sólo que con el uso de Try-Catch únicamente se puede implementar en versiones 2005 o superior y con el uso de GOTO desde la 2000.

Ambas formas funcionan, pero es más practica y segura (por si se omite validar alguna instruccion que provoque excepción) la que protege todo el bloque que es propenso a excepción.

---- Uso clásico con uso de marcadores y GOTO

Declare @Msj nvarchar(200)
--Comienza la transacción
BEGIN TRANSACTION

    --UPDATE 1
    --DELETE 1
    --Insert 1
    --para simular error
    Select 1/0
    --Verificar si hubo errores
    IF @@Error != 0
       GOTO ERROR_HANDLER


--Finalizar la Transacción
COMMIT TRANSACTION
print 'OK fin transacción'
SET NOCOUNT OFF
RETURN

--Manejador de Error.
ERROR_HANDLER:
ROLLBACK TRANSACTION
--Imprimir msj de error
set @Msj = 'Tenemos el error # ' + CONVERT(VARCHAR(10), Error_number()) + ' ' +
        Error_message() + ' en la linea: ' + convert(varchar(10), ERROR_LINE())
RAISERROR 13000 @Msj
RETURN

-----Uso con Try-Catch de SQL Server 2005 o superior

Declare @Msj nvarchar(200)
--Comienza la transacción
BEGIN TRANSACTION
BEGIN Try
    --UPDATE 1
    --DELETE 1
    --Insert 1
    --para simular error
    Select 1/0
COMMIT TRANSACTION
END Try

BEGIN Catch

    ROLLBACK TRANSACTION
    --Imprimir msj de error
       set @Msj = 'Tenemos el error # ' + CONVERT(VARCHAR(10), Error_number()) + ' ' +
           Error_message() + ' en la linea: ' + convert(varchar(10), ERROR_LINE())

       --PRINT @Msj
    Raiserror 13000 @Msj

END Catch

Desarrollo de Software en 3 capas (los objetos Entity son transportadores entre las capas)

2011-02-17T22:49:00.001-06:00

Los objetos Entity o también llamados: ValueObject son objetos que estan disponibles como transportadores entre las capas.

Modelo Entidad Relación para Control de Acceso en las Aplicaciones (Roles por Aplicación)

2011-02-16T17:40:00.007-06:00

Tenemos la necesidad de un modelo de base de datos que nos permita el control de acceso a los objetos de nuestra aplicacion, es así que tenemos una tabla de Aplicaciones o Sistemas que se compone de objetos, por ejemplo formas o paginas, botones etc. luego definimos los roles que tendrán acceso a nuestro sistema o aplicacion, por ejemplo Administradores, invitados (lectores) , operadores etc y éstos tendrán determinados derechos para Consultar, Insertar, Actualizar u Eliminar (CRUD), definidos los roles y sus derechos a los obejtos de nuestras aplicaciones, asociamos éstos a nuestros Usuarios, así que tenemos un sólo Usuario que podra accesar a las diferentes aplicaciones o sistemas que tengamos a través de la definición de un rol para cada aplicación.
A continuación les muestro el modelo E/R propuesto, espero les pueda servir!

Asi se veria un query con la información del rol que tiene un usuario vs. una aplicación, con el que podrimos hacer un objeto que este presente durante toda la session que tenga el usuario ante una aplicación:

Como manejar los bloqueos en SQL Server

2011-02-15T12:10:00.000-06:00

Hace un tiempo tuve el problema de la concurrencia y como efecto de ésta tenia muchos bloqueos y quejas de los usuarios porque el aplicativo no les confirmaba sus operciones. Me puse a buscar en Internet de que hacer ya que los bloqueos no tenia forma de como evitarlos, pero necesitaba al menos hacer algo para manejarlos y miren este buen articulo que encontre:

http://www.codeproject.com/KB/database/SQLServer_deadlock.aspx

Cómo enviar correo electrónico por código usando cuentas de GMail

2011-01-30T12:03:00.001-06:00

Requeria enviar programaticamente emails, pero no cuento con un servidor de email (SMTP), así que busque si se podia hacer a través de mi cuenta de GMAIL y encontré este fabuloso post con un ejemplo, lo probé y funciona a la perfección.

http://geeks.ms/blogs/jalarcon/archive/2007/06/23/c-243-mo-enviar-correo-electr-243-nico-por-c-243-digo-usando-cuentas-de-gmail.aspx

Auditoria de instrucciones DDL

2011-01-29T15:32:00.002-06:00

Con DDL Triggers apartir de SQL Server 2005 podemos auditar todos las operaciones de DDL a la BD

USE pruebas

--La tabla de auditoria
Create Table DDL_Auditoria(
Id int Not Null identity,
FechaEvento datetime not null,
TipoEvento SYSNAME not null,
UsuarioEvento SYSNAME not null,
NombreObjeto SYSNAME not null,
NombreObjetoObjetivo SYSNAME not null
)

--disparador
Create TRIGGER DDL_AuditoriaDML ON DATABASE FOR DDL_DATABASE_LEVEL_EVENTS
As

Declare @EV as XML
SET @EV = EVENTDATA()
INSERT INTO DDL_Auditoria
VALUES(
CAST(@EV.query('data(//PostTime)') as varchar(23)),
CAST(@EV.query('data(//EventType)') as Sysname),
CAST(@EV.query('data(//LoginName)') as Sysname),
CAST(@EV.query('data(//ObjectName)') as Sysname),
CAST(@EV.query('data(//TargetObjectName)') as Sysname)
)
go

--Probamos el disparador con 2 operaciones DDL y consultamos las entradas de auditoria en nuestra tabla
Create Table TablaNueva (Cve int)
go
Alter Table TablaNueva ADD Col2 int
go
Select * FROM DDL_Auditoria
go

DDL Triggers apartir de SQL Server 2005

2011-01-29T14:46:00.002-06:00

En versiones anteriores sólo existian disparadores para operaciones DML para intrucciones INSERT, UPDATE y DELETE apartir de SQL Server 2005 es posible implementar disparadores para DDL

Por ejemplo:
USE pruebas

--Disparador que impediara modificar cualquier tabla de la BD.
Create Trigger DDL_1 ON DATABASE FOR ALTER_TABLE AS
RAISERROR('No se puede alterar tablas en esta Base de Datos', 16, 1)
ROLLBACK
Go

--Para probar que no se puede alterar la tabla, intentaremos una intrucción DDL a la tabla.
Alter table T1 ADD COLUMNA3 Varchar(10)
go

Funcionalidad de CDC (Change Data Capture) en SQL Server 2008

2011-01-28T16:01:00.001-06:00

SQL Server 2008 incluye una nueva configuración que nos sirve muy bien para el control de la auditoria sobre las operaciones DML (Update, Insert y Delete)

http://jcgonzalezmartin.wordpress.com/2008/04/21/sql-server-2008-change-data-capture-o-cdc/

http://weblogs.sqlteam.com/derekc/archive/2008/01/28/60469.aspx

Patrón de diseño: Estrategia

2011-01-17T18:11:00.005-06:00

Utilizaremos el patrón stretegy porque se requiere implementar un mecanismo dinámico para el calculo de impuesto de acuerdo al país a donde se va a facturar, por ejemplo Europa, EE.UU y México y quizás otros paises más.

Proposito: De comportamiento
Alcance: Objeto
A continuación el diagrama de clases que representa a este patrón.

Ahora el diagrama de clases del calculo de impuestos de acuerdo al país

El código en C#
La clase contexto:

La interface que de acuerdo al tipo de objeto selecciona la clase concreta para realizar el calculo del impuesto.

las clases concretas, que implementan a la interface con el calculo del impuesto correspondiente a cada país

y finalmente el cliente

Asi si en el futuro de factura a otro país, sólo tenemos que implementar la interface con una clase concreta que realice el calculo correspondiente.
http://es.wikipedia.org/wiki/Strategy_(patr%C3%B3n_de_dise%C3%B1o)

Patrón de diseño: Método Plantilla

2011-01-17T15:40:00.009-06:00

Utilizaremos el patrón Template Method porque queremos crear una clase que nos permita trabajar cierta funcionalidad independientemente del manjeador de base de datos, acontinuación veremos su representación en el diagrama de clases:

Ahora el diagrama de clases de lo que nosotros queremos (ejecución de operaciones independientes del manejador de base datos).

Y ahora el código en C#

Esta es la clase que contiene el método plantilla. Observemos que los métodos que tienen que ver con el manejador de base de datos se han definido abstractos (sin implementar) pues estos deberán ser implementados por cada clase que represente al manejador de base de datos que queremos trabajar.

Las clases concretas que se casan con el manejador de Base de Datos

Otra clase concreta que implementa a la clase ConectividadBD, ahora para Oracle

Y el código cliente:

Y así si queremos utilizar Informix, DB2 y los que sean.

http://en.wikipedia.org/wiki/Template_method_pattern

Herencia entre Interfaces

2011-01-16T14:52:00.000-06:00

Las interfaces no pueden heredar de clases, pero si de otras interfaces. En la siguiente imagen vemos como IVehiculoVolador hereda de IVehiculo, porque un VehiculoVolador también es un Vehiculo y al implementar la interface IVehiculoVolador tenemos que implementar las dos interfaces.

Ahora el mismo diagrama, pero con los métodos implementados de las interfaces que utilizan:

Escenarios que pueden implementarse para el manejo de excepciones

2011-01-15T21:52:00.001-06:00

Tipos de errores en la programacion del software

2011-01-15T21:29:00.003-06:00

Excepción: errores en tiempo de ejecución que no son fatales (uso de Try-catch)

Invocar al Constructor de la clase Base en C#

2011-01-14T16:19:00.002-06:00

Tenemos una clase que hereda de otra y sabemos que los constructores no son heredados, entonces podemos desde la clase que hereda invocar al constructor de la clase base, en este caso para no volver a escribirlo o quizas en su cuerpo agregar alguna otra inicialización.

Lista de parámetros dinámica a una función C#

2011-01-14T14:06:00.001-06:00

Requerimos hacer una función que reciba un número de parámetros desconcido desde 1 hasta N valores para tratarlos a todos.

//Los parámetros dinámicos se definene en la firma del método como un arreglo sin tamaño.
public static int Suma(params int[] argumentosN)
{
    int total = 0;//el acumulador
    for (int i = 0; i < argumentosN.Length; i++){
       total += argumentosN[i];
     }
     return total;
}

Al llamar a la funcion pasamos el # de parametros que queramos, en este caso siempre los sumara todos

Console.WriteLine("valor : " + Suma (4,5,5,5,6));
Console.WriteLine("valor : " + Suma (4,5,5,5,6,3,4,5,33,45,2,3,44,5,1,12,4));

Algunas Consideraciones en el Uso de las Variables: Locales, de Instancia y Estáticas en .NET

2011-01-14T00:09:00.003-06:00

Así, las variables locales siempre deberan ser inicializadas antes de utilizarlas sino el compilador marcará un error. Los campos o variables de clase sino so inicializadas, éstas serán inicialzadas a sus valores defaul correspondientes, los tipo númericos a cero y los tipos de datos referencia a null para ello tenga presente el uso de constructores.

Clasificación de tamaño de los proyectos en el desarrollo sistemas

2011-01-13T15:24:00.004-06:00

Comenzaremos por la definición de proyecto que por ahi encontré.

Proyecto: Conjunto o secuencia de actividades que se desarrollan durante un tiempo por un equipo de personas para obtener un resultado u objetivo concreto. Así un proyecto siempre tendrá:

* Un objetivo concreto por alcanzar
* Una linea de tiempo con un principio y un final
* Un equipo de personas
* Recursos limitados (dinero, equipos, licencias...)

Y cómo podemos clasificar a los proyectos de software de acuerdo a su tamaño? bueno considero que n función de dos factores: tiempo y número de personas:

* Chicos: tienen una duración menor o igual a 6 meses con la participación de un equipo de personas de 1-5

* Medianos: tienen una duración mayor a 6 meses y menor o igual 36 meses con la participación de un equipo de personas de 5 a 15

* Grandes: tienen una duración de más de 36 meses y con un equipo de personas mayor a 15

¿Cuáles son hoy las habilidades necesarias para la construcción del Software?

2011-01-13T10:55:00.002-06:00

* Análisis de Requisitos
* Análisis y Diseño Orientado a Objetos
* Programación Orientada a Objetos
* Ingenieria de usabilidad
* Diseño de Interfaces de usuario
* Diseño de Base de Datos
(Referencia: UML y Patrones. Craig Larman)

Múltiples referencias al mismo objeto (Referencias entre objetos)

2011-01-09T15:53:00.022-06:00

Definción de referencia: Una referencia es un valor en tiempo de ejecución que está: o vacío o conectado.

Caso ejemplo:
Tenemos una clase que nos permite almacenar libros, es así que un libro se compone de la siguiente información:

-Titulo
-Año de publicación
-No paginas
-Autor
-Fecha Nacimiento
-Pais de Origen

De tal modo que cuando necesitamos crear más de un objeto Libro para los cuales se trata del mismo autor se veria de la siguiente forma:

Asi que por ello es la referencia entre objetos, es decir; en el objeto Libro habrá un apuntador que referncia al objeto Autor:

En el Diagrama de Clases lo podemos ver en la navegación, en donde la clase Libro tiene un apuntador a la case Autor:

Y en la implemantación en C# como una aplicación de consola:

using System;
class Libro
{
public string Titulo;
public Int16 AñoPublicacion;
public Int16 NoPaginas;
public Autor AutorLibro; //esta es la variable para hacer la refencia la objeto Autor
}

using System;
class Autor
{
public string Nombre;
public string FechaNacimiento;
public string PaisOrigen;
}

Y el programa cliente que hace uso de las clases y las relaciona através de referencias entre objetos:

using System;
class Program
{
static void Main(string[] args)
{
//creamos 2 libros que tienen mismo autor
Libro Libro1 = new Libro();
Libro1.Titulo = "Ensayo de la ceguera";
Libro1.AñoPublicacion = 1998;
Libro1.NoPaginas = 234;

Libro Libro2 = new Libro();
Libro2.Titulo = "El Evangelio Segun Jesucristo";
Libro2.AñoPublicacion = 1992;
Libro2.NoPaginas = 334;

//genereamos el autor
//Cuando se realiza una instancia de una clase (mediante new) se reserva en la memoria un espacio
//para un conjunto de datos como el que definen los atributos de la clase que se indica en la instanciación.
//A este conjunto de variables se le denomina variables de instancia.
Autor Autorlibro = new Autor();
Autorlibro.Nombre = "José Saramago";
Autorlibro.FechaNacimiento = "22/07/1948";
Autorlibro.PaisOrigen = "Portugal";

//Los 2 libros los escribió el mismo autor de tal modo que la referencia es al mismo objeto autor.
//las variables AutorLibro de cada Libro apuntan ambas al mismo Autor que es la variable de instancia creada arriba con new.
Libro1.AutorLibro = Autorlibro;
Libro2.AutorLibro = Autorlibro;
//Ahora vamos a imprimir los libros con su respectivo autor para identificar que se trata del mismo.
Console.WriteLine("Impresión del libro 1:");
Console.WriteLine("Titulo: " + Libro1.Titulo);
Console.WriteLine("Año de PublicaciÃ³n: " + Libro1.AñoPublicacion);
//ahora exponemos los datos del autor que apuntan desde el objeto libro al objeto autor.
Console.WriteLine("Autor : " + Libro1.AutorLibro.Nombre);
Console.WriteLine("Fecha de Nacimiento : " + Libro1.AutorLibro.FechaNacimiento);
Console.WriteLine("Pais de Origen: : " + Libro1.AutorLibro.PaisOrigen);

Console.WriteLine("");
Console.WriteLine("Impresión del libro 2:");
Console.WriteLine("Titulo: " + Libro2.Titulo);
Console.WriteLine("Año de Publicación: " + Libro2.AñoPublicacion);
//ahora exponemos los datos del autor que apuntan desde el objeto libro al objeto autor.
Console.WriteLine("Autor : " + Libro2.AutorLibro.Nombre);
Console.WriteLine("Fecha de Nacimiento : " + Libro2.AutorLibro.FechaNacimiento);
Console.WriteLine("Pais de Origen: : " + Libro2.AutorLibro.PaisOrigen);
Console.WriteLine("");
Console.WriteLine("Enter para terminar");
Console.ReadLine();//espera un Enter para continuar.
}
}
La salida:

Y asi, si el mismo autor tiene 100 libros todos los objetos Libro tendrán una refencia al mimo objeto Autor. Y este mismo esquema aplica para muchos casos por ejemplo tenemos muchas Facturas expedidas al mismo Cliente, no tenderemos un objeto Cliente por cada objeto Factura, habrá muchas Facturas todas apuntando al mismo Cliente.

Cursores FAST-FORWARD en SQL Server

2011-01-04T20:22:00.003-06:00

If you have no choice but to use a server-side cursor in your application, try to use a FORWARD-ONLY or FAST-FORWARD, READ-ONLY cursor. When working with unidirectional, read-only data, use the FAST_FORWARD option instead of the FORWARD_ONLY option, as it has some internal performance optimizations to speed performance. This type of cursor produces the least amount of overhead on SQL Server.

http://www.sql-server-performance.com/tips/cursors_p1.aspx

EJEMPLO de uso:
--Declaramos las variables
Declare @cod as int
Declare CURSOR1 cursor FAST_FORWARD for
select Valor from tabla1
Open CURSOR1

-- Avanzamos un registro y cargamos en las variables los valores encontrados en el primer registro
fetch next from CURSOR1
into @cod
while @@fetch_status = 0
Begin
--intruccion: la necesidad de implementar el cursor.
print convert(varchar(10), @cod)

-- Avanzamos otro registro
fetch next from CURSOR1
into @cod
End

-- cerramos el cursor
close CURSOR1
deallocate CURSOR1

Store Procedure con lecturas sucias

2011-01-04T16:30:00.002-06:00

Ventajas: no hay bloqueos.

Desventajas: los select no obtienen valores al 100% vs lo que inserta, actualiza o elimina la concurrencia.

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE dbo.spuX
AS
BEGIN
SET NOCOUNT ON;
--especiifcacion de nivel de aislamiento (equivalente a usar NoLock
SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED;
SELECT 1
END
GO

¿Cuando usar Cursores?

2011-01-04T16:27:00.002-06:00

Los cursores son buenos cuando estamos hablando de menos de 300 registros, las tablas temporales seria la mejor opción, pero si sabemos que la tabal temporal podria tener unos 1000 registros mejor utilecemos una variable de tipo table en lugar de la tabla temporal que se crea en el disco en la bd de Tempdb.

Los cursores reservan recursos en el servidor, como por ejemplo locks, packages,
procesos, almacenamiento temporal, etc. Por ejemplo, Microsoft SQL Server implementa los cursores creando una tabla temporal y rellenándola con los datos de la consulta.
Si un cursor no se cierra de manera correcta, el recurso no será liberado hasta que la sesión SQL (conexión) sea cerrada. Este desperdicio de recursos en el servidor puede llevar no sólo a una degradación del rendimiento, sino también a fallos más graves.

Variables Tabla (CursorLess) SQL Server

2011-01-04T16:18:00.003-06:00

Un ejemplo de utilizar variables tabla en SQL Server
http://www.eggheadcafe.com/articles/20010823.asp

Algunas ventajas: son que todo se trabaja en memoria no hay I/O como es el caso de tablas temporal.

USE NORTHWIND
--1. Declaracion de la variable tabla
declare @SpecialCustomers TABLE (
CustomerID nchar (5) NOT NULL ,
OrderID int NOT NULL ,
ShipVia int NOT NULL,
Freight money NOT NULL)

--2. poblamos la variable tabla con la informacion de la tabla Orders
insert into @SPecialCustomers select CustomerID, OrderID, ShipVia, Freight
from dbo.Orders where ShipVia =1 AND Freight >50.25

--3. Actualizamos datos con el uso de la informacion en la variable tabla
UPDATE ORDERS SET ShipVia=4, Freight =21.00
where ORDERS.OrderID IN (SELECT ORDERID FROM @SpecialCustomers)es o cursores.

Útil Link sobre Triggers en SQL Server

2009-08-05T14:12:00.002-05:00

En algún momento estaba haciendo un disparador al update en la tabla y necesitaba comparar el valor anterior vs. el nuevo valor del update y no sabia como y bueno santa solución en el podoroso Internet. Este es el link con la explicación y ejemplos:

http://www.devjoker.com/contenidos/Tutorial-de-Transact-SQL/278/Triggers-en-Transact-SQL.aspx

Excelente Link con util script SQLServer2k y diccionario de tablas de Sistema

2009-08-05T14:06:00.002-05:00

Buscando información para obtener en modo SQL los resultados de ejecución de jobs en SQL Server 2000 -Jobs History- me entontre este últil script y el mapa correspondiente al diccionario de las tablas de sistema de SQL Server!

http://dbagroup.cl/blog/?p=66

Query Triggers asociados a que Tabla SQL Server

2009-03-04T11:41:00.002-06:00

SELECT po.name as Tabla, tr.name as [Trigger Name]

FROM sysobjects po

JOIN sysobjects tr ON tr.parent_obj = po.id

WHERE tr.xtype = 'TR'AND po.xtype = 'U'

Hotkeys en un DataGridView

2008-09-12T10:47:00.002-05:00

En un formulario Windows agregar un DataGridView cargarlo con datos para implementar la funcionalidad de teclas calientes, por ejemplo al Ctrl+F aplica un calculo al Ctrl+R refresca la rejilla, etc.

1. Agregar métodos que responden a la combinación de teclas

Private Sub ctrl_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
Dim ctrl As Control = DirectCast(sender, Control)
End Sub

Private Sub InitializeEvents()
'AddHandler Me.DataGridView1.KeyPress, AddressOf txt_KeyPress
'AddHandler Me.DataGridView1.KeyDown, AddressOf txt_KeyDown
AddHandler Me.DataGridView1.KeyUp, AddressOf ctrl_KeyUp
End Sub

2. Funcionalidad a ejecutar al detectar la combinación de teclas sobre un renglon de la rejilla al evento KeyUp

Private Sub DataGridView1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp
Select Case e.KeyData
Case e.KeyCode.Control + e.KeyCode.F 'Aplica Calcluo
MessageBox.Show("Ejecutar AplicaCaluloX())
Case e.KeyCode.Control + e.KeyCode.R 'Refrescar contenido-Databinding-
MessageBox.Show("Ejecutar RefrescarRejilla()")

End Select
End Sub

Leer entrada de app.config VS.NET 2005

2008-09-12T10:40:00.003-05:00

1. Agregar archivo app.config

2--Leer de app.config
Configuration.ConfigurationManager.AppSettings.Item("AplicarFactorDiseñoPaq").ToString.Length

Referencia de Uso de la herramienta: JetBrains DotTrace con ADO.NET

2008-09-11T11:23:00.005-05:00

Esta herramienta ayuda a medir es el tiempo que se toma cada una estas operaciones para mostrar los datos. Esta herramienta te permite mediante la técnica de "code profiling" conocer el tiempo y cantidad de veces de cada una de las llamadas a los métodos de tu aplicación, incluido el código de .NET.

En este pagina se describe el uso de esta interesante herramienta, yo la utilice porque al poblar un GridView de asp.net con un sqldatareader se tardaba muchisimo al solicitar unos 20,000 registros y con esta herramienta encntré en donde se hacia el cuello de botella.

http://msmvps.com/blogs/cwalzer/archive/2007/09/24/anti-pr-225-cticas-i-acceso-a-datos-con-ado-net.aspx

La referencia es parte de un conjunto de articulos muy interesantes relacionados con la utilización de la herramienta con uso de objetos ADO.NET

Performance: Lectura de Datos con ADO.NET
Performance: Lectura de Datos con ADO.NET II
Performance: Lectura de Datos con ADO.NET III
Performance: Datos en Memoria con ADO.NET IV

Store Procedure devuelve Información de Tablas de BD en SQL Server

2008-09-11T09:49:00.004-05:00

create procedure dbo.p_sizetablesas
Begin transaction
/***Procedimiento creado por KM para ver el tamaño de las tablas de una base de datos*/
SET NOCOUNT ON
declare @nombre_tabla varchar(100)
declare @propietario varchar(40)
declare @uid int
declare @nombre_completo varchar(150)
declare @nombre_db varchar(256)

create table #resultados
(nombre varchar(50), filas decimal(12,0), reservado varchar(40),
data varchar(40), tamaño_indice varchar(20),
no_usado varchar(20))

declare tablas cursor
for select a.uid , propietario = left( b.name,40), tabla = a.name
from sysobjects a, sysusers b
where type = 'U' and a.uid = b.uid order by tabla

select @nombre_db = db_name()

OPEN tablas
FETCH NEXT FROM tablas
into @uid, @propietario, @nombre_tabla
WHILE @@FETCH_STATUS = 0
BEGIN
if @uid = 1
begin
insert #resultados
exec sp_spaceused @nombre_tabla
end
else
begin
SET @nombre_completo = rtrim(ltrim(@nombre_db))+'.' + ltrim(rtrim(@propietario)) +'.'+ @nombre_tabla
insert #resultados
exec sp_spaceused @nombre_completo
end
FETCH NEXT FROM tablas INTO @uid, @propietario, @nombre_tabla
END

CLOSE tablas
DEALLOCATE tablas

select * from #resultadosorder by filas desc
Commit Transaction
go

--ejecutarlo en query analizer
exec p_sizetables

Referencia
http://www.lawebdelprogramador.com/codigo/codigo.php?idp=794&id=89&texto=SQL

Query a cadena XML

2008-09-11T09:37:00.006-05:00

Crear:
1. El esqueleto de la tabla para poder hacer el select
2. El store procedure que hace el query de la cadeana XML basado en el esqueleto de la tabla
3. Ejecutar el Store Procedure con la cadena XML (probar en el query analizer)

1--La Tabla -Esqueleto

CREATE TABLE [dbo].[SKUsCARGA] ( [CveProducto] [varchar] (20) NOT NULL , [DescProductoTerrSub] [varchar] (150) NOT NULL , [Territorio] [varchar] (20) NOT NULL , [SubTerritorio] [varchar] (20) NOT NULL , [Tecnica] [varchar] (50) NOT NULL , [Precio] [varchar] (10) NOT NULL , [Tamanio] [varchar] (50) NOT NULL , [Pocision] [varchar] (50) NOT NULL , [Apoyo] [varchar] (50) NOT NULL , [FechaAlta] [datetime] NOT NULL , [UsrAlta] [varchar] (20) NOT NULL )

--2. El Store Procedure

CREATE PROCEDURE dbo.PruebaXML
@xmlCargaSKUs text
as
Declare @idoc int
--Ejecutar el sp que carga en memoria el docuemnto XML.
EXEC sp_xml_preparedocument @idoc OUTPUT, @xmlCargaSKUs
--El Query al docto XML
SELECT CveProducto, Territorio, SubTerritorio, Tecnica, Precio, Tamanio, Pocision, Apoyo
FROM OPENXML (@idoc, '/SKUsCARGA/SKU')
WITH SKUsCARGA
--Descargar documento XML de la memoria.
EXEC sp_xml_removedocument @idoc
GO

--3. La ejecucion del store procedure con el paso de la cadena XML

Requerimiento implementacion Gestión de Facturas

2008-08-10T11:04:00.001-05:00

Implantación de la Base de Datos (Back-End)

-Deberá ser con el manejador de base de datos Access o SQL Server 2000
-Deberá diseñar una base de datos bajo los conceptos de normalización y su respectiva integración referencial de la información.
-Deberá modelar la entidad Cliente, Empleado, Producto y Factura. Para cada entidad definirás los atributos básicos para poder operar la factura.
-Si decide utilizar SQL Server 2K puedes usar Store Procedures o Vistas en la implantación o cadenas SQL en el Front-End

Implementación de la GUI (Front-End)

-Deberá ser utilizando Visual Basic NET 2005 o 2008 con el lenguaje Visual Basic .NET
-El tipo de aplicación puede ser ASP.NET -Web- o aplicación de escritorio
-Puedes hacerlo en capas, con objetos, etc. como tú desees.
-Sólo deberá implementar la interfaz GUI para la factura.

¿Qué debe permitir la aplicación para trabajar con las facturas?
- El sistema deberá permitir al usuario gestionar facturas: dar de alta, eliminar y hacer modificaciones a facturas existentes.
- El sistema deberá permitir seleccionar de una fuente de datos los productos -su descripción- que la empresa tiene a disposición para su venta y que se exponen en la factura (la factura deberá permitir contener de 1 a N productos sin repetir).
- El sistema deberá permitir seleccionar de una fuente de datos los clientes -su nombre o denominación social- registrados a los que se expide una factura.
- El sistema deberá permitir modificar los productos incluidos en la factura; es decir cambiar la cantidad o el producto.
- El sistema deberá calcular automáticamente el importe de cada producto de acuerdo a la cantidad solicitada, el subtotal, importe de IVA -manejarlo al 15%- y gran total.

Entrega de Fuentes :

- El archivo de la base de datos de Access o el archivo de respaldo de la Base de datos si decidiste implementar con SQL Server 2K.

- El proyecto de Visual Basic NET 2005 con el código fuente de la operación de la factura.

Aspectos principales a evaluar:

- Con respecto a la base datos el modelo Entidad-Relación implementado
- Con respecto a la GUI de la gestión de la factura, facilidad de uso al usuario, forma de interactuar con la base de datos.

Formato separador miles a número en SQL Server

2008-08-10T10:10:00.002-05:00

DECLARE @val float
SET @val = '12456.00'
SELECT CONVERT(varchar(50), CONVERT(money, @val), 1)

--Salida
12,456.00

Uso de pwdencrypt y pwdcompare en SQL Server 2K

2008-02-14T13:10:00.002-06:00

Estás dos funciones en SQL Server permiten cifrar y descifrar valores y que son muy últiles para guardar información no legible en la base de datos.

Ejemplo de uso:

--Devuelve la cadena cifrada.
select pwdencrypt('abcde')
--el resultado es: 0x0100841F6D61428B6A7C1E497428DA4F77201E9C15CE03B39414324ADFC9BEDF7C73FCEC7120D2AEEEACA1732737
--Este valor es el que almacenamos en nuestra tabla, por ejemplo un numero de cuenta o una contraseña, de esta manera si alguien ingresa a esta tabla no sabrá a que valor pertenece.

--Ahora comparamos el texto en claro con lo que se almacena en la BD, regresa 1 si son iguales, sino cero.

select pwdcompare('abcde',0x0100841F6D61428B6A7C1E497428DA4F77201E9C15CE03B39414324ADFC9BEDF7C73FCEC7120D2AEEEACA1732737)

Ahora veremos un store procedure en donde recibe el texto en claro -un password- y lo compara
con el que esta en la BD cifrado.

CREATE PROCEDURE dbo.spu_SelectUsr
@Usuario varchar(15),
@Passwd varchar(15)
AS

Set nocount on;

Declare @ExisteCta bit
set @ExisteCta = 0

SELECT @ExisteCta = 1
FROM USUARIO
WHERE (Usuario = @Usuario) AND (pwdcompare(@Passwd, PasswdCifrado)=1)
if @ExisteCta = 0
begin
Raiserror 13000 'No existe la cuenta de acceso proporcionada.'
Return
end
Go

Link otros ejemplos
http://msmvps.com/blogs/gladchenko/archive/2005/04/06/41083.aspx

Control para graficar en asp.net

2008-02-14T12:30:00.002-06:00

Recientemente tuve la necesidad de graficar unos datos en el web, y mi sorpresa fue que visual studio net 2005 no incluye un control para ello, mi otra opción era sacarlo con Crystal Reports o un control y encontré este gratuito que me parecio muy bueno y además free.

http://www.carlosag.net/Tools/WebChart/Default.aspx

La guía de uso rápido o tutorial:
http://www.carlosag.net/Articles/WebChartTutorial.aspx

Herramientas gratis para SQL Server

2008-02-14T12:28:00.001-06:00

Excelente link en donde podrán encontrar útiles herramientas para SQL Server 2k-2005

http://weblogs.sqlteam.com/mladenp/archive/2007/11/20/Free-SQL-Server-tools-that-might-make-your-life-a.aspx

row-locks en operaciones SQL-Insert/Update/Delete

2007-09-27T17:23:00.001-05:00

Este es un tip que me paso un cuate llamado Christian que es DBA en SQL Server. Para no poner de rodillas a su servidor de base de datos SQL Server

Un link de referencia adicional es:
http://support.microsoft.com/kb/323630

"A veces por cuestiones de performance o necesidad de trabajar con un conjunto de registros grandes, es conveniente hacerlo parcialmente, es decir, en "pedazos". Esto puede suceder porque al trabajar con millones de registros se generen demasiados row-locks y consuman toda la memoria y el query falle en su ejecución."

Aquí un query de ejemplo:

SET NOCOUNT ON --QUITAMOS LOS MENSAJES DE CONTEO DE REGISTROS AFECTADOS YA QUE LO PERSONALIZAMOS

DECLARE @Afectados bigint --DECLARAMOS UNA VARIABLE PARA ACUMULAR LOS REGISTROS AFECTADOS

DECLARE @Afec bigint --DECLARAMOS UNA VARIABLE PARA SABER CUANTOS ACUMULO EN CADA PASO

SET @Afectados = 0 --INICIALIZAMOS EL ACUMULADO

Borra: --ETIQUETA PARA SALTO

SET Rowcount 1000 --ESTA SENTENCIA ES LA MAS IMPORTANTE: LE DECIMOS AL SQL QUE LA SIGUIENTE SENTENCIA SOLO AFECTARÁ A 1000 REGISTROS (AUNQUE EXISTAN MÁS)!!!!!!.

DELETE Facturas

WHERE Fecha_factura < '2007/01/01' --EJECUTAMOS NUESTRA SENTENCIA, ESTA ES SOLO UN EJEMPLO Y SUPONDREMOS QUE LA SENTENCIA POR SÍ SOLA AFECTARÍA MILLONES DE REGISTROS.

SET @Afec = @@Rowcount --OBTENEMOS CUANTOS REGISTROS AFECTO (SOLAMENTE AL FINAL QUE YA NO HAYA REGISTROS POR AFECTAR DEVOLVERÁ CERO, DE LO CONTRARIO DEVOLVERÁ LOS 1000 QUE CONFIGURAMOS)

SET @Afectados = @Afectados + @Afec

print 'Afectados: ' + CONVERT(varchar,@Afectados) --AQUÍ VAMOS IMPRIMIENDO EL ACUMULADO DE LOS REGISTROS QUE VA AFECTANDO PARA DARNOS UNA IDEA DE CUANTO LEVA. (Ver pantalla resultado al final)

if @Afec > 0 goto borra --SI EL NUMERO DE REGISTROS QUE AFECTO EL DELETE ES MAYOR A CERO (ES DECIR QUE AUN HAY MÁS REGISTROS POR BORRAR) REGRESA A EJECUTAR EL DELETE.

set rowcount 0 --RESETEAMOS EL ROWNCOUNT PARA QUE YA AFECTE NORMAL

El resultado se vería como la siguiente imágen:

Tipos Nulables para valores NULL en Bases de Datos

2007-09-27T16:20:00.000-05:00

Hace unos días hice una clase de tipo Entity que la poblabla con registros de una tabla de una Base de Datos y la mayoría de sus valores eran opcionales, es decir nulos así que utilice el concepto de tipos nulables del framework 2.0. Con esta clasecilla insertaba regsitros con valores nulos.

Public Class Cuestionario
'Los miembros privados nulables
Private _otroIdiomaHabla As Nullable(Of Byte)
Private bolv1 As Nullable(Of Boolean)

--los métodos públicos de acceso a los miembros privados.
Public Property OtroIdiomaHabla() As Nullable(Of Byte)
Get
Return Me._otroIdiomaHabla
End Get

Set(ByVal value As Nullable(Of Byte))
Me._otroIdiomaHabla = value
End Set

End Property
End Class

'El uso de la clase
Dim objCuestionario as new Cuestionario
'Asigno nada a su miembro
objCuestionario.OtroIdiomaHabla = Nothing
'Verifico el valor
If objCuestionario.OtroIdiomaHabla.HasValue then
'Existe valor
Else
'Sin valor
End if

'Cuando asigno valor a un comando como parametro a la ejecución de un store procedure 'pasamos el valor o un nothing implicito por el tipo nulable y que equivale a un null en la columna de la tabla de la BD.
cmd.Parameters.Add("@OtroIdiomaHabla", Data.SqlDbType.Bit, 1).Value = objCuestionario.OtroIdiomaHabla

'En el store procedure asignamos un default al parametro y cuando pasamos el valor a través del parametro a nuestro objeto esteremos pasando un nothing que va equivaler al Null.
CREATE PROCEDURE spuInserta
@OtroIdiomaHabla tinyint=NULL
As
Insert Into Tabla (OtroIdiomaHabla, ValorX)
Values(@OtroIdiomaHabla, Default)
Go

Links a páginas de iconos

2007-09-27T16:16:00.000-05:00

Como desarrolladores de aplicaciones WEB y de escritorio siempre necesitamos de iconos de todo tipo recientemente consulté dos páginas de iconos simpre utiles para que las agreguen a susu favoritos.

http://www.iconfinder.net/
El siguiente link me lo paso mi cuate Gerardo Hdz.
http://www.iconarchive.com/

Los 7 pecados mortales de Ajax

2007-09-27T16:14:00.000-05:00

un buen link teórico de lo bueno y malo de usar Ajax!
http://www.tufuncion.com/errores-ajax

Serialización con .NET 2.0

2007-05-02T17:09:00.000-05:00

Hace unos días tuve la necesidad de serializar un objeto y esto es lo que encontré para el Framework 2.0

Imports System.Xml.Serialization
Imports System.IO

Private Sub SerilizarObj()
Dim serializar As XmlSerializer = New XmlSerializer(GetType(AreaBLL))
'Creamos el objeto a serializar
Dim objArea As New AreaBLL()
objArea.IdArea = 1
objArea.NombreArea = "MKT"
objArea.AreaPadre = "Presidencia"
'Archivo en donde vamos a colocar el objeto deshidratado.
Dim stream1 As New FileStream("C:\area.xml", FileMode.Create)
'Serilizar
serializar.Serialize(stream1, objArea)
stream1.Close()
End Sub

Private Sub DesSerializarObj()
'Obtener a memoria el archivo XML
Dim FileXML As FileStream = New FileStream("C:\area.xml", FileMode.Open)
'Crear un XMLSerializer para manejar la deserialización
Dim serialize As XmlSerializer = New XmlSerializer(GetType(AreaBLL))
'Crear el objeto que se va a rehidratar.
Dim objArea As New AreaBLL
'Deserializar el obj.
objArea = serialize.Deserialize(FileXML)
FileXML.Close()
End Sub

Ejemplo de Aplicación ASP.NET 2.0 en capas con DataSet Tipado

2007-04-17T14:11:00.000-05:00

Para el desarrollo de esta aplicación utilizamos Visual Basic .NET con Visual Studio .NET 2005.

Estrucutura del proyecto ASP.NET
- Una carpeta App_Code con:

Una clase Area. Que hace uso de los métodos de la Clase del tipo Business Entities representada por un TableAdapter de un DataSet.

Una clase DataSet. Contiene un DataSet tipado el cual contiene los TableAdapter que representan a cada uno de los objetos Entitie con sus respectivos métodos de Acceso a Datos.

- La forma Web “Area.aspx” representa a la capa GUI.

Las 3 capas

En una arquitectura en 3 capas tenemos la capa de presentación o GUI, en nuestro ejemplo son los archivos aspx. La capa de Negocio que en nuestro ejemplo la representan nuestras clases Entity ubicados en el DataSet Tipado y para cada objeto entidad existe un TableAdapter con los métodos necesarios para el Acceso a Datos. Y la clase Area que representa como una clase Control que se comunica con las clases Entity y sus metodos de acceso a datos para luego hacer DataBinding con controles en la GUI.

Detalles de la Implementación

Tenemos una tabla llamada Area para la cual queremos implementar una forma de mantenimiento. La pantalla a la que queremos dar funcionalidad con la arquitectura en 3 capas es:

Esta es la estructura de la tabla de la base de datos correspondiente al Area y los datos que regresa el store procedure que estaremos ejecutando.

Implementación del DataSet que contiene a los TableAdapters que representan a nuestros objetos Business Entities.

Algunas de las formas de representar a los Business Entities en la apicación son:
· XML
· DataSet Genericos
· DataSet Tipados
· Componentes Business Entities personaizados
· Componentes Business Entities con comportamiento CRUD

Para nuestro ejemplo utiizaremos el caso de DataSet Tipados. En la siguiente imagen podemos observar como se representa nuestro Business Entiy Area y en la parte baja observamos los métodos de acceso a datos que nos permiten poblar al Businness Entity representado como un DataTable.

Implementación del Objeto Area.

Este objeto es como un objeto control que invoca a los métodos de acceso a datos definidos para cada TableAdapter

Imports Microsoft.VisualBasic

Public Class Area

Public Function ObtenerAreas() As DataSet1.AREADataTable
Dim AreasAdapter As New DataSet1TableAdapters.AREATableAdapter()
Dim Areas As DataSet1.AREADataTable = AreasAdapter.GetData
Return Areas
End Function

End Class

Podemos observar que esta clase crea una instacia del adaptador correspondiente al objeto Entity que deseamos trabajar en este caso: “AreaTableAdapter” luego invocamos su método de acceso a datos llamado GetData que nos regresa un DataTable con cada una de las áreas y que retornamos a la capa GUI para hacer DataBinding con un GridView.

Implementación de la capa de Presentación GUI

En esta capa es en donde vamos a poblar los controles visuales. El GridView se carga durante el evento Load de la página aquí crea una instancia del objeto Control Area y éste expone un método público que obtiene las Area que nos regresa en un objeto DataTable con el cual hacemos DataBinding al GridView.

Partial Class Default2
Inherits System.Web.UI.Page

Dim objArea As New Area

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then

Dim objArea As New Area
Me.GridView1.DataSource = objArea.ObtenerAreas
Me.GridView1.DataBind()

End If
End Sub

'Implementación del Pagineo la Grid
Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
Me.GridView1.PageIndex = e.NewPageIndex
Me.GridView1.DataSource = objArea.ObtenerAreas()
Me.GridView1.DataBind()
End Sub

'Borrar el registro seleccionado en el Grid
Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting
'Para detectar el segundo postback generado por el ButtonField del tipo Image se verifican sus coordenadas x y.
If (Me.Request("x") Is Nothing) AndAlso (Me.Request("y") Is Nothing) Then

Dim iAffect As Int16
objArea = New Area
iAffect = objArea.DeleteArea(Me.GridView1.Rows(e.RowIndex).Cells.Item(0).Text)
Else
Me.GridView1.DataSource = objArea.ObtenerAreas()
Me.GridView1.DataBind()
End If
End Sub

'Al seleccionar un área se muestra en los controles independientes.
Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
Me.LabelIdArea.Text = Me.GridView1.Rows(Me.GridView1.SelectedIndex).Cells.Item(0).Text
Me.TextBox2.Text = Me.GridView1.Rows(Me.GridView1.SelectedIndex).Cells.Item(1).Text
Me.TextBox1.Text = Me.GridView1.Rows(Me.GridView1.SelectedIndex).Cells.Item(2).Text
Me.CheckBox1.Text = Me.GridView1.Rows(Me.GridView1.SelectedIndex).Cells.Item(3).Text
End Sub

End Class

Conclusión: Ésta es una de las formas propuestas por Microsoft.

Ejemplo de una Aplicación ASP.NET 2.0 en 3 capas con Colecciones de Objetos Personalizados

2007-04-17T14:10:00.000-05:00

Para el desarrollo de esta aplicación utilizamos Visual Basic .NET con Visual Studio .NET 2005.
La arquitectura es en 3 capas con uso del patrón Mapper.

Estrucutura del proyecto ASP.NET
- Una carpeta App_Code con 3 carpetas.

La Carpeta Entities. Esta carpeta contiene a todos las clases que corresponden a los objetos de negocio del tipo entity, es decir objetos persistentes en la Base de Datos

La Carpeta ColeccionesObj. Esta carpeta contiene a las clases que operan como colecciones de objetos de los objetos entity, es decir existe un objeto collecion por cada objeto Entity.

La Carpeta Mappers. Esta carpeta contiene a las clases encargadas de crear objetos entity uno o más con los registros que obtiene de la base de datos y los objetos creados son consumidos por la capa de presentación. Los objetos mappers contienen los métodos necesarios para obtener y persistir los objetos del tipo Entity. Para cada objeto entity existe un objeto Mapper, pero cada uno de estos tiene el patrón Singleton para asegurar que exista una única instancia en toda la aplicación. Podriamos decir que este objeto es el encargado del acceso a datos y hace uso las objetos entity que devueve a la capa de presentación.

-La forma Web “Area.aspx” representa a la capa GUI

Las 3 capas

En una arquitectura en 3 capas tenemos la capa de presentación o GUI, en nuestro ejemplo son los archivos aspx. La capa de Negocio que en nuestro ejemplo la representan nuestras clases Entity ubicados en la carpeta Entites y la capa de Acceso a Datos representada por los objetos Mappers en nuestra carpeta Mappers y la Capa de datos son los objetos de la Base de Datos en nuestro ejemplo se representa con store procedures. En este caso los objetos Mappers son los encargados de comunicar las 3 capas y pasar datos del mundo relacional al de objetos.

Esta es la estructura de a tabla de la base de dato correspondiente al Area y los datos que regresa el store procedure que estaremos ejecutando.

Implementación de la clase Entity (Objeto de Capa de Negocio)

Algunas de las formas de representar a los Business Entities en la aplicación son:
· XML
· DataSet Genericos
· DataSet Tipados
· Componentes Business Entities personaizados
· Componentes Business Entities con comportamiento CRUD

Para nuestro ejemplo utilizaremos el caso de ”Componentes Business Entities Personalizados”.

La clase Entity representa al objeto de negocio Area. Para ello agregamos una Clase en la carpeta Entities con el nombre AreaBLL.

Imports Microsoft.VisualBasic

Public Class AreaBLL

Private _idArea As Integer
Private _nombreArea As String
Private _obsArea As String
Private _esActivaArea As Boolean
Private _fechaModificArea As Date
Private _usrModificArea As String
Private _idAreaPadre As Integer
Private _AreaPadre As String

Public Property IdArea() As Integer
Get
Return Me._idArea
End Get
Set(ByVal value As Integer)
Me._idArea = value
End Set
End Property

Public Property NombreArea() As String
Get
Return Me._nombreArea
End Get
If value.Trim.Length > 0 Then
Me._nombreArea = value
Else
Throw New Exception("Debe proporcionar el nombre del área")
End If
End Property

Public Property ObsArea() As String
Get
Return Me._obsArea
End Get
Set(ByVal value As String)
Me._obsArea = value
End Set
End Property

Public Property EsActivaArea() As Boolean
Get
Return Me._esActivaArea
End Get
Set(ByVal value As Boolean)
Me._esActivaArea = value
End Set
End Property

Public Property FechaModificArea() As Date
Get
Return Me._fechaModificArea
End Get
Set(ByVal value As Date)
Me._fechaModificArea = value
End Set
End Property

Public Property UsrModificArea() As String
Get
Return Me._usrModificArea
End Get
Set(ByVal value As String)
Me._usrModificArea = value
End Set
End Property

Public Property IdAreaPadre() As Integer
Get
Return Me._idAreaPadre
End Get
Set(ByVal value As Integer)
Me._idAreaPadre = value
End Set
End Property

Public Property AreaPadre() As String
Get
Return Me._AreaPadre
End Get
Set(ByVal value As String)
Me._AreaPadre = value
End Set
End Property

End Class

Podemos observar que se compone de propiedades privadas que representan a cada una de las columnas de la tabla. Para que dichas propiedades sean accesibles creamos los métodos públicos que leen o escriben en las propiedades. (Con esto implementamos el concepto de Encapsulamiento de la teoría de la Programación Orientada a Objetos).

Implementación de la clase colección para cada objeto Entity

Ahora requerimos construir una clase que nos permita contener una colección de objetos entidad. Si observamos la pantalla que deseamos dar funcionalidad tenemos una rejilla que debe poblarse con objetos entidad del tipo AreaBLL. Agregamos una clase que llamaremos Area_Coleccion y que debe heredar de la clase CollectionBase.

Imports Microsoft.VisualBasic

Public Class Area_Coleccion
Inherits CollectionBase
Default Public Property Item(ByVal index As Integer) As AreaBLL
Get
Return CType(List(index), AreaBLL)
End Get
Set(ByVal value As AreaBLL)
List(index) = value
End Set
End Property

Public Function Add(ByVal value As AreaBLL) As Integer
Return (List.Add(value))
End Function

Public Function IndexOf(ByVal value As AreaBLL) As Integer
Return (List.IndexOf(value))
End Function

Public Sub Insert(ByVal index As Integer, ByVal value As AreaBLL)
List.Insert(index, value)
End Sub

Public Sub Remove(ByVal value As AreaBLL)
List.Remove(value)
End Sub

Public Function Contains(ByVal value As AreaBLL) As Boolean
Return (List.Contains(value))
End Function
End Class

Podemos observar que los métodos de esta clase reciben objetos del tipo Area. Es así que para cada objeto Entity que tengamos debemos crear un objeto Colección, esto si es que requerimos devolver una colección de objetos a la capa de datos. En nuestro ejemplo si requerimos poblar un GridView que muestra a un conjunto de objetos Area.

Implementación de la clase Mapper para cada objeto Entity

Esta es la clase que se encarga de regresar un objeto Entity a la capa de presentación o una colección de objetos de acuerdo al método invocado.

Como esta clase es la que accede a la base de datos utilizamos el DataBlock de Microsoft. Accedemos a los datos a través de store procedures. La cadena de conexión se encuentra en el archivo web.config

Si observamos el método “GetAllArea” retorna una colección de objetos del tipo Area_Colección. Se extraen los registros de base de datos a través de un SqlDataReader y luego se recorre a cada uno y con cada renglon se pobla un objeto Entity AreaBLL, luego el objeto poblado se agrega a la Colección de objetos Area y así sucesivamente para cada objeto creado de acuerdo a los registros de base de datos obtenidos en el SqlDataReader.

Imports Microsoft.VisualBasic
Imports Microsoft.ApplicationBlocks.Data
Imports System.Data.SqlClient
Imports System.Reflection
Imports System.Data

Public Structure AreaMapper
Private _SQLCon As String

'Propiedades necesarias para implementar la clase como Singleton.
Private Shared mInstance As AreaMapper
Private Shared mMutex As New System.Threading.Mutex()

Public ReadOnly Property SQLCon() As Integer
Get
Return Me._SQLCon
End Get
End Property

'Implementando la clase como Singleton.
Public Shared Function GetInstance() As AreaMapper
mMutex.WaitOne()
If mInstance Is Nothing Then
mInstance = New AreaMapper()
End If
mMutex.ReleaseMutex()
Return mInstance
End Function

Public Sub New()
_SQLCon = ConfigurationManager.ConnectionStrings("TimonConnectionString").ToString()
End Sub

'Iniciar con la cadena de conexión
Sub New(ByVal pSQLCon As String)
_SQLCon = pSQLCon
End Sub

Public Function GetAllArea() As Area_Coleccion
Dim dr As SqlDataReader = Nothing
Try
dr = SqlHelper.ExecuteReader(_SQLCon, Data.CommandType.StoredProcedure, "spSelectArea")
Dim ListaAreas As New Area_Coleccion
While dr.Read()
ListaAreas.Add(PopulateArea(dr))
End While
Return ListaAreas

Catch ex As SqlException
Throw New Exception(ex.Message & " En la rutina: " & MethodInfo.GetCurrentMethod.Name)
Catch ex As Exception
Throw New Exception(ex.Message & " En la rutina: " & MethodInfo.GetCurrentMethod.Name)
Finally
If Not dr Is Nothing AndAlso Not dr.IsClosed Then
dr.Close()
End If
End Try
End Function

Private Function PopulateArea(ByVal dr As SqlDataReader) As AreaBLL
Dim ObjArea As New AreaBLL
Try

ObjArea.IdArea = Convert.ToInt32(dr(0)) 'IdArea
ObjArea.NombreArea = Convert.ToString(dr(1)) 'NombreArea

'ObsArea
If Not dr(2) Is DBNull.Value Then
ObjArea.ObsArea = Convert.ToString(dr(2))
End If

'EsActivaArea
ObjArea.EsActivaArea = Convert.ToByte(dr(3))
'AreaPadre
ObjArea.AreaPadre = Convert.ToString(dr(4))

Return ObjArea

Catch ex As SqlException
Throw New Exception(ex.Message & "En la rutina: " & MethodInfo.GetCurrentMethod.Name)
Catch ex As Exception
Throw New Exception(ex.Message & "En la rutina: " & MethodInfo.GetCurrentMethod.Name)
End Try
End Function

End Structure

Implementación de la capa de Presentación GUI

En esta capa es en donde vamos a poblar los controles visuales con objetos Entity o listas de objetos Entity. Nosotros queremos que la cargarse la forma web se poble el GridView con los datos de todas las áreas que se encuentran en la tabla Area de la base de datos. Hacemos esto en el evento Load. Podemos observar como creamos un objeto de la clase AreaMapper y que para poblar el GridView ejecutamos su método GetAllArea y que lo establecemos como DataSource al GridView a esto se lo conoce como DataBinding con objetos de negocio.

Partial Class _Default
Inherits System.Web.UI.Page

Private ObjAreaMapper As AreaMapper

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
ObjAreaMapper = AreaMapper.GetInstance()
Call poblarDBGrid()
Call poblarListaAreasPadre()

End If
End Sub

Private Sub poblarDBGrid()
Try
Me.GridView1.DataSource = ObjAreaMapper.GetAllArea
Me.GridView1.DataBind()
Me.LabelTotalRegGrid.Text = "Total de Registros: " & Me.GridView1.Rows.Count
Catch ex As Exception
Me.LabelInfo.Text = ex.Message
End Try
End Sub

Private Sub poblarListaAreasPadre()
Try

Me.DropDownList1.DataSource = ObjAreaMapper.SelectAreas
Me.DropDownList1.DataValueField = "IdArea"
Me.DropDownList1.DataTextField = "NombreArea"
Me.DropDownList1.DataBind()

Catch ex As Exception
Me.LabelInfo.Text = ex.Message
End Try
End Sub
End Class

Este es un diagrama que expone de manera general la arquitectura de la aplicación desarrollada

Referencias
http://msdn2.microsoft.com/en-us/library/ms978496.aspx

http://builder.com.com/5100-6387-1049997.html

Excelente artículo DateSet vs. Colecciones de Objetos

2007-04-17T13:48:00.000-05:00

Este es el link a un excelente articulo que expresa ventajas y desventajas de usar DataSets y Colecciones de Objetos, cuando usar unos y otros. Muchas veces como desarrolladores utilizamos lo que nos dicen los manuales de microsoft o los libros, pero no sabemos tecnicamente que es mejor, tomamos lo que mejor entendemos o lo que nos parece más fácil, pero creo que esto no es del todo correcto.

http://msdn.microsoft.com/msdnmag/issues/05/08/CuttingEdge/

Algo de lo que dice este articulo con respecto a los DataSets es que estos implementan la serialización de manera automática, pero ésta tiene un costo muy considerable cuando se hace para miles de registros. Soportan la concurrencia optimista, el databinding , permiten la implementación de links lógicos entre tablas cuyo fin es hacer árboles hijos de datos, pero esto último comunmente no es utilizado.

Con respecto a las colecciones de objetos cuya implementación requiere heredar de la clase
CollectionBase son considerablemente más rápidos en la recuperación de datos entre las capas. Requieren un mayor trabajo de codificación.

En conclusión el artículo propone pensar muy bien en usar DataSet ya que al parecer estos presentan más desventajas , claro esto depende de la funcionalidad que se requiera ya que los DataSet soportan funcionalidad que no soportan las colecciones de objetos aunque estos últimos presentan un mayor desempeño.

Utiles NET 2.0

2007-03-22T19:49:00.000-06:00

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

2007-03-22T19:31:00.000-06:00

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

2007-03-22T13:12:00.000-06:00

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

Tipo Nullable

2007-02-18T14:11:00.000-06:00

Por ejemplo el tipo entero (Integer en VB) no tenia forma de tener un valor nulo. Esto permite guardar valores nulos en la base de datos.

'Declarar la variable
Dim nul as Nullable(Of Integer)

'Verificar el valor
If nul.HasValue Then
'Tiene valor
End if

Utilizar el Patron Singleton con formularios MDI

2007-01-08T13:20:00.000-06:00

Objetivo: Que desde una aplicación Windows sólo podamos tener una forma hija abierta.

-------1. En la forma hija

'Variable global
Private Shared frmInstance As frmReport = Nothing

'Finalmente crearemos una función shared que será la que finalmente controlara la creación o manejo de la instancia del formulario, logrando obtener solo un formulario 'abierto para este form1.

'Función que verifica sola a una instancia del form1
Public Shared Function Instance() As form1
If frmInstance Is Nothing OrElse frmInstance.IsDisposed = True Then
frmInstance = New form1
End If
frmInstance.BringToFront()
Return frmInstance
End Function

'2-En la forma padre.
'Ahora en el padre escribiremos el llamado al hijo para crear la instancia, o si ya esta 'creada, entonces pondrá el formulario hijo en frente para que lo podamos ver.

Dim frmHijo as form1 = form1.Instance
frmHijo.MdiParent = Me
frmHijo.Show

Referencia:
href="http://www.mentores.net/articulos/Percynet_EditorTexto.htm"

El Patrón Singleton

2007-01-08T11:34:00.000-06:00

Objetivo: Hacer que la instancia de un objeto sea accesible globalmente, y que sea única. Para ello es necesario crear un método en la clase que se desee sólo tener una instancia a la ves.

Yo por ejemplo hice un objeto mapper el cuál necesitaba que no fuera instanciado más de una vez por la aplicacion que lo usara.

'---1 La clase Singleton-----------------------------------------------------
Public Class MapperEmpleado
Private pnombre As String

Public Property nombre() As String
Get
Return pnombre
End Get
Set(ByVal Value As String)
pnombre = Value
End Set
End Property

Private Shared mInstance As MapperEmpleado
Private Shared mMutex As New System.Threading.Mutex()

' Constructor privado para no poder instanciar la clase
Private Sub New()
End Sub

'Método que verifica la existencia del objeto al querer instanciar.
Public Shared Function GetInstance() As MapperEmpleado
mMutex.WaitOne()
If mInstance Is Nothing Then
mInstance = New MapperEmpleado()
End If
mMutex.ReleaseMutex()
Return mInstance
End Function

End Class

--2 La aplicación desde que se consume a la clase que implementa el patrón singleton.

'Para poder instanciar el objeto se usa el método GetInstance ya que el constructor New() es privado.
Dim obj As MapperEmpleado = MapperEmpleado.GetInstance
obj.nombre = "Julio"
Dim obj2 As MapperEmpleado = MapperEmpleado.GetInstance
MessageBox.Show(obj2.nombre)
--El nombre es el mismo porque sólo se permite una clase.

Aquí un link de referencia sobre este patrón:
http://www.mug.org.ar/Patrones/ArticPatrones/304.aspx

http://searchvb.techtarget.com/tip/0,289483,sid8_gci921128,00.html

Check box en GridView para procesar renglones seleccionados

2006-12-11T16:27:00.000-06:00

Recientemente tuve la necesidad de poner un ccheck box en cada una de las filas de un control GridView para que poder seleccionar a un número determinado de ellas y asi poder procesarlas.

1. Agregar el control check box al GridView como parte de sus columnas:

2. Recorrer a todos los renglones del GridView para identificar cuales están seleccionados.

'Obtener el total de renglones para saber cunado parar durante la iteración.
Dim intRows As Int16 = Me.GridViewEdoCta.Rows.Count

For i = 0 To Me.GridViewEdoCta.Rows.Count - 1
'En la posición 13 es en donde se encuentra el control Check.
If CType(Me.GridViewEdoCta.Rows(i).Cells(13).Controls(1), CheckBox).Checked Then
CargoxContrato = Me.GridViewEdoCta.Rows(i).Cells(0).Text
End If
Next

Inserciones, Actulizaciones y Borrados masivo de registros

2006-12-11T16:05:00.000-06:00

En el siguiente ejemplo se expone como hacer Deletes y Updates masivamente con el uso de XML, sólo es necesario pasar el árbol XML al store procedure para leerlo y especificarlo en las intrucciones delete y update. La´página web referencia es:

http://support.microsoft.com/kb/316244/es

Cadena xml válida que recibe el sp:

CREATE PROCEDURE sps_CancelaCargosXContratoTelXML
@xmlCargosxContrato varchar(8000) AS

DECLARE @idoc int --xmlDoc

--Ejecutar el sp que carga en memoria el docuemnto XML.
EXEC sp_xml_preparedocument @idoc output, @xmlCargosxContrato

--Comienza la transacción
BEGIN TRANSACTION
--Actualizar el Status de los cargos a Cancelado.

UPDATE Tel_CargosxContrato SET Tel_CargosxContrato.Status = 'CANCELADO'FROM OPENXML (@idoc, '/CargosxContrato/Concepto')
WITH (CargoUid varchar(11)) Tel_CargosxContratoXML
WHERE Tel_CargosxContrato.Uid = Tel_CargosxContratoXML.CargoUid

--Verificar si hubo errores saltar al bloque manejador.

IF @@Error != 0
GOTO ERROR_HANDLER
--Eliminar cargos de la tabla TEL_Cobranza

Delete Tel_cobranza
FROM OPENXML (@idoc, '/CargosxContrato/Concepto')
WITH (CargoUid varchar(11)) CobranzaXMLWHERE Tel_Cobranza.Uid = CobranzaXML.CargoUid

--Verificar si hubo errores saltar al bloque manejador.
IF @@Error != 0
BEGIN
GOTO ERROR_HANDLE

--Finalizar la Transacción pues todo salió bien.
COMMIT TRANSACTION
SET NOCOUNT OFF
--Descargar documento XML de la memoria.
EXEC sp_xml_removedocument @idoc
RETURN 0

--Manejador de Error.
ERROR_HANDLER:
ROLLBACK TRANSACTION--Descargar documento XML de la memoria.EXEC sp_xml_removedocument @idoc
SET NOCOUNT OFF
RETURN 0
GO

Ocultar columnas con DataBind en un GridView

2006-12-11T15:50:00.000-06:00

Es muy comun el poblar un control GridView con datos de una Base de Datos y ocultar columnas que no es recomendable que se muestran a los usuarios, pero en el GridView al poner la propiedad visible= False de una columna a ocultar y luego tratar de recuperar el valor de esta celda el valor es cadena vacía, para que esto no courra se debe implementar el siguiente evento manejado del GridView y aquí poner las columnas que se desea ocultar.

'Ocultar columnas del GridView que no son necesarias para el usuario en la vista.
Public Sub myGrid_OnRowCreated(ByVal sender As Object, ByVal e As Web.UI.WebControls.GridViewRowEventArgs) Handles GridViewEdoCta.RowCreated
e.Row.Cells(0).Visible = False 'Uid cobranza
e.Row.Cells(1).Visible = False 'MovimientoUid
End Sub

De esta forma si es posible recuperar su valor.
'Recuperar el valor de la celda, aunque este oculta.
Dim strClave as String = Me.GridViewEdoCta.Rows(1).Cells(0).Text

Imprimir directamente con ASP.NET

2006-12-11T14:16:00.002-06:00

1. En el evento Load cargo la lista de impresoras disponibles localemente.

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Me.DropDownListImpresoras.DataSource = PrinterSettings.InstalledPrinters()
Me.DropDownListImpresoras.DataBind()
Me.DropDownListImpresoras.SelectedIndex = 0
End If
End Sub

2. Al hacer clic en el botón imprimir
Protected Sub ButtonImprimir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonImprimir.Click
'Create an instance of PrintDocument
Dim printdoc As New System.Drawing.Printing.PrintDocument()
' Set the printer name
printdoc.PrinterSettings.PrinterName = Me.DropDownListImpresoras.Text
' Handle printing
AddHandler printdoc.PrintPage, AddressOf Me.printdoc_PrintPage
' Print!
printdoc.Print()
End Sub

3. Evento manejado al imprimir que es en donde se especifica lo que se desea imprimir.

Private Sub printdoc_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
'Definición de la fte a utilizar.
Dim printFont As System.Drawing.Font = New System.Drawing.Font("Courier New", 12)

' Dibujar el nombre escrito y que se desea imprimir directamente.
e.Graphics.DrawString(Me.TextBox1.Text, printFont, System.Drawing.Brushes.Black, New System.Drawing.PointF(10.0F, 50.0F))
End Sub

Script para Activar/Desactivar Constraints en SQL Server

2006-11-08T13:03:00.000-06:00

Muchas veces es necesario deshabilitar la integridad referencial o ciertos constraints establecidos en una base de datos SQL Server y este script que encontré en "http://www.melkorcete.com/index.php?c=17" es muy útil para llevar acabo esta tarea.

/*
Script para Activar y Desactivar todos los constraints de una
Base de Datos (CK, FK, PK, DK).

Sólo se especiifca 1 para activar o 0 para desactivar a la variable @p_activar
*/

USE Facturacion

DECLARE @p_activar BIT
SET @p_activar = 1 --Para Activar = 1, Desactivar = 0

Declare @v_retorno int

Begin
Set NoCount Off

-- Almacena la Orden
declare @orden varchar(100)
-- Almacena la Tabla
declare @tabla varchar(100)
-- Almacena el numero de Operacion Realizada
declare @contador int
-- Variables para mensaje
declare @no varchar(2)
declare @des varchar(4)

-- Para la construccion de mensajes se da un valor
-- dependiendo del parametro @p_activar
if @p_activar = 1
begin
set @no = null
set @des = 'A'
end
else
begin
set @no = 'NO'
set @des = 'Desa'
end

-- Cursor para recorrer una a una las Constraints
declare CURSORITO cursor for
SELECT 'ALTER TABLE ' + QUOTENAME(TABLE_SCHEMA) + '.' + QUOTENAME(TABLE_NAME) + ' ' + IsNull(@no,'') + 'CHECK CONSTRAINT ALL',TABLE_NAME
FROM INFORMATION_SCHEMA.TABLES
WHERE
OBJECTPROPERTY(OBJECT_ID(QUOTENAME(TABLE_SCHEMA) + '.' + QUOTENAME(TABLE_NAME)), 'IsMSShipped') = 0
AND TABLE_TYPE = 'BASE TABLE'

-- Inicializacion de Variables
set @orden = ''
set @tabla = ''
set @contador = 0

-- Mensaje de entrada
print ' '
print '####################################################'

if @no = 'NO'
print '### DESACTIVADO DE CONSTRAINTS ###'
else
print '### ACTIVADO DE CONSTRAINTS ###'

print '####################################################'
print '### '

-- Iniciamos el Cursor y lo recorremos
OPEN CURSORITO
fetch next from CURSORITO
into @orden,@tabla
while @@fetch_status = 0
begin
-- Contador ++
set @contador = @contador + 1
-- Ejecutamos la Orden
exec(@orden)
-- Crear mensaje de salida
print '### ' + convert(varchar,@contador) + ' - ' + convert(varchar,@des) + 'ctivado de ' + convert(varchar,@tabla) + ' completado.'
-- Siguiente Vuelta
fetch next from CURSORITO into @orden, @tabla
end
-- cerramos el cursor
close CURSORITO
deallocate CURSORITO

-- Mensaje de Fin
print '### '
print '####################################################'

if @@error = 0
print '### FINALIZADO CORRECTAMENTE ###'
else
print '### FINALIZADO CON ERRORES ###'

print '####################################################'

Select @v_retorno = @@error
End

Explorador de clases de .NET Framework

2006-10-27T17:59:00.000-05:00

http://es.gotdotnet.com/quickstart/aspplus/samples/classbrowser/vb/classbrowser.aspx

Un control Web ASP. net que expone un dialogo de espera

2006-10-16T14:53:00.000-05:00

Este en un control asp net que funciona para la versión 1.1 y 2 y que es muy útil para mostrar al usuario cuando éste debe esperar a que se procese la página.

El link es:

http://busyboxdotnet.qsh.eu/

Revisen el demo. Considero que es un control free muy útil.

Server.Transfer o Response.Redirect, para enviar a los usuarios a otra página?

2006-10-14T00:21:00.000-05:00

En un blog encontré la post y que se encuentra en el siguiente link:

http://blogs.3devnet.com/blogs/starrillo/archive/2006/09/30/1074.aspx

Encriptado de información del ViewState ASP 2.0

2006-10-13T19:38:00.000-05:00

Para reducir el riesgo que alguien intercepte la información almacenada en el ViewState, es posible cifrar dicha información.

Los valores aceptados de la propiedad ViewStateEncryptionMode son:

Always: La información del ViewState siempre es encriptada. Si la aplicación maneja información sensible de manera constante seria conveniente utilizar este valor.

Auto: La información es encriptada si un control lo solicita. Este es el valor por defecto de la propiedad.

Never: La información nunca es encriptada, aún si un control lo solicita. Úselo bajo su propia responsabilidad...

Para establecer el valor a nivel de aplicación empleamos el atributo ViewStateEncryptionMode de la sección pages en el web.config:

pages viewStateEncryptionMode="Always"

O bien por medio del atributo homónimo de la directiva @Page, para establecer el valor en una página en particular:

@Page ViewStateEncryptionMode="Always"

También se puede establecer el valor de manera dinámica a través de la propiedad ViewStateEncryptionMode del objeto Page:

Page.ViewStateEncryptionMode = ViewStateEncryptionMode.Auto

Así pues, utilizando el valor por defecto (Auto) de la propiedad ViewStateEncryptionMode, si se requiere que la información del ViewState sea encriptada, se debe llamar al método RegisterRequiresViewStateEncryption del objeto Page:

If () Then
Page.RegisterRequiresViewStateEncryption()
End If

Formatear (Identación) las instrucciones SQL

2006-10-13T18:02:00.000-05:00

Navegando por Internet encontré este formateador de instrucciones SQL en línea, me gusto mucho pues resulta muy útil para cuando hacemos scripts, stores procedures o disparadores.

Este es el link de referencia:

http://www.wangz.net/cgi-bin/pp/gsqlparser/sqlpp/sqlformat.tpl

EXISTS vs. COUNT(*) en SQL Server

2006-10-05T10:36:00.000-05:00

Es muy común que querramos saber la existencia de datos en determinada tabla de una base de datos y para ello utilizamos EXISTS o COUNT(*), pero qué es más eficiente?

Pues en un artículo que muestra como es más eficiente utilizar EXISTS.

IF EXISTS(SELECT * FROM OrderDetails
WHERE orderid = 10248)
PRINT 'yes'
ELSE
PRINT 'no'

Este es el link de referencia:

http://www.sqlmag.com/Article/ArticleID/38039/sql_server_38039.html

Manual de Diseño e Implementación de Base de Datos

2006-10-05T10:25:00.000-05:00

Este es el link al manual en línea:

http://www.sqlmax.com/centro/programa.asp

Cargar DataTable con DataReader NET 2005

2006-10-05T10:04:00.000-05:00

Ahora en VB.NET 2005 el objeto DataTable puede cargarse via IDataReader (por ejemplo un SqlDataReader) sin necesidad de un objeto SQLDataAdapter. El DataTable tiene un método Load que acepta como argumento un obj que implemente IDataReader.

El siguiente ejemplo pobla un DataView con un DataTable que a su vez es poblado con un SQLDataReader.

----------------Código Fte----------------------------------------------
Imports System.Data.SqlClient

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.DataGridView1.DataSource = llenaDataTableConRS()

End Sub

'Función que ejecuta el reader y carga los resultados en una DataTable.
Private Function llenaDataTableConRS() As DataTable
Dim con As New SqlConnection(strConn)

Dim datatable1 As New DataTable
Dim dr As SqlDataReader
Try
Dim cmd As New SqlCommand("Select * From Employees", con)
con.Open()
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
'Aqui es donde se carga el Recordset al DataTable.
datatable1.Load(dr)

Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
con.Close()
End Try

Return datatable1
End Function
End Class

Guardar la hora como un entero en SQL Server.

2006-10-05T09:56:00.000-05:00

Una opción de guardar la hora es como un valor entero, por ejemplo si son las 11:20 entonces el valor sería guardado como 1120. Sólo es necesario multiplicar por 100.

En el ejemplo se crea una tabla temporal.
Se le agrega un registos con la hora como un entero.
Se consulta el valor guardado.
Se borra la tabla temporal.

--Creación de tabla termporal.
SET NOCOUNT ON
CREATE TABLE #foo
(
tm SMALLINT
)
go

--Insertar la hora y minutos actuales del equipo
INSERT #foo VALUES
(
-- e.g. 1527 = 3:27 PM / 15:27
100 * DATEPART(HOUR, GETDATE())
+ DATEPART(MINUTE,GETDATE())
)

go

--Imprimir la hora y minutos guardados
SELECT tm FROM #foo
go

--Borrar la tabla temporal
DROP TABLE #foo
go
----------------------------------------------------

Verifica si existe tabla en una BD en SQL Server

2006-10-05T09:45:00.000-05:00

--Verifica si existe una tabla temporal.
IF OBJECT_ID('tempdb..#AnyTable') IS NOT NULL
PRINT 'EXISTE'
ELSE
PRINT 'NO EXISTE'
go

--Verifica si existe tabla en determinda Base de datos.
IF OBJECT_ID('Northwind..Categories') IS NOT NULL
PRINT 'EXISTE'
ELSE
PRINT 'NO EXISTE'
go

Función SQL Server verifica existe columna en tabla

2006-10-05T09:39:00.000-05:00

--------------------Código de la Función-----------------------------
CREATE FUNCTION ColumnAlreadyExists(@TableName NVARCHAR(128),@ColumnName NVARCHAR(128))
RETURNS INTEGER--Returns 0 if column does not exist. Returns 1 if column exists.
AS
BEGIN
--See if the Table already contains the column.
IF EXISTS
(SELECT * FROM SysObjects O INNER JOIN SysColumns C ON O.ID=C.ID
WHERE ObjectProperty(O.ID,'IsUserTable')=1
AND O.Name=@TableName
AND C.Name=@ColumnName)
RETURN 1
--Table does not contain the column.
RETURN 0
END
GO

----------------------Usar la función-------------------------IF .dbo.ColumnAlreadyExists('CLIENTE','IdCte')=1
print 'Existe la columna IdCte en la tabla.'
Else
print 'No existe la columna IdCte en la tabla.'
--------------------------------------------------------------

MARS (Multiple Active Result Sets)

2006-08-04T20:06:00.000-05:00

Sobre algo de lo nuevo en NET 2.0 y SQL Server 2005 está el concepto llamado: Multiple Active Result Sets y que la idea es poder trabajar con la misma conexión para dar realizar más de una operación en la base de datos, por ejemplo leer un conjunto de resultados de un datareader y que para cada registro obtenido hacer un insert. Para realizar está operación con SQL Server 2000 es necesario utilizar dos objetos conexión, pero ahora con MARS (Multiple Active Result Sets es posible realizar esto con una sóla conexión, sólo es necesario especificar esta funcionalidad en la cadena de conexión.

connectionString = "Data Source=(local);Integrated Security=SSPI;" & _
"Initial Catalog=AdventureWorks; MultipleActiveResultSets=True"

Using awConnection As New SqlConnection(connectionString)

Este es un link con más información al respecto:

http://msdn2.microsoft.com/en-us/library/yf1a7f4f.aspx

Tipo Nullables en net 2.0

2006-08-04T19:52:00.000-05:00

Hace unos días mi amigo Orlando hizo un procedimiento en visual basic net que leía un datareader, extraía los valores y éstos los pasaba a una función que los recibía para hacer un insert. Él me preguntaba como podia pasar un valor nulo como parámetro a una función y yo le conteste que eso no era posible porque lo que lo que él estaba pasando eran valores a variables escalares y no objetos.

Él necesitaba pasar un valor nulo a su función cuando el datareader que el leía contenía un nulo. Al dia siguiente encontré el concepto de valores nulables soportados por el framework 2.0 y esta es la forma en que se pueden utilizar.

'Asignar un valor nulo al tipo escalar
Dim booleanoNulo as Nullable(Of Boolean) = Nothing
Dim IntegerNulo As Nullable(Of Integer) = 34
'Llamar al método.
valor(booleanoNulo , IntegerNulo )

'Se puede usar la propiedad HasValue de los tipos nullables para preguntar si la variable tiene o no un valor asignado. A continuación se muestra una función que recibe tipos de datos escalares con valores nulos.

Private Sub valor(ByVal booleanoNulo As Nullable(Of Boolean), ByVal IntegerNulo As Nullable(Of Integer))

If booleanoNulo.HasValue() Then
'Asignar Valor.
MessageBox.Show(booleanoNulo.Value)
Else
MessageBox.Show("No existe valor x asignar entonces insertar System.DbNull.Value.")
End If

End sub

Obtener fecha y hora de un datetime en SQL Server

2006-08-04T19:42:00.000-05:00

Muchas veces es neesario extraer sólo la fecha u hora a un valor correspondiente a un tipo Datetime en SQL Server.

Aquí están algunas de las formas de obtenerlo:

SELECT CONVERT(CHAR(10), FechaAlta, 103) AS SoloFecha
FROM Tabla
--103 es el formato corto de dd/mm/aaaa

SELECT dateonly = CONVERT(CHAR(8),FechaHora1,112) FROM TABLA1
SELECT timeonly = CONVERT(CHAR(8),FechaHora1,8) FROM TABLA1

Conocer la disponibilidad de acceso a la red con NET 2.0

2006-06-06T14:17:00.000-05:00

Algo que recientemente leí sobre lo nuevo en el espacio nombres en NET 2.0 fue una clase que nos permite detectar si el acceso a la red está disponible. A mi gusto mucho porque anteriormente yo conocía esto hasta que atrapaba la excepción hasta el momento en que se realizaba una operación con el manejador de base de datos en red. Existen dos formas y cualquiera de ellas regresa un valor boleano.

--Forma 2
MessageBox.Show("Está disponible la conexión: " & System.Net.NetworkInformation.NetworkInterface.GetIsNetworkAvailable())

--Forma 1
MessageBox.Show("Está disponible la conexión: " & My.Computer.Network.IsAvailable)

Otra funcionalidad nueva es poder hacer un ping:

My.Computer.Network.Ping("Server")
En donde "Server" puede ser el nombre del servidor o su IP

Cómo ven al otros los usuarios y los desarrolladores.

2006-06-02T14:56:00.000-05:00

Los cuatro puntos de la cardinalidad de la relación durante el diseño de la BD.

2006-05-29T20:09:00.000-05:00

Hay una restricción importante que se declara gráficamente en las relaciones en el diagrama Entidad-Relación y se llama la cardinalidad, la cual representa qué tantos de una cosa se relacionan con otra. La cardinalidad de la relación es particularmente importante debido a que forma la base de muchas decisiones de diseño. La cardinalidad se expresa con un valor para un mínimo y para un máximo. El valor mínimo describe si la relación es opcional o requerida. El valor máximo describe si la relación es singular o plural. Debido a que las relaciones se indican en ambas direcciones entre las dos entidades, la cardinalidad mínima y máxima también debe ser indicada en ambas direcciones. Esto significa que para cada relación del modelo se requieren cuatro puntos de cardinalidad para expresar adecuadamente la naturaleza de la relación (mínimo y máximo en ambas direcciones).

A continuación veremos mediante un ejemplo el uso de las cuatro preguntas de la cardinalidad de la relación. Vamos a suponer que estamos elaborando una aplicación de facturación, para lo cuál vamos tomar las entidades de este modelo. Decimos que un Cliente compra Productos, entonces existe una relación entre ambas entidades.

Ahora identificamos la cardinalidad de la relación, para ello nos plantemos las siguientes cuatro preguntas –preguntas de la cardinalidad de la relación-

1. Debe un CLIENTE comprar un PRODUCTO? No. Para ser cliente efectivamente alguna vez nos compró, pero después no, así que ya es CLIENTE, pero no necesariamente debe comprarnos productos, después de la primera vez.

2. Puede un CLIENTE comprarnos más de un PRODUCTO? Si. Esto depende de la naturaleza de operación de la organización, pero lo común es que al levantar un pedido a un CLIENTE este puede solicitarnos a más de un PRODUCTO.

3. Debe un PRODUCTO ser comprador por un CLIENTE? No. Porque no podemos forzar a que un PRODUCTO sea comprador por un CLIENTE.

4. Puede un PRODUCTO ser comprador por más de un CLIENTE? Si. Esto es viendo desde el concepto de PRODUCTO y no como una pieza fisica.

Podemos observar que las dos primeras preguntas van enfocadas del CLIENTE al PRODUCTO y las otras dos preguntas del PRODUCTO al CLIENTE.

La pregunta 1 está diseñada para obtener la cardinalidad mínima.
La pregunta 2 está diseñada para determinar si la misma instancia de la entidad A puede participar en relaciones con varias instancias de la entidad B al mismo tiempo.

Cuando quedan determinadas las respuestas a las preguntas 1 y 2, el analista puede poner la cardinalidad mínima y máxima en el diagrama para expresar las reglas de negocio. La notación de la cardinalidad mínima es un cero que significa opcional, o un uno que significa requerida. La notación para la cardinalidad máxima es un uno, que significa solamente uno o un par de patas de gallo significa muchos.

La cardinalidad mínima y máxima debe ser expresada en ambas direcciones para definir adecuadamente la regla de negocio.

Así es como se ve nuestro modelo después de aplicar las cuatro preguntas de cardinalidad.

Pero como sabemos que las relaciones muchos a muchos no se soportan en un RDBMS, entonces nace debe crearse una nueva entidad asociativa que resuelva este tipo de cardinalidad y ésta es FACTURA.

Después de aplicar las cuatros preguntas de cardinalidad, nuestro modelo queda así:

Podemos observar que ahora ha aparecido otra relación muchos a muchos y que es necesario resolver, yo lo llamaré DETALLE_FACTURA. En la siguiente figura se expone el cómo se vería nuestro modelo Entidad-Relación terminado.

Una nota importante a la hora de aplicar las cuatro preguntas de la cardinalidad es el verbo que se nombra entre la relación de ambas entidades, por ejemplo el cliente compra, el producto se incluye, etc.

Cómo funciona y por qué usar AJAX?

2006-05-28T16:33:00.000-05:00

No hace mucho tiempo me enteré de una nueva tecnología que aprovecha a XML y javascript para hacer a nuestras aplicaciones WEB más responsivas y en la web encontré lo que a continuación expreso.

El Web y Ajax

Problema: La recarga de una vista o página anteriormente cargada cuando lo único que se va a modificar entre request y request son sólo datos. La vista sigue siendo la misma. Es decir de evita el rearmado de la vista con los nuevos datos y el viaje de la misma desde el servidor.

Causas: La coomunicación entres el cliente y el servidor es a través de request -peticiones- Y se deja que le servidor genere una nueva vista, pero con los nuevos datos cargados para que el cliente los visualice, cuando en realidad la misma sigue igual, sólo modifica sus datos.

Solución: Separar los datos de la vista. Mediante el uso de un pequeño controlador invoker del lado del cliente dentro de la vista, que administre los datos. Mediante el uso del modelo de objetos del navegador y scripting del lado del cliente se realiza la carga y manejo de datos sobre la vista anteriormente solicitada sin necesidad de realizar un request cuando es posible con los datos actuales. Y al momento de necesitar una acción del servidor para obtener más datos, se realiza la misma evitando la recarga de la vista que continuo siendo la misma.

Ventajas:
1) Solución simple de implementar.
2) Permite obtener datos bajo demanda y luego visualizarlos sin recargar las vistas.
3) Las vistas no se ven afectadas en cuanto a tamaño y éstas pueden ser cacheadas por el navegador ya que las mismas no expirarían continuamente ya que sus datos son manejados independientemente de la presentación.
4) Las vistas no son reescritas por el servidor por lo que separa más la vista en si de los datos, permitiendo un mejor manejo por los diseñadores.

Desventajas:
1) Utiliza frames ocultos.
2) Utiliza más scriptting del lado del cliente

Resumen: Con Ajax se evita la recarga de las vistas cunado no es necesario cambiarla, sino que busca los datos y carga a los mismo en la vista.

Identificación de Reglas de Negocio

2006-05-28T15:59:00.000-05:00

Durante la etapa de análisis la toma de requierimientos es de extrema importancia para lograr el éxito del proyecto y no llegar la final con "una solución elegante a un problema equivocado" y como parte de esta etapa está la identificación de las fomosas "REGLAS DE NEGOCIO".

Qué son las Reglas de Negocio? En el libro "UML y Patrones" de Craig Larman dice:
"Las reglas del dominio dictan en modo en el que podrán operar un dominio o negocio. No son requisitos de ninguna aplicación, aunque, a menudo, los requisitos de una apliación se ven afectados por las reglas del dominio. Las políticas de la compañía, leyes físicas y leyes gubernamentales, son reglas de dominio típicas.

Se demoninan comunmente reglas del negocio, que son el típico más común, pero ese término está limitado, ya que existen aplicaciones de software que no son de gestión de un negocio, como la simulación del clima o la logística militar. Una simulación del clima incluye reglas del dominio, relacionadas con las leyes y relaciones físicas que afectan a los requisitos de la aplicación.

Avertencia: Las reglas no son requisitos de la aplicación. No registre las caracteristicas del sistema como reglas. Las reglas describen las restricciones y comportamientos del modo de trabajar del dominio, no de la aplicación"

Como ven los parrafos anteriores son muy interesantes, pero a continuación aquí hat algo más que encontré en la web sobre las reglas de negocio:

1. Criterios para identificar reglas de negocio o del dominio.

- Condiciones que se deben satisfacer para considerar válidos los datos. Por ejemplo sólo se puede enviar la mercancía hasta que el cliente haya pagado.

- Condiciones que deben ser evitadas.
Por ejemplo que el inventario de cierto producto llegue a cero.

- Secuencias en las que los eventos deben de ocurrir.
Se debe determinar que hacer cuando el inventario llega a cero o cuando un pago para una orden es recibido.

2. Métodos para implementar reglas de negocio.

- Directamente en la base de datos.
DataTypes, Default Values, Rules, Keys y Triggers. (En una palabra constraints de Base de Datos).

- Programación dentro o fuera de la base de datos.
Store Procedures, objetos de negocio, validación directamente en la capa del cliente.

Clasificación de los reportes durante el desarrollo de sistemas.

2006-05-28T14:49:00.000-05:00

Los reportes son las salidas de la información que las organizaciones utilizan para la toma de desiciones o para realizar tareas o procesos de negocio y como desarrolladores estamos comprometidos a crear a la hora de implementar una aplicación.

Cuando trabajé en en un proyecto y que participé desde la fase de toma de requerimientos los usuarios nos empapelaron de solictudes de reportes que según ellos eran necesarios que el sistema les dejará imprimir, yo le comenté a mi jefe sobre está situación y le mencioné que desde mi punta de vista consideraba que muchos de ellos eran imprácticos e innecesarios, entonces él los revisó y aquí es donde él me explicó: existen dos tipo de reportes que se implementan en el desarrollo de sistema: los reportes soporte a la operación y los reportes soporte a la toma de decisiones y que cuando para una aplicación no se ha hecho una adecuada toma de requerimientos, entonces lo que no puede exponer el programa el desarrollador lo hace con reporte(s). Y cuáles son los reportes soporte a la operación: son los reportes escenciales y que necesariamente se tienen que implementar pues la solución no tienen razón de ser si estos no son implementados, por ejemplo la impresión de una factura en un sistema de facturación, la impresión de una receta médica en un sistema de consultas médicas, la impresión de un cheque en un RP, el ticket en un sistema de punto de ventas, etc. Existen muchos de estos casos de reportes. Luego tenemos los reportes soporte a la toma de desiciones y cuyo objetivo es mostrar concentrados de información o información resumen cuyo objetivo es permitirle a los usuarios o empleados de la organización tomar de desiciones, por ejemplo un reporte que concentré las ventas del año pasado agrupadas por mes, un reporte de inventarios por categoria de producto, etc. Y para la demás información no se requiere un reporte pues está en pantalla, de ahí lo que me decia mi exjefe Ing. Arnulfo González si haz hecho una buena toma de requerimientos el sistema lo contendrá y no tendrás que elaborar un reportes excepto para los casos de reportes soporte a la operación o a la toma de decisiones. Así que desarrolladores cuando el usuario les pida reportes, ustedes identifiquen a que tipo de estás dos clasificaciones pertenece y lo que les sobre será información que estará presente en todo momento en pantalla y que no es necesario su impresión -como los de soporte a la operación cuya impresión es 100% necesaria.

Qué lenguaje de programación utilizar: VB.NET o C#

2006-05-28T14:29:00.000-05:00

El pasado 26 de mayo de 2006 se realizó la tercera reunión de la comunidad .NET del D.F, en el auditorio "Carlos Graef" de la facultad de Ciencias de la UNAM. Se expusieron temas muy intersantes y por ahí alguien le preguntó a Octavio Telis sobre que lenguaje era mejor si VB.NET o C# y creo que su pregunta fue muy certera, pues el mencionó que en las primeras versiones había cosas que hacia C# y que no hacia VB.NET -cómo los tipos sin signo, etc- pero que esas diferencias ahora ya no existian entre ambos lenguajes, pero déspues mencionó lo que yo creo es lo más importante: "El objetivo del lenguaje es lo que está debajo de él: el Framework". Yo considero que está fue una respuesta muy intersante y cierta. A continuación pongo unos diagramitas que por ahí encontré en la web y que consideron que son muy importantes y que hacen alusión a este post.

El manejo de fechas en SQL Server

2006-05-23T17:32:00.000-05:00

En algún momento hice una pequeña aplicación que seleccionaba n número de renglones de una tabla en SQL Server 2000, pero al ejecutarla ésta seleccionaba un número de registros menor a los que yo espera estuvieran en ese rango de fechas. Lo primero que yo pensé fue en la configuración regional del equipo y que éste tenia un formato de fecha diferente al que yo quería "dd-mm-aaaa" y que cómo ustes saben nuestros primos los gringos usan "mm-dd-aaaa", y ooh! sorpresa estaba bien la configuración regional, entonces le pregunte a un amigo y me dijo que era el lenguaje que tenia definido el SQL Server y que incluso esto era independiente del lenguaje de mi SQL Server puesto que es un valor configurable.

Y aquí encontré esta página que expone como utilizar las fechas independientemente del lenguaje con el que esté configurado SQL Server.

http://www.microsoft.com/spanish/msdn/comunidad/mtj.net/voices/art157.asp

Uso de XML con SQL Server 2000 para operaciones que requieren transacciones con n registros

2006-05-23T16:43:00.001-05:00

En algún momento que leía un libro de SQL Server 2000 me sorprendió encontrar una forma de utilizar XML con SQL Server 2000 para poder insertar n registros en una sola operación -también llamada transacción-. Para poder lograr esto SQL Server 2000 cuenta con un procedimiento almacenado llamado: "sp_xml_preparedocument" que es el encargado de leer la cadena con formato XML y cargarla en la memoria para poder recorrerla.

A continuación expongo un ejemplo del caso de la inserción de un objeto Factura en la Base de Datos utilizando XML. Como todos sabemos una factura se compone de dos conceptos: un encabezado y un detalle, el encabezado es el que expone datos del cliente, la fecha y otros, estos datos conforman un registro o renglón en la Base da datos y se inserta en una tabla llamada Factura. El siguiente concepto u apartado que conforman a una factura es el Detalle, éste contiene a todos los registros o renglones de los conceptos que se están facturando al cliente y que pueden ser uno o más (ver figura del modelo Entidad/Relación) y aquí es en donde XML viene a facilitarnos la vida para poder insertar los dos objetos -el encabezado y el detalle- en una sola operación.

La solución se expone como un store procedure que recibe los datos que componen al encabezado y la cadena XML que compone a los del detalle, así que la única condición para que sp_xml_preparedocument pueda leer la cadena XML es que ésta sea válida.

Espero que les sea de mucha utilidad, porque casi que yo siempre la utilizó en los proyectos que desarrollo, pues el patrón maestro-detalle por lo regular siempre está presente de alguna forma en todo proyecto.

----------------------------------------------------------------------------
/*
Este procedimiento almancenado inserta un Encabezado-Detalle de una Factura.
El Detalle se pasa como una cadena XML con la siguiente estructura:

*/

CREATE PROCEDURE dbo.spInsertXMLEncDetFactura
(
@IdCte int,
@FechaFactura datetime,
@IVA numeric(8,2),
@SubTotal numeric(8,2),
@xmlDetFactura varchar(8000)--o tipo Text -Cadena XML con el detalle de la factura.
)
AS

DECLARE @idoc int --xmlDoc
DECLARE @IdFactura int --Nueva Folio Factura

--Ejecutar el sp que carga en memoria el docuemnto XML.
EXEC sp_xml_preparedocument @idoc output, @xmlDetFactura

--SET NOCOUNT ON
DECLARE @CurrentError int

--Comienza la transacción
BEGIN TRANSACTION
--Agregar el encabezado de la factura.

INSERT INTO FACTURA
(IdCte, FechaFactura, IVA, SubTotal)
VALUES (@IdCte, @FechaFactura, @IVA, @SubTotal);

--Verificar si hubo errores
SELECT @CurrentError = @@Error
IF @CurrentError != 0
GOTO ERROR_HANDLER

--Obtener el nuevo Identity de la tabla FACTURA.
SELECT @IdFactura = @@IDENTITY

--Agregar conceptos de FACTURA a la tabla DET_FACTURA.
INSERT INTO DET_FACTURA (IdFactura, IdProducto, CantidadProducto, PrecioProductoVta)
SELECT @IdFactura, IdProducto, CantidadProducto, PrecioProductoVta
FROM OPENXML (@idoc, '/DetFactura/Concepto')
WITH DET_FACTURA

--Verificar si hubo errores
SELECT @CurrentError = @@Error
IF @CurrentError != 0
GOTO ERROR_HANDLER

--Finalizar la Transacción
COMMIT TRANSACTION
SET NOCOUNT OFF

--Descargar documento XML de la memoria.
EXEC sp_xml_removedocument @idoc
--Retornar el nuevo No. de Solcitud de Compra.
RETURN @IdFactura

--Manejador de Error.
ERROR_HANDLER:
ROLLBACK TRANSACTION
--Descargar documento XML de la memoria.
EXEC sp_xml_removedocument @idoc
SET NOCOUNT OFF
RETURN 0
GO

Acceso a tu computadora virtual desde el navegador.

2006-05-15T11:35:00.000-05:00

Hace unos días platiqué con mi amigo Alex y me comentó sobre un sitio desde el cual era posible acceder a una comútadora virtual desde el navegador, así que la visité y me sorprendió mucho la interfaz y las ventajas que da tener acceso a ésta. A mi me gusto lo de poder compartir carpetas con otros usuarios registrados. La interfaz es muy parecida a un ambiente gráfico de una distribución de Linux y lo más increíble es que es free. Aquí algunas de las caracteristicas que te ofrece son:

- Acceso a la computadora sólo tienes que escribir en la barra del navegador Computadora.de/usuario desde cualquier máquina conectada a Internet

- Correo.de.- Al registrarte en Computadora.de obtienes automáticamente una cuenta de correo electrónico y una adicional si elegiste un "alias"; ambas con terminación @correo.de. (uusario@@correo.de)

- Calendario.de.- Organízate y no llegues tarde, Calendario.de te avisa de tus citas pendientes.

- Directorio.de.- Almacena la información de toda la gente que conoces dentro de un programa en donde puedes consultarla con rapidez y eficiencia

- DiscoDuro.de.- Obtienes en tu DiscoDuro.de 100MB de espacio. Toda la información de tu computadora virtual, mensajes, documentos, citas y contactos, están disponibles donde quiera que estés. Crea nuevos directorios, sube tus tareas, fotos y accédelos desde cualquier máquina, sin tener que andar cargando diskettes. De necesitar espacio adicional, por favor haz doble clic en el icono de "Comprar espacio en disco duro"

- Mensajero.de.- Comunícate de forma instantánea con todos tus amigos, sin tener que configurar nada

- Programas.de.- Crea y guarda tus documentos con programas de procesador de palabras y hoja de cálculo compatibles y fáciles de usar

- PaginaWeb.de.- En tu DiscoDuro.de se encuentra una carpeta con este nombre donde podrás poner tu página hogar con imágenes, sonidos y lo que desees. Para acceder a tu página sólo tienes que escribir en la barra del navegador PaginaWeb.de/tu_usuario

http://computadora.de/

Script 2 para otorgar permisos de ejecución a sp a un usuario de SQL Server.

2006-05-15T10:28:00.000-05:00

Este es otro script que permite otorgar permisos de ejecución a todos los procedimientos almacenados de una base de datos para un usuario en particular.

*****************************SCRIPT*********************************************
--Otorga permisos a todos los stores procedures para un determinado usuario.
--Precondiciones: establecer el nombre de la base de datos de uso y el nombre del usuario al que se desea otorgar los permisos.

Use x
--Nombre de Usuario al que se desea otorgar permiso.
Declare @user varchar(100)
Set @user = 'User1'

--Seleccionar a todos los objetos del tipo store procedure.
declare curse cursor for
SELECT name
FROM sysobjects
WHERE type = 'P' AND category = 0

OPEN CURSE
declare @proc varchar(100)
declare @stmt nvarchar(200)

fetch next from curse into @proc
while @@fetch_status=0
begin
--ejecuta el otorgamiento de permisos.
set @stmt='grant execute on '+@proc+' to ' +@user
exec SP_EXECUTESQL @STMT
print '***El usuario: ' + @user + ' puede ejecutar al store procedure: ' + @proc + '***'
fetch next from curse into @proc
end
--desocupa el cursor.
close curse
deallocate curse
GO
**************************FIN*SCRIPT*********************************************

Script 1 para otorgar permisos de ejecución a sp en SQL Server .

2006-05-15T10:09:00.000-05:00

Recientemente yo tenía que otorgar permisos a muchos usuarios a muchos store procedures en SQL Server 2000 y hacerlo manualmente era una tarea tediosa, así que por ahí me encontré algo en internet para poder hacer esto.

Cuando ejecuten este script sólo especifiquen el nombre de la base de datos.
Después de ejecutarlo les aparecerán ciertos mensajes de error y que no afectan para
el objetivo. Este error se da porque en la consulta:

SELECT name FROM master..sysxlogins
WHERE srvid IS NULL AND name <> 'sa'

Se extraen a todos los usuarios en la base de datos y muy probablemente los usuarios
a los que desea otorgar permisos de ejecución a los SP no existen en la base de datos especificada, pero si los otorgará a los que si existen, de esta manera el
motor de SQL Server excluirá automáticamente a estos y lo expresará mediante un mensaje de error.

--*********************************SCRIPT****************************************
--Otorga permisos de ejecución a todos los sp a todos los usuarios de una base de datos.
--Especifique la BD que desea usar para otorgar.

Use NombreBD

--Variables de uso
Declare @login varchar(50), @proc varchar(100), @stmt nvarchar(200)

DECLARE loginBD CURSOR FOR
--Extraer a todos los logins, no importa que no estén en la BD de uso.
SELECT name FROM master..sysxlogins
WHERE srvid IS NULL AND name <> 'sa'

-- Avanzamos un registro y cargamos en las variables los valores encontrados en el primer registro
OPEN loginBD

FETCH NEXT FROM loginBD
--Vaciar el valor obtenido por el curos en una variable.
INTO @login

WHILE @@FETCH_STATUS = 0
BEGIN
Declare curse cursor for
--Obtener a todos los SP de la base de datos actual.
SELECT name
FROM sysobjects
WHERE type = 'P' AND category = 0
OPEN CURSE
fetch next from curse into @proc
while @@fetch_status=0
Begin
--Ejecutar los permisos
set @stmt='grant execute on '+@proc+' to ' +@login
exec SP_EXECUTESQL @STMT
If @@Error<> 0
print ''
Else
print '***El usuario: ' +@login + ' puede ejecutar al store procedure: ' + @proc
fetch next from curse into @proc
end
--Desocupar el cursor
close curse
deallocate curse

-----Siguiente Login
FETCH NEXT FROM loginBD
--Vaciar el siguiente valor obtenido por el curos en una variable.
INTO @login
END

--Desocupar el cursor.
CLOSE loginBD
DEALLOCATE loginBD
GO
--*****************************FIN*SCRIPT****************************************

400 razones para actualizarse a Visual Studio Net 2005

2006-05-11T13:23:00.000-05:00

En un blog me encontré la referencia a está página que expone las 400 razones del porque utilizar Visual Studio Net 2005. La página es muy agradable. Visítenla en:

http://www.400plusdifferences.com/

Estándar codificación DOTNET

2006-05-11T13:08:00.000-05:00

Encontré este articulo simple, pero creo que muy provechoso durante el desarrollo de proyectos .NET

http://www.elguille.info/colabora/NET2005/giovannyfernandez_EstandarCodificacionNET.htm

Grupos de Noticias de Productos Microsoft.

2006-05-10T13:40:00.000-05:00

De vez en cuando entrar a los grupos de discusión de Microsoft suele ser muy bueno porque de acuerdo al tema uno puede ayudar o otras personas o aprender de lo que se expone como pregunta-respuesta.

http://support.microsoft.com/newsgroups/

Despúes de ingresar a la página sólo seleccionen el idioma y un producto para ver las preguntas expuestas.

Tip de performance al usar una conexión de BD a través de un SqlDataAdapter.

2006-05-10T11:34:00.000-05:00

Navegando en la web encontré un link que me llevó a un blog muy interesante y ahí en un post encontré información a cerca del manejo del pool de conexiones que hace ADO.NET cuando se utiliza un SqlDataAdapter. Se sabe que al ejecutar el método Fill del objeto SqlDataAdapter el objeto connection al que se ligaba se abre y cierra automáticamente, pero existen ocasiones en que en una msma secuencia de operaciones ejecutamos más de una vez un método Fill de un SqlDataAdapter y entonces, para cada caso se abre y cierra la conexión, pero en este blog expone que para obtener un mejor performance es recomendable abrir y cerrar la conexión manualmente abrirlá al momento de iniciar el primer Fill de un SqlDataAdapter y cerrarla después de ejecutar el último fill del SqlDataAdapter.

En el siguiente link esta el post que leí, además de que expone un ejemplo.

http://davidhayden.com/blog/dave/archive/2005/11/03/2554.aspx

Control Calendario para ASP.NET 1.1 y 2.0

2006-05-10T10:39:00.000-05:00

Navegando en la red encontre un control calendario para ASP.NET 2003 y 2005. La descarga incluye una guia de instalación de este control e incluye ejemplos en C# y VB.Net. El control es realmente muy bueno y tiene varios conceptos de configuración.
Pueden desarcargarlo y probarlo de:

http://www.gotdotnet.com/Community/UserSamples/Details.aspx?SampleGuid=FED8B3BE-67E2-4BFC-BE34-404799B17D77

¿En dónde quedo el Enterprise Manager en SQL Server 2005 Express?

2006-05-10T10:37:00.000-05:00

Cuando yo instalé SQL Server 2005 versión express, lo primero que yo quería hacer después de la instalación era navegar por las base de datos, conocer su nueva interfaz y ooh!! sorpresa no encontraba una aplicación tipo Enterprise Manager como la de SQL Server 2000, así que me puse a investigar en la web y encontré que Microsoft adicionalmente al motor de base de datos liberó una herramienta grafica llamada: Microsoft SQL Server Management Studio Express (SSMSE).

El link de donde es posible realizar su descarga es:

http://www.microsoft.com/downloads/details.aspx?familyid=82afbd59-57a4-455e-a2d6-1d4c98d40f6e&displaylang=en

Escucha música en línea.

2006-05-02T17:38:00.000-05:00

Cuando estoy en la computadora siempre estoy escuchando música y he aquí un buen sitio de estaciones de radio que mi querida amiga Maru me recomendo. Si tienes una buena conexión a internet podrás disfrutar de las estaciones de música expuestas en esta página y aunque la página es brasileña existen estaciones que pasan música en inglés y otros idiomas.

http://radios.com.br

MP3 a muy bajo precio!!!

2006-05-02T17:16:00.000-05:00

Hola! mi primo César encontró un link muy intersante para poder descargar música mp3 a muy bajo costo, incluso pueden escuchar un pequeño fragmento de la canación que desan descagar antes de pagarla, pueden comprar todo un álbum o determinado track de un álbum. Una vez que compran el track o el álbum este se encuentra disponible durante 24 horas para que lo puedan descargar a la hora qu quieran dentro de este lapso.

http://www.mp3sugar.com/

Modelos Entidad Relación disponibles.

2006-05-02T17:00:00.000-05:00

Hola! hoy en día casi que cualquier tipo de aplicación que desarrollemos hace persistencia de datos en una base de datos relacional y como desarrolladores de aplicaciones es importante saber modelar la información en un modelo entidad-relación, pues éste diagrama es la base sobre la que comenzaremos a construir nuestra aplicación.

En el siguiente link podremos obtener muy buenas ideas en la construcción de nuestros modelos de Entidad-Relación.

http://www.databaseanswers.org/data_models/index.htm

SQL Server Express 2005

2006-05-02T16:53:00.000-05:00

Hola! hace unos días descargué la versión Express de SQL Server y una vez instalado esperaba ver algo así como el Enterprise Manager de SQL Server 2000 y ohh!!! sorpresa no lo había, así que me puse a buscar en la web y encontré una página que expone todos los elementos que debes descargar para poder configurar y comenzar a utilizar el SQL Server 2005 Express.

href="http://www.ukaug.co.uk/TPExpress.asp">