Script para Activar/Desactivar Constraints en SQL Server

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

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

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

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?

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

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

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

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

Este es el link al manual en línea:


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

Cargar DataTable con DataReader NET 2005

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.

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

--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

--------------------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)

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

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

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

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.

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

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?

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

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.