Blog de Alonso Morales Salazar

Obtener el comando SQL que se genera con ADO Entity Framework

2012-01-19T07:35:00.001-05:00

El método ToTraceString de la clase ObjectQuery permite ver los comandos que ejecutan en el origen de datos.

El siguiente código se muestra el uso del método:

        1: Dim oc As New VentasDemoEntities

       2:  

       3:       'La consulta obtiene los productos perteneciente a la categoría 01, ordenado por la

       4:       'descripción del producto. Se muestra solo el código y descripción

       5:       Dim Result As objectquery =

       6:       From Item In oc.Tb_Producto Where Item.Cod_Cat = "01"

       7:       Order By Item.Des_pro Select Item.Cod_pro, Item.Des_pro

       8:  

       9:       'Se usa el metodo ToTraceString para ver el SQL generado

      10:       MessageBox.Show(Result.ToTraceString())

Este será el comando SQL que se ejecutará en el origen de datos:

Nos vemos :)

Medir el tiempo de ejecución con la clase StopWatch

2012-01-18T10:03:00.001-05:00

La clase StopWatch mide el tiempo transcurrido para un intervalo, o el total de tiempo de varios intervalos. Mediante los métodos Star, Stop y la propiedad Elapsed se determina el valor de tiempo transcurrido. Mas información en MSDN (http://msdn.microsoft.com/es-es/library/system.diagnostics.stopwatch.aspx)

Para este ejemplo, voy a realizar una consulta con ADO.NET y LINQ TO SQL, la idea es medir el tiempo de de acceso a datos. La tabla se llama MODELOAVION la cual contiene 53,330 filas o modelos de aviones.

La siguiente interface contiene dos botones; uno para ADO.NET y el otro para LINQ TO SQL, un par de etiquetas para mostrar el tiempo transcurrido y un DataGridView para ver los datos:

El código para el botón ADO.NET:

        1: Private Sub btnADONET_Click(sender As System.Object, e As System.EventArgs) Handles btnADONET.Click

       2:         'Se inicia la medida de tiempo

       3:         Dim stopWatch As New Stopwatch()

       4:         stopWatch.Start()

       5:  

       6:         'Este bloque acceso a datos

       7:         '-----------------------------------------------------------------------------------------------

       8:         Dim strCnx As String = "Server=.\SQL2008;Database=AereoDemo;Integrated Security=SSPI;"

       9:         Dim strSQL As String = "Select * From ModeloAvion"

      10:         Dim cnx As New SqlConnection(strCnx)

      11:         Dim cmd As New SqlCommand(strSQL, cnx)

      12:         Dim dt As New DataTable

      13:  

      14:         cnx.Open()

      15:         dt.Load(cmd.ExecuteReader)

      16:         cnx.Close()

      17:         DataGridView1.DataSource = dt

      18:         '-------------------------------------------------------------------------------------------------

      19:  

      20:         'Se detiene y obtiene el tiempo transcurrido con la propiedad Elapsed

      21:         stopWatch.Stop()

      22:         Dim ts As TimeSpan = stopWatch.Elapsed

      23:  

      24:         'Se formatea el valor

      25:         lbltiempo1.text = String.Format("{0:00}:{1:00}:{2:00}.{3:00}", ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds / 10)

      26:  

      27:     End Sub

Se crea una instancia de la clase StopWatch y se inicia la medida de tiempo con el método Star, luego se ejecuta el bloque de acceso a datos en ADO.NET y termina cuando se carga los datos en el control DataGridView, en el siguiente paso se detiene la clase StopWatch con el método Stop, y se obtiene el tiempo transcurrido con la propiedad Elapsed.

El código para LINQ TO SQL:

       1: Private Sub btnLINQTOSQL_Click(sender As System.Object, e As System.EventArgs) Handles btnLINQTOSQL.Click

       2:     'Se inicia la medida de tiempo

       3:     Dim stopWatch As New Stopwatch()

       4:     stopWatch.Start()

       5:  

       6:     'Este bloque acceso a datos

       7:     '-----------------------------------------------------------------------------------------------

       8:     Dim dc As New AereoDemoDataContext

       9:     Dim Result = From Item In dc.ModeloAvions Select Item

      10:     DataGridView1.DataSource = Result

      11:     '-----------------------------------------------------------------------------------------------

      12:  

      13:     'Se detiene y obtiene el tiempo transcurrido con la propiedad Elapsed

      14:     stopWatch.Stop()

      15:     Dim ts As TimeSpan = stopWatch.Elapsed

      16:  

      17:     'Se formatea el valor

      18:     lblTiempo2.Text = String.Format("{0:00}:{1:00}:{2:00}.{3:00}", ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds / 10)

      19:  

      20: End Sub

En este caso el bloque se acceso a datos con LINQ TO SQL, es mucho menor en líneas de código, debido al ORM que es propio de este método de acceso a datos. Aquí ya se creo el objeto DataContext que se llama AereoDemo como se muestra en la imagen:

Para realizar esta paso consulte las siguientes entradas:

Finalmente, ejecuto el programa, al ver el resultado de 68 milésimas de segundo para el bloque de ADO.NET y 37 para LINQ TO SQL, aparentemente LINQ es mucho mas rápido.

Son varios factores que pueden influir en el resultado final. En la web de CodeProject encontré un articulo donde se comparan la perfomance de ADO.NET y LINQ TO SQL:

Performance comparisons LinQ to SQL,ADO to C#

Nos vemos :)

Los hologramas en 3D y Avatar

2011-08-14T12:30:00.001-05:00

Esta tecnología de hologramas 3D cambiara para siempre los juegos de mesa. Me imagino jugar el Arkham Horror en 3D seria un sueño hecho realidad.

http://www.etecnologico.com/2011/08/los-juguetes-de-james-cameron-avatar.html

Saludos :)

Blog SiteMap

2011-08-08T08:08:00.000-05:00

Mouseland–Tierra de Ratones

2011-07-11T12:48:00.001-05:00

Tommy Douglas relata la historia de MouseLand (Tierra de ratones) con un gobierno de gatos. Mira el video y me comentas…

Saludos :)

Buscar Imagenes con Google

2011-06-29T11:10:00.001-05:00

Google esta implementando una nueva interface de usuario en su famoso buscador. En la imagen se aprecia una barra de color negro con varias de las opciones habituales.

Lo que me sorprendió fue la opción de búsqueda de imágenes.

Solo se arrastra la imagen en el cuadro de búsqueda, automáticamente la carga e inicia el proceso de busqueda, por ejemplo esta imagen:

Aquí la arrastro sobre el cuadro de búsqueda:

Empieza a cargarla:

El resultado final:

Saludos :)

Silverlight 5 Beta Tools for Visual Studio 2010 Service Pack 1

2011-06-20T08:58:00.001-05:00

La versión 5 de Silverlight aporta 40 nuevas funcionales, según la documentación la calidad de video destaca entre las mejoras.

Principales características:

Depuración de XAML con puntos de para el depurado del enlazado a datos
Plantillas de datos implícitas para un mejor reciclado de UI
Soporte para doble (y múltiple) clic.
3D compatible con XNA y acelerado por GPU y modo inmediato en el API de 2D
Efectos de sonido de baja latencia y soporte para WAV
Soporte real para ventanas del sistema operativo y múltiples pantallas
Mejoras significativas en el rendimiento, correcciones de errores y mucho más

Descargar: http://www.microsoft.com/downloads/en/details.aspx?FamilyID=41c85cc4-de12-4bdb-a60f-f120266e9780&displaylang=en

Saludos :)

Code First en ADO.NET Entity Framework 4.1

2011-06-18T00:30:00.001-05:00

En la revista Magazine Mayo 2011, encontré este excelente articulo sobre las novedades de EF 4.1, escrita por Rowan Miller que es el administrador del equipo de Entity Framework en Microsoft.

URL:http://msdn.microsoft.com/es-co/magazine/hh126815.aspx

Saludos :)

Herramientas para convertir código de VB a C# y viceversa

2011-06-17T09:53:00.001-05:00

Estas dos herramientas OnLine de conversión de código de VB a C# o viceversa, me han sacado de un apuro varias veces. La primera pertenece a Telerik http://converter.telerik.com/

La segunda a CarlosAG http://www.carlosag.net/Tools/CodeTranslator/

Saludos :)

Libro Free - Moving to Visual Studio 2010

2011-06-15T09:04:00.001-05:00

The book is not a language primer, a language reference, or a single technology book. It's a book that will help professional developers move from previous versions of Visual Studio (starting with 2003 and on up). It will cover the features of Visual Studio 2010 through an application. It will go through a lot of the exciting new language features and new versions of the most popular technologies without putting the emphasis on the technologies themselves. It will instead put the emphasis on how you would get to those new tools and features from Visual Studio 2010.

Download:
http://www.microsoft.com/downloads/en/details.aspx?FamilyID=560a5365-5c62-488a-91ed-a779e0e33ac4

Saludos :)

¿Cual es la diferencia entre SelectMany y Select?

2011-06-11T23:26:00.001-05:00

Que dice la documentación MSDN sobre Select y SelectMany:

CLAUSULA	MSDN
SelectMany	Proyecta cada elemento de una secuencia en una interfaz IEnumerable(T) y combina las secuencias resultantes en una secuencia.
Select	La cláusula Select define los resultados que se van a devolver desde una consulta.

Para explicar la diferencia que existe entre SelectMany y Select, usare la clase Empleado.

        1: Public Class Empleado

       2:     Property Nombres As String

       3:     Property Apellidos As String

       4:     Property Especialidades As String()

       5: End Class

La clase contiene tres propiedades, donde especialidad será una matriz de cadenas. Según la tabla de abajo, el empleado Andrea tiene dos especialidades: Arquitecto e Ingeniero

En el siguiente código creamos una colección de tipo genérico que contiene tres objetos Empleado:

       1: Dim Lista As New List(Of Empleado)

       2:  

       3:        Lista.Add(

       4:        New Empleado With

       5:        {.Nombres = "Andrea", .Apellidos = "Cardenas",

       6:         .Especialidades = New String() {"Arquitecto", "Ingeniero"}})

       7:  

       8:        Lista.Add(

       9:        New Empleado With

      10:        {.Nombres = "Almendra", .Apellidos = "Salazar",

      11:         .Especialidades = New String() {"Doctora", "Actriz"}})

      12:  

      13:        Lista.Add(

      14:        New Empleado With

      15:        {.Nombres = "Adriana", .Apellidos = "Castro",

      16:         .Especialidades = New String() {"Abogado", "Docente"}})

Se quiere listar todas las especialidades usando SELECT

       1: Dim Result2 = Lista.Select(Function(Item) Item.Especialidades)

Para listar, se necesita dos bucles For Each, el primer bucle obtiene la matriz de especialidades de cada empleado, y el segundo bucle obtiene la especialidad.

       1: For Each Especialidades() As String In Result2

       2:      For Each str As String In Especialidades

       3:          MessageBox.Show(str)

       4:      Next

       5: Next

Para realizar la misma tarea, usando SELECTMANY

       1: Dim Result1 = Lista.SelectMany(Function(Item) Item.Especialidades)

Para listar las especialidades, solo se necesita un bucle For Each, esta es la diferencia con respecto a SELECT, donde SELECTMANY combina todas las especialidades en una sola secuencia.

       1: For Each str As String In Result1

       2:      MessageBox.Show(str)

       3: Next

Saludos :)

Un coro virtual de 2000 voces fuertes

2011-04-23T08:05:00.001-05:00

En un vídeo conmovedor y enloquecidamente viral el año pasado el compositor Eric Whitacre dirigió un coro virtual de cantantes de todo el mundo. Aquí habla de los retos creativos de hacer música impulsada por YouTube y da a conocer los primeros 2 minutos de su nuevo trabajo: "Sleep", con un coro de video de 2052 personas.

Eric Whitacre's Virtual Choir 2.0, 'Sleep'

Saludos :)

VB.Net y los métodos de extensión

2011-04-22T12:14:00.001-05:00

Los métodos de extensión es una de la características nuevas en VB.Net y C#. Estos métodos permiten agregar métodos a las clases existentes de .Net Framework o nuestras propias clases.

Para este ejemplo voy usar la clásica función convertir números a letras, el código lo he tomado de http://www.mistrucos.net/truco-visual-basic-net-como-convertir-numeros-a-letras-772.htm.

primero se crea un modulo en VB.NET con Visual Studio 2008/2010. El nombre de mi modulo será Extensiones, ahí guardare todas los métodos de extensión, aquí el código:

        1: Imports System.Runtime.CompilerServices

       2:  

       3: Module Extensiones

       4:  

       5: End Module

Es necesario importar System.Runtime.CompilerServices, con ella se usara el atributo <Extension()> para establecer que es un método de extensión. Siguiente paso es crear el método NUM2TEXT, como se muestra:

       1: Imports System.Runtime.CompilerServices

       2:  

       3: Module Extensiones

       4:  

       5:     <Extension()> _

       6:     Public Function Num2Text(ByVal value As String) As String

       7:         Dim str As String = String.Empty

       8:  

       9:         Select Case Convert.ToDouble(value)

            Case 0 : str = "CERO"

            Case 1 : str = "UN"

            Case 2 : str = "DOS"

            Case 3 : str = "TRES"

            Case 4 : str = "CUATRO"

            Case 5 : str = "CINCO"

            Case 6 : str = "SEIS"

            Case 7 : str = "SIETE"

            Case 8 : str = "OCHO"

            Case 9 : str = "NUEVE"

            Case 10 : str = "DIEZ"

            Case 11 : str = "ONCE"

            Case 12 : str = "DOCE"

            Case 13 : str = "TRECE"

            Case 14 : str = "CATORCE"

            Case 15 : str = "QUINCE"

            Case Is < 20 : str = "DIECI" & Num2Text(value - 10)

            Case 20 : str = "VEINTE"

            Case Is < 30 : str = "VEINTI" & Num2Text(value - 20)

            Case 30 : str = "TREINTA"

            Case 40 : str = "CUARENTA"

            Case 50 : str = "CINCUENTA"

            Case 60 : str = "SESENTA"

            Case 70 : str = "SETENTA"

            Case 80 : str = "OCHENTA"

            Case 90 : str = "NOVENTA"

            Case Is < 100 : str = Num2Text(Int(value \ 10) * 10) & " Y " & Num2Text(value Mod 10)

            Case 100 : str = "CIEN"

            Case Is < 200 : str = "CIENTO " & Num2Text(value - 100)

            Case 200, 300, 400, 600, 800 : str = Num2Text(Int(value \ 100)) & "CIENTOS"

            Case 500 : str = "QUINIENTOS"

            Case 700 : str = "SETECIENTOS"

            Case 900 : str = "NOVECIENTOS"

            Case Is < 1000 : str = Num2Text(Int(value \ 100) * 100) & " " & Num2Text(value Mod 100)

            Case 1000 : str = "MIL"

            Case Is < 2000 : str = "MIL " & Num2Text(value Mod 1000)

            Case Is < 1000000 : str = Num2Text(Int(value \ 1000)) & " MIL"

                If value Mod 1000 Then str = str & " " & Num2Text(value Mod 1000)

            Case 1000000 : str = "UN MILLON"

            Case Is < 2000000 : str = "UN MILLON " & Num2Text(value Mod 1000000)

            Case Is < 1000000000000.0# : str = Num2Text(Int(value / 1000000)) & " MILLONES "

                If (value - Int(value / 1000000) * 1000000) Then str = str & " " & Num2Text(value - Int(value / 1000000) * 1000000)

            Case 1000000000000.0# : str = "UN BILLON"

            Case Is < 2000000000000.0# : str = "UN BILLON " & Num2Text(value - Int(value / 1000000000000.0#) * 1000000000000.0#)

            Case Else : str = str(Int(value / 1000000000000.0#)) & " BILLONES"

                If (value - Int(value / 1000000000000.0#) * 1000000000000.0#) Then str = str & " " & Num2Text(value - Int(value / 1000000000000.0#) * 1000000000000.0#)

        End Select

  

        Return str

    End Function

  

End Module

Para probar este método de extensión:

       1: Dim Num1 As String = "1234567890123"

       2: MessageBox.Show(Num1.Num2Text)

el resultado es:

El método Num2Text se agrego como método de extensión a la clase string. Aquí tengo mi clases Factura con la propiedad ImporteTotal:

       1: Public Class Factura

       2:     Property ImporteTotal As Double

       3: End Class

En este código se puede ver como se usa:

       1: Dim MiFactura As New Factura With {.ImporteTotal = 15918}

       2:  

       3: MessageBox.Show(MiFactura.ImporteTotal.ToString.Num2Text)

El primer parámetro especifica el tipo de datos que el método de extensión extiende, es obligatorio y no puede ser opcional. (MSDN : http://msdn.microsoft.com/es-es/library/bb384936.aspx )

Saludos :)

ASP.NET y Recaptcha

2011-04-10T12:37:00.001-05:00

Según Wikipedia: “reCAPTCHA es una extensión de la prueba CAPTCHA que se utiliza para reconocer texto presente en imágenes. Emplea por tanto la prueba desafío-respuesta utilizada en computación para determinar cuándo el usuario es o no humano para, a su vez, mejorar la digitalización de textos.”

reCAPTCHA se basa en el hecho de que para un ser humano puede ser simple determinar el texto presente en una imagen cuando para una máquina esta tarea resulta en ocasiones demasiado compleja. Mas información es: http://es.wikipedia.org/wiki/Recaptcha

Primero se debe tener una cuenta de correo en google mail, luego crearse una cuenta en: http://www.google.com/recaptcha

Una vez creada la cuenta se debe ingresar un dominio, en mi caso www.blogams.com

Al hacer click en el botón Create Key se crea dos claves privada y publica:

He tenido que borrar las dos claves, por los motivos que ya sabes. Ahora descargue la librería en http://code.google.com/p/recaptcha/downloads/detail?name=recaptcha-dotnet-1.0.5.0-binary.zip&can=2&q= hay versiones para los lenguajes PHP, ASP.NET, JAVA, PERL. Para ASP.NET la dll se llama: Recaptcha.dll

Creamos un proyecto en Visual Studio 2008 o 2010 de tipo ASP.NET, se hace una referencia a la librería Recaptcha.dll y se crea un webform con el siguiente diseño:

El código HTML:

        1: <%@ Page Language="VB" AutoEventWireup="false" CodeFile="UsoReCaptCha.aspx.vb" Inherits="UsoReCaptCha" %>

       2: <%@ Register TagPrefix="recaptcha" Namespace="Recaptcha" Assembly="Recaptcha" %>

       3:  

       4: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

       5:  

       6: <html xmlns="http://www.w3.org/1999/xhtml">

       7: <head runat="server">

       8:     <title></title>

       9: </head>

      10: <body>

      11:     <form id="form1" runat="server">

      12:     

      13:     <recaptcha:RecaptchaControl

      14:               runat="server"

      15:               Theme="red"

      16:               PublicKey="ClavePublica"

      17:               PrivateKey="ClavePrivada" Language=""

      18:               />

      19:        

      20:         <br />

      21:        

      22:         <asp:Button ID="btnEnviar" runat="server" Text="Enviar" Width="120px" />

      23:         <br />

      24:         <asp:Label ID="lblResultado" runat="server" Text="Label"></asp:Label>

      25:   

      26:     </form>

      27: </body>

      28: </html>

Para el control Recaptcha se registra:

Para visualizar el control:

Cambiar los valores de la clave publica y privada. En el botón Enviar se tiene el siguiente código:

       1: Partial Class UsoReCaptCha

       2:     Inherits System.Web.UI.Page

       3:  

       4:     Protected Sub btnEnviar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEnviar.Click

       5:         If Page.IsValid Then

       6:             lblResultado.Text = "Bienvenido!!!"

       7:             lblResultado.ForeColor = Drawing.Color.Green

       8:         Else

       9:             lblResultado.Text = "Intente de nuevo no es correcto"

      10:             lblResultado.ForeColor = Drawing.Color.Red

      11:         End If

      12:     End Sub

      13: End Class

al ejecutar el proyecto se tiene:

Mayor documentación en: http://code.google.com/intl/es-ES/apis/recaptcha/intro.html

Saludos :)

Tutorial de Visual Basic Windows Phone 7

2011-03-27T19:14:00.001-05:00

El equipo de Visual Basic Team (http://blogs.msdn.com/b/vbteam/) a preparado una serie de How To para crear aplicaciones Windows Phone 7 con Visual Studio 2010.

Aquí tenemos la lista:

Saludos :)

LA HORA DEL PLANETA

2011-03-25T15:44:00.001-05:00

La tabla periódica de Google API

2011-03-25T14:43:00.001-05:00

Google tiene una lista amplia de APIS sobre los diferentes servicios que ofrece, me parece genial que los agrupe al estilo de una tabla periódica.

Los grupos son:

http://code.google.com/intl/es-ES/more/table/

Saludos :)

jQuery 1.5

2011-03-24T22:28:00.001-05:00

jQuery es una biblioteca o framework de JavaScript, creada inicialmente por John Resig, que permite simplificar la manera de interactuar con los documentos HTML, manipular el árbol DOM, manejar eventos, desarrollar animaciones y agregar interacción con la técnica AJAX a páginas web. Fue presentada el 14 de enero de 2006 en el BarCamp NYC. (Wikipedia)

Para iniciarme con este framework, descargue la nueva versión 1.5 en www.jquery.com

La documentación http://docs.jquery.com/Main_Page es básica, pero ayuda. En la misma pagina tiene cientos de recursos entre ellos esta lista de tutoriales en español:

Cómo crear un menú de pestañas elegante en jQuery publicado por Web.Ontuts
Cómo validar un formulario utilizando PHP y Javascript (jQuery) publicado por Web.Ontuts
Cómo crear un Menú Contextual en Javascript mediante jQuery publicado por Web.Ontuts
Cómo crear un Plugin para jQuery publicado por Web.Ontuts
Mejorando las cajas de búsqueda mediante jQuery publicado por Web.Ontuts
JSONP, llamadas entre dominios (incluye plugin para jQuery) publicado por Web.Ontuts
JavaScript fácil y rápido con jQuery
Eventos en jQuery
Conceptos esenciales de la librería JQuery Además incluye una variedad de ejercicios en el sitio los cuales puedes: probarlos, modificarlos y ver los resultados inmediatamente.
Introducción a jQuery

Haciendo Tablas Cebra Facilmente by Jack Born
Esta es una traducció del artí "Zebra Striping Made Easy" de Jack Born. Pequeño tutorial a través de ejemplos sencillos de código para hacer tablas tipo cebra.
Tags: Traversing, Selectors, CSS, Events
VideoTutorial Nº1 Curso de JQuery En este primer VideoTutorial hacemos una introducción en la que vemos cuales son las ventajas del uso de este tipo de frameworks, así como las funcionalidades que nos ofrece. Terminamos creando el primero proyecto con jQuery y explicando la sintaxis y estructura básica que utiliza. De momento publicados 14 videotuoriales del Curso.
Manual de jQuery publicado por DesarolloWeb.com

Fuente: www.jquery.com

La pagina de Fernando Yanes http://www.fernandoyanes.com/ tiene una lista de videos tutoriales de jQuery, (Hasta hoy 11 videos) excelente recurso.

Saludos :)

Martin Jacques: entendiendo el ascenso de China

2011-03-24T21:34:00.001-05:00

Saludos :)

Código QR (Quick Response Barcode)

2011-03-24T10:20:00.001-05:00

Según Wikipedia es un sistema para almacenar información en una matriz de puntos o un código de barras bidimensional.

El código QR creado en 1994 por Denso-Wave es un "código de barras" o matriz gráfica que almacena datos y permite mediante un dispositivo móvil con cámara o una webcam leer el código y mostrarnos los datos que se contienen en el.

Usando un Smartphone y el software apropiado para la cámara, este leerá el código QR para luego enlazarte con el WebSite.

Esta pagina tiene un servicio para crear códigos QR: http://qrcode.kaywa.com/

Este es mi código QR para mi blog:

Yo uso un BlackBerry Bold 9000 y el programa para leer los códigos QR es ScanLife

Este video explica el uso del programa:

Saludos :)

Recopilación de recursos técnicos

2011-03-24T09:19:00.001-05:00

Hace poco me llego información sobre esta recopilación de recursos técnicos, como dice en el correo son los 40 mejores recursos para profesionales IT… a ver…

http://blogs.technet.com/b/ccaitpro/p/recursos.aspx?ocid=eml-f-latam-sat-DSA-MCA_GRS_PreNot

Saludos :)

Pruebas unitarias con Visual Studio 2010–Unit Testing

2011-02-14T12:45:00.001-05:00

Las pruebas unitarias me permite probar el correcto funcionamiento de un modulo, y con las pruebas de integración nos asegura el correcto funcionamiento del sistema.

Tengo una clase UsuarioDAO, la cual tiene un método Insert con tres parámetros.Los parámetros corresponden al código, login y password del usuario. La funcionalidad del método es registrar los datos de un usuario en la tabla TB_USUARIO.

        1: Imports System.Data.SqlClient

       2:  

       3: Public Class UsuarioDAO

       4:  

       5:     Dim strCnx As String = "Server=(local)\SQL2008;Database=VentasDemo;Integrated Security=SSPI;"

       6:  

       7:     Public Function Insert(ByVal strCodUsu As String, ByVal strLogUsu As String, ByVal strPasUsu As String) As Boolean

       8:         Dim cnx As New SqlConnection(strCnx)

       9:         Dim cmd As New SqlCommand("Insert Into TB_Usuario Values(@Cod,@Log,@Pas)", cnx)

      10:  

      11:         cmd.Parameters.AddWithValue("@Cod", strCodUsu)

      12:         cmd.Parameters.AddWithValue("@Log", strLogUsu)

      13:         cmd.Parameters.AddWithValue("@Pas", strPasUsu)

      14:  

      15:         Try

      16:             cnx.Open()

      17:             If cmd.ExecuteNonQuery > 0 Then

      18:                 Return True

      19:             Else

      20:                 Return False

      21:             End If

      22:         Catch ex As Exception

      23:             Throw ex

      24:         Finally

      25:             cnx.Close()

      26:         End Try

      27:  

      28:     End Function

      29: End Class

El programa es simple, pero cumple el objetivo. Para probarlo tendría que crear una interface de usuario en Windows Form o WebForm, establecer los valores de los parámetros y esperar el valor TRUE indicándome que el registro se inserto. Aquí es donde hare uso del Unit Test, primero sobre la clases UsuarioDAO haga clic con el botón secundario (derecho) como se muestra:

Esta ventana nos muestra la relación de las clases y métodos que se van a testear:

Una vez aceptado (OK), ingreso el nombre del proyecto de tipo Test, “Test.Ventas.Access”:

La clase UsuarioDAOTest que se ha generado tiene el código necesario para ejecutar el método Insert de la clase UsuarioDAO:

       1: Imports Microsoft.VisualStudio.TestTools.UnitTesting

       2: Imports Ventas.DataAccess

       3:  

       4:  

       5: '''<summary>

       6: '''This is a test class for UsuarioDAOTest and is intended

       7: '''to contain all UsuarioDAOTest Unit Tests

       8: '''</summary>

       9: <TestClass()> _

Public Class UsuarioDAOTest

    Private testContextInstance As TestContext

  

    '''<summary>

    '''Gets or sets the test context which provides

    '''information about and functionality for the current test run.

    '''</summary>

    Public Property TestContext() As TestContext

        Get

            Return testContextInstance

        End Get

        Set(ByVal value As TestContext)

            testContextInstance = Value

        End Set

    End Property

  

#Region "Additional test attributes"

    '

    'You can use the following additional attributes as you write your tests:

    '

    'Use ClassInitialize to run code before running the first test in the class

    '<ClassInitialize()>  _

    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)

    'End Sub

    '

    'Use ClassCleanup to run code after all tests in a class have run

    '<ClassCleanup()>  _

    'Public Shared Sub MyClassCleanup()

    'End Sub

    '

    'Use TestInitialize to run code before running each test

    '<TestInitialize()>  _

    'Public Sub MyTestInitialize()

    'End Sub

    '

    'Use TestCleanup to run code after each test has run

    '<TestCleanup()>  _

    'Public Sub MyTestCleanup()

    'End Sub

    '

#End Region

  

    '''<summary>

    '''A test for UsuarioDAO Constructor

    '''</summary>

    <TestMethod()> _

    Public Sub UsuarioDAOConstructorTest()

        Dim target As UsuarioDAO = New UsuarioDAO()

        Assert.Inconclusive("TODO: Implement code to verify target")

    End Sub

  

    '''<summary>

    '''A test for Insert

    '''</summary>

    <TestMethod()> _

    Public Sub InsertTest()

        Dim target As UsuarioDAO = New UsuarioDAO() ' TODO: Initialize to an appropriate value

        Dim strCodUsu As String = String.Empty ' TODO: Initialize to an appropriate value

        Dim strLogUsu As String = String.Empty ' TODO: Initialize to an appropriate value

        Dim strPasUsu As String = String.Empty ' TODO: Initialize to an appropriate value

        Dim expected As Boolean = False ' TODO: Initialize to an appropriate value

        Dim actual As Boolean

        actual = target.Insert(strCodUsu, strLogUsu, strPasUsu)

        Assert.AreEqual(expected, actual)

        Assert.Inconclusive("Verify the correctness of this test method.")

    End Sub

End Class

En el método InserTest asignaremos los valores a strCodUsu, strLogusu y strPasUsu. La variable expected (valor esperado) a TRUE. Por el momento comentamos Assert.Inconclusive

       1: <TestMethod()> _

       2: Public Sub InsertTest()

       3:     Dim target As UsuarioDAO = New UsuarioDAO() ' TODO: Initialize to an appropriate value

       4:     Dim strCodUsu As String = "001" ' TODO: Initialize to an appropriate value

       5:     Dim strLogUsu As String = "Alonso" ' TODO: Initialize to an appropriate value

       6:     Dim strPasUsu As String = "123456" ' TODO: Initialize to an appropriate value

       7:     Dim expected As Boolean = True ' TODO: Initialize to an appropriate value

       8:     Dim actual As Boolean

       9:     actual = target.Insert(strCodUsu, strLogUsu, strPasUsu)

      10:     Assert.AreEqual(expected, actual)

      11:     'Assert.Inconclusive("Verify the correctness of this test method.")

      12: End Sub

Sobre el método pulsamos el botón secundario y ejecutamos la opción RUN TEST

Terminado el test me muestra una ventana informando que el método paso la prueba:

Hasta aquí el código paso la prueba, hagamos unos cambios en el método Insert,:

El parámetro Pass no es el correcto, debe decir Pas. Ejecutar el Run Test, veremos que el método no pasa la prueba:

Pero no me informa donde esta el problema, para ello haremos clic en la opción Debug:

Ahora si, informa sobre la excepción generada:

El código Assert,AreEqual evalúa el resultado del método y lo compara con el valor esperado. Aquí tienes un video en channel9 (español) de Aurelio Porras: Código que prueba mi Código!!! con mas detalle.

http://channel9.msdn.com/Blogs/channel9spain/Pruebas-Unitarias-Unit-Testing-con-Visual-Studio

Mas información es MSDN : http://msdn.microsoft.com/es-es/library/dd293546.aspx

Saludos :)

La belleza de la visualización de datos

2011-02-07T16:42:00.001-05:00

David McCandless convierte series de datos complejos, como el gasto militar mundial, la cobertura mediática, las actualizaciones en los perfiles de Facebook, entre otros, en los diagramas más preciosos y simples. Propone el diseño de información como herramienta para navegar a través de la superabundancia de la información actual, buscando patrones y conexiones únicas que pueden lograr cambiar la forma de ver el mundo.

Saludos :)

Diseño Agil con TDD

2011-02-04T09:41:00.001-05:00

Navegando me encontré con este libro gratis sobre diseño ágil dirigido por los test.

Sinopsis:

¿Dedicas una gran parte de tu tiempo de desarrollo a resolver incidencias de aplicaciones en producción?, ¿te enfrentas a sesiones de depuración interminables para encontrar la raíz de un problema?, ¿te extenúa descubrir innumerables fallos cada vez que introduces nuevas características a funcionalidades ya existentes?. Si respondes afirmativamente estas cuestiones y quieres promover el cambio, en este libro encontrarás la clave.

TDD es una técnica de desarrollo que se lleva aplicando durante años con gran éxito en lugares como EEUU y Reino Unido, sin embargo, la ausencia de información en español sobre la misma ha supuesto un freno para su difusión en los países hispano-parlantes. El objetivo de este libro es poner solución a este dilema y ofrecer una referencia completa, tanto teórica como práctica, que permita al lector iniciarse en su comprensión y aplicación.

Prologo:

Erase una vez que se era, un lejano país donde vivían dos cerditos, Pablo y Adrián que, además, eran hermanos. Ambos eran los cerditos m´as listos de la granja y, por eso, el gallo Iván (el gerente de la misma) organizo una reunión en el establo, donde les encargo desarrollar un programa de ordenador
para controlar el almacén de piensos. Les explico que quería saber en todo momento: cuantos sacos de grano había y quien metía y sacaba sacos de grano del almacén. Para ello solo tenían un mes pero les advirtió que, en una semana, quería ya ver algo funcionando. Al final de esa primera semana, eliminaría a uno de los dos…

Para descargar: http://www.dirigidoportests.com/el-libro

Saludos :)

Error al ejecutar un servicio WCF en IIS7

2011-02-03T10:28:00.001-05:00

Se presento este problema una vez que publique o desplegué mi servicio WCF en IIS 7 sobre Windows 7 Home Premium con Visual Studio 2010

Could not load file or assembly 'ServicioWCF' or one of its dependencies. This assembly is built by a runtime newer than the currently loaded runtime and cannot be loaded.

El servicio “ServicioWCF” solo tiene dos métodos Sumar y Restar, desplegándolo en II6 sobre Windows 2003 Server no tengo ningún problema.

Revisando la documentación y varios foros como http://forums.iis.net el problema se debe a la versión 2 .Net Framework que tiene configurado Application pool , solo es cuestión de cambiarla a la versión 4.0 y problema resuelto.

Saludos :)