Vb.Net: copiar el contenido de una carpeta a otra

Cuando recien estaba iniciando en el mundo de .net un realice un sencillo programa que fuese capaz de copiar el contenido de una carpeta hacia otra cada 20 segundos.

El programa lo hice en visual studio 2003, pero he realizado algunos cambios como por ejemplo la posibilidad de elegir el tiempo en que se copiaran los archivos y ademas lo he migrado a visual studio 2010.

Aquí muestro una imagen del programa.

Para descargar el ejemplo presione aqui

DatagridviewComboBoxColumn: celdas con items irrepetibles por fila

Ahora voy a presentar un datagridview con una columna de tipo DatagridViewComboboxColumn donde cada item seleccionado en la columna tipo combobox no se vuelva a repetir en ninguna otra fila.

Habeces es necesario hacer validaciones de este tipo, por ejemplo si en un datagridview mostramos el nombre de un trabajador donde se le debe de asignar los conceptos de pago ya sea Sueldo Básico, Horas Extras, Movilidad, etc, pero donde cada concepto sea único por fila, es decir que un trabajador no podrá tener 2 importes por concepto de sueldos basicos o 3 importes por concepto de horas extras.

Para empezar creamos la clase personal.vb

Public Class Personal
    Private lcod_personal As String
    Private lnom_personal As String
    Private lcod_concepto As String
    Private limp_concepto As Decimal


    Public Property cod_personal() As String
        Get
            Return lcod_personal
        End Get
        Set(ByVal value As String)
            lcod_personal = value
        End Set
    End Property
    Public Property nom_personal() As String
        Get
            Return lnom_personal
        End Get
        Set(ByVal value As String)
            lnom_personal = value
        End Set
    End Property
    Public Property cod_concepto() As String
        Get
            Return lcod_concepto
        End Get
        Set(ByVal value As String)
            lcod_concepto = value
        End Set
    End Property

    Public Property imp_concepto() As Decimal
        Get
            Return limp_concepto
        End Get
        Set(ByVal value As Decimal)
            limp_concepto = value
        End Set
    End Property


End Class

luego creamos una clase ListPersonal.vb que herede de una lista de personal

Public Class ListPersonal
    Inherits List(Of Personal)
    Sub New()

    End Sub

    Sub AddPersonal(ByVal lcod_personal As String, _
          ByVal lnom_personal As String, _
          ByVal lcod_concepto As String, _
          ByVal limp_concepto As Decimal)

        Dim lPersonal As New Personal
        lPersonal.cod_personal = lcod_personal
        lPersonal.nom_personal = lnom_personal
        lPersonal.cod_concepto = lcod_concepto
        lPersonal.imp_concepto = limp_concepto
        Me.Add(lPersonal)
    End Sub

End Class

Ahora debemos crear la clase Conceptos.vb

Public Class Conceptos
    Private lcod_concepto As String
    Private lnom_concepto As String

    Public Property cod_concepto() As String
        Get
            Return lcod_concepto
        End Get
        Set(ByVal value As String)
            lcod_concepto = value
        End Set
    End Property

    Public Property nom_concepto() As String
        Get
            Return lnom_concepto
        End Get
        Set(ByVal value As String)
            lnom_concepto = value
        End Set
    End Property
End Class

ademas como el caso anterior creamos la clase ListConcepto.vb que herede de una lista de Conceptos

Public Class ListConcepto
    Inherits List(Of Conceptos)

    Sub New()
    End Sub

    Sub AddConcepto(ByVal Codigo As String, ByVal Nombre As String)
        Dim lconcepto As New Conceptos
        lconcepto.cod_concepto = Codigo
        lconcepto.nom_concepto = Nombre
        Me.Add(lconcepto)
    End Sub

End Class

por ultimo un formulario con un datagridview y dos botones (un boton para eliminar filas y el otro para agregar una nueva fila)

Public Class Form1
    Dim lListPersonal As New ListPersonal
    Dim lListConcepto As New ListConcepto
    Dim lBinding As New BindingSource

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Creamos la Estructura del datagridview
        Dim ColumnCodigo As New DataGridViewTextBoxColumn
        ColumnCodigo.Name = "Código"
        ColumnCodigo.HeaderText = "Codigo"
        ColumnCodigo.DataPropertyName = "cod_personal"
        ColumnCodigo.Width = 80
        Me.DataGridView1.Columns.Add(ColumnCodigo)

        Dim ColumnNombre As New DataGridViewTextBoxColumn
        ColumnNombre.Name = "Nombre"
        ColumnNombre.HeaderText = "Apellidos y nombre"
        ColumnNombre.DataPropertyName = "nom_personal"
        ColumnNombre.Width = 200
        Me.DataGridView1.Columns.Add(ColumnNombre)

        Dim ColumnConcepto As New DataGridViewComboBoxColumn
        ColumnConcepto.Name = "Concepto"
        ColumnConcepto.HeaderText = "Concepto pago"
        ColumnConcepto.DataPropertyName = "cod_concepto"
        ColumnConcepto.Width = 140
        Me.DataGridView1.Columns.Add(ColumnConcepto)

        Dim ColumnImporte As New DataGridViewTextBoxColumn
        ColumnImporte.Name = "Concepto"
        ColumnImporte.HeaderText = "Importe S/."
        ColumnImporte.DataPropertyName = "imp_concepto"
        Me.DataGridView1.Columns.Add(ColumnImporte)

        Me.DataGridView1.AutoGenerateColumns = False

        'Agregamos los conceptos de pago y los asignamos a la columna tipo combobox
        lListConcepto.AddConcepto("", "(SELECCIONE)")
        lListConcepto.AddConcepto("01", "SUELDO BÁSICO")
        lListConcepto.AddConcepto("02", "ASIGNACION FAMILIAR")
        lListConcepto.AddConcepto("03", "HORAS EXTRAS")
        lListConcepto.AddConcepto("04", "GRATIFICACION")
        lListConcepto.AddConcepto("05", "MOVILIDAD")
        lListConcepto.AddConcepto("06", "REFRIGERIO")

        ColumnConcepto.DataSource = lListConcepto
        ColumnConcepto.DisplayMember = "nom_concepto"
        ColumnConcepto.ValueMember = "cod_concepto"

        'Cargamos algunos trabajadores


        lListPersonal.AddPersonal("XY001", "PEREZ RODRIGUEZ, JUAN", "", 0)
        lBinding.DataSource = lListPersonal
        Me.DataGridView1.DataSource = lBinding

    End Sub
   

    Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click
        Dim lInfo As New Personal
        lInfo.cod_personal = "XY001"
        lInfo.nom_personal = "PEREZ RODRIGUEZ, JUAN"
        lInfo.cod_concepto = ""
        lInfo.imp_concepto = 0
        lBinding.Add(lInfo)

    End Sub


    Private Sub DataGridView1_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.CurrentCellChanged
        If DataGridView1.CurrentRow Is Nothing Then Exit Sub
        If DataGridView1.CurrentRow.Cells("Concepto").Value = String.Empty Then
            Me.DataGridView1.CurrentRow.ErrorText = "Debe seleccionar un concepto válido"
        Else
            Me.DataGridView1.CurrentRow.ErrorText = String.Empty
        End If
    End Sub

    Private Sub DataGridView1_CellBeginEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles DataGridView1.CellBeginEdit
        Dim lStrColumn As String = Me.DataGridView1.Columns(e.ColumnIndex).Name

        'Solo es váido cuando la columna del datagridview corresponde a conceptos
        If lStrColumn = "Concepto" Then


            Dim lConceptosAsignados As New List(Of String)
            Dim lConceptosNoAsignados As New ListConcepto

            'PASO 1
            'Obtenemos los conceptos que ya fueron asignados al personal

            'Recorremos  las filas del datagridview
            For Each lInfo As DataGridViewRow In Me.DataGridView1.Rows
                'Entraran a la condicion todas las filas excepto la fila que esta
                'en edicion
                If e.RowIndex <> lInfo.Index Then
                    'Obtenemos la entidad por fila
                    Dim lBoundItem As Personal = lInfo.DataBoundItem
                    If lBoundItem Is Nothing Then
                        Continue For
                    End If
                    'Agregamos a la lista de conceptos asignados
                    lConceptosAsignados.Add(lBoundItem.cod_concepto)
                End If
            Next

            'PASO 2
            'En la Celda del DataGridViewComboboxcolum que esta en edicion
            'mostramos aquellos conceptos que aun no han sido asignados

            Dim lBoolAsignado As Boolean = False
            For Each info As Conceptos In lListConcepto
                lBoolAsignado = False
                'Verificamos si el concepto ha sido asignado en alguna fila
                For Each Value As String In lConceptosAsignados
                    If info.cod_concepto = Value Then
                        lBoolAsignado = True
                        Exit For
                    End If
                Next
                'Si el concepto aun no ha sido asignado 
                If lBoolAsignado = False Then
                    lConceptosNoAsignados.Add(info)
                End If
            Next

            'A la celda del DatagridViewComboBoxcolumn en edicion indicamos
            'que solo se muestren los items que aun no han sido asignados
            Dim dgvColumn As New DataGridViewComboBoxCell
            dgvColumn.DataSource = lConceptosNoAsignados
            dgvColumn.ValueMember = "cod_concepto"
            dgvColumn.DisplayMember = "nom_concepto"
            Me.DataGridView1.Item(lStrColumn, e.RowIndex) = dgvColumn
        End If
    End Sub

    Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click
        If Not (DataGridView1.CurrentRow Is Nothing) Then
            lBinding.RemoveCurrent()
        End If
    End Sub
End Class

En el evento CellBeginEdit del datagridview es donde se van a filtrar solo aquellos conceptos que aun no han sido seleccionados y se mostraran el la celda en edición.

Puedes descargar el código del ejemplo en la siguiente dirección:
http://cid-ad089621e4982823.office.live.com/self.aspx/Ejemplos%20.Net/DataGridViewComboBoxColumnItems.rar

Consultas dinámicas en Sqlserver 2000

Hace algún tiempo atrás tuve que implementar en la aplicación que estuve desarrollando, consultas configurables para que el usuario puede filtrar la información de acuerdo a su necesidad, pongamos como ejemplo a la base de datos Northwind y la tabla Products, la aplicación debía consultar por cualquier columna que el usuario seleccione y filtrar la información según las coincidencias encontradas.

A mi no me pareció complejo hacer algo asi, porque solo debía armar la consulta en la aplicación y ejecutarla, pero luego me di cuenta que hacerlo de esta manera tenia dos desventajas:

- Al armar las consultas en la aplicación, esta se convertía en poco escalable y muy estática porque cualquier cambio o actualización que quisiese hacer tenia que modificar el código del programa y crear otro instalador o en todo caso reemplazar la dll donde se ha realizado el cambio.

- Las consultas que se envían desde la aplicación consumen mas recursos del servidor porque sql server tiene que cargar en memoria la sentencia a ejecutar, luego analizarla, compilarla y por ultimo ejecutarla, ocasionando que el servidor consuma mas recursos.

Los procedimientos almacenados están pre compilados en el servidor, por lo cual ejecutarlos tiene un menor costo para el servidor.

Para no armar y concatenar la sentencia en la aplicación debía ser capaz de armar la consulta en el servidor a travez de un procedimiento almacenado.

Para mi satisfacción encontré que desde la versión Sql Server 2000 existe el comando sp_executesql, capaz de ejecutar cualquier tipo de consulta que se le especifique.

El siguiente ejemplo usa sp_executesql y consiste en crear un procedimiento almacenado que consulte a la tabla Products sujeto a la condición que se envia al procedimiento.

GO
drop function [fGetCondicion]
GO
create function [dbo].[fGetCondicion]
(
@Condicion varchar(20),
@value varchar(100)
)
RETURNS  VARCHAR(20)
AS
-- =============================================
-- Author:  Milton Baltazar Valenzuela
-- Description: Obtiene el tipo de condicion y el valor
--       de la condicion para devolver la condicion
--       en el formato requerido
-- =============================================
BEGIN
RETURN (
SELECT
CASE @Condicion
WHEN 'like' THEN @Condicion + '''%' + @value + '%'''
WHEN '='  THEN @Condicion + ' ' + @value
WHEN '<>' THEN @Condicion + ' ' + @value
WHEN '>'  THEN @Condicion + ' ' + @value
WHEN '<'  THEN @Condicion + ' ' + @value  ELSE null END) END GO  GO drop procedure usp_get_products GO create procedure usp_get_products (   @productID            int  ,@ProductName          varchar(40)  ,@CategoryID           int  ,@UnitPrice            money  ,@Condicion     varchar(100) ) AS BEGIN Declare @ls_query nvarchar(4000) Declare @li_error int Declare @ls_error  varchar(1000)   set @ls_query='select productID, ProductName, CategoryID, UnitPrice from dbo.Products'     if @productID is not null    begin      set @ls_query = @ls_query + ' where productID ' + dbo.fGetCondicion(@Condicion,@productID)  end   else if @ProductName is not null    begin      set @ls_query = @ls_query + ' where ProductName ' + dbo.fGetCondicion(@Condicion,@ProductName)  end   else if @CategoryID is not null    begin      set @ls_query = @ls_query + ' where CategoryID ' + dbo.fGetCondicion(@Condicion,@CategoryID)  end        exec @li_error = sp_executesql   @ls_query,N' @productID            int     ,@ProductName          varchar(40)     ,@CategoryID           int     ,@Condicion      varchar(100)'     ,@productID       ,@ProductName      ,@CategoryID       ,@Condicion ;      if @li_error <> 0
begin
set @ls_error = 'Error en la consulta. '
RaisError(@ls_error,16,1)
end
END
GO


----------------------------------------------------
--ejecutamos el procedimiento almacenado
----------------------------------------------------

exec usp_get_products 10,null,null,null,'='

exec usp_get_products null,'',null,null,'like'

exec usp_get_products null,'Chai',null,null,'Like'


GO

En resumen he creado un procedimiento almacenado que me permita consultar
cualquier campo de acuerdo a la condición que le envío, es cierto que al código no esta al 100% perfeccionado pero solo quiero dar la idea de que se puede hacer con sp_executesql.

DatagridView con origen de datos Listas Genericas y columnas Ordenables

Cuando se usa un datatable con origen de datos en un DatagridView por defecto queda la posibilidad de ordenar de manera ascendente o descendente los datos haciendo click en los encabezados de la columnas.

Pero cuando se usa listas genéricas como origen de datos para un Datagridview la posibilidad de ordenación queda deshabilitado.

para solucionar este problema se debe crear una clase SortableBindingList.vb que herede de BindingList

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Linq
Imports System.Linq.Expressions
Imports System.Text
Imports System.Reflection

Public Class SortableBindingList(Of T)
    Inherits BindingList(Of T)
    Private _isSorted As Boolean
    Private _sortDirection As ListSortDirection
    Private _sortProperty As PropertyDescriptor

    'This override shows the binded object, that our list supports sorting
    Protected Overrides ReadOnly Property SupportsSortingCore() As Boolean
        Get
            Return True
        End Get
    End Property

    'And that it can sort bi-directional
    Protected Overrides ReadOnly Property SortDirectionCore() As ListSortDirection
        Get
            Return _sortDirection
        End Get
    End Property

    'And that it can sort by T typed object's properties
    Protected Overloads Overrides ReadOnly Property SortPropertyCore() As PropertyDescriptor

        Get
            Return _sortProperty
        End Get
    End Property

    'This is the method, what gets called when the sort event occurs in the bound object
    Protected Overloads Overrides Sub ApplySortCore(ByVal prop As PropertyDescriptor, ByVal direction As ListSortDirection)
        Dim items As List(Of T) = TryCast(Me.Items, List(Of T))

        If items IsNot Nothing Then
            Dim pc As New PropertyComparer(Of T)(prop.Name, direction)
            items.Sort(pc)
            _isSorted = True
            _sortDirection = direction
            _sortProperty = prop
        Else
            _isSorted = False
        End If
        OnListChanged(New ListChangedEventArgs(ListChangedType.Reset, -1))
    End Sub

    'This shows if our list is already sorted or not
    Protected Overloads Overrides ReadOnly Property IsSortedCore() As Boolean
        Get
            Return _isSorted
        End Get
    End Property

    'Removing the sort
    Protected Overrides Sub RemoveSortCore()
        _isSorted = False
    End Sub

    'Sub New(ByVal list As ICollection(Of T))
    '    MyBase.New(list)
    'End Sub
End Class

Public Class PropertyComparer(Of T)
    Implements IComparer(Of T)
    Private _property As PropertyInfo
    Private _sortDirection As ListSortDirection

    Public Sub New(ByVal sortProperty As String, ByVal sortDirection As ListSortDirection)
        _property = GetType(T).GetProperty(sortProperty)
        Me._sortDirection = sortDirection
    End Sub

    Public Function Compare(ByVal x As T, ByVal y As T) As Integer Implements IComparer(Of T).Compare
        Dim valueX As Object = _property.GetValue(x, Nothing)
        Dim valueY As Object = _property.GetValue(y, Nothing)

        If _sortDirection = ListSortDirection.Ascending Then Return Comparer.[Default].Compare(valueX, valueY)

        Return Comparer.[Default].Compare(valueY, valueX)
    End Function
End Class

SortableBindingList reemplazará a List(Of ) o a cualquier tipo de coleccion que use. Como este ejemplo lo hago de la base de datos Northwind y la tabla Categories tengo que crear una clase con las columnas que deseo consultar.

procedemos a crear la clase Categories.vb

Public Class Categories
    Private lCategoryId As String = String.Empty
    Private lCategoryName As String = String.Empty
    Private lDescription As String = String.Empty

    Public Property CategoryId() As String
        Get
            Return lCategoryId
        End Get
        Set(ByVal value As String)
            lCategoryId = value
        End Set
    End Property

    Public Property CategoriName() As String
        Get
            Return lCategoryName
        End Get
        Set(ByVal value As String)
            lCategoryName = value
        End Set
    End Property

    Public Property Description() As String
        Get
            Return lDescription
        End Get
        Set(ByVal value As String)
            lDescription = value
        End Set
    End Property

End Class

ahora voy a crear una clase ListCategories.vb que herede de SortableBindingList

Public Class ListCategories
    Inherits SortableBindingList(Of Categories)

    Sub New()
    End Sub

End Class

ahora cuando quiera usar una colección de la clase categories.vb solo tengo que instanciar de la clase ListCategories y ya no de List(Of)

ejmplo:

Dim List as New ListCategories

o

Dim List as New SortableBindingList(Of categories)

lo cual reemplazaria a:

Dim List as New List(Of categories)

Ahora creamos un formulario con un datagridview y consultamos de la base de datos Northwind y la tabla Categories y colocamos el siguiente código en el load del formulario.

  Dim lList As New ListCategories

        Using cn As New SqlConnection("Data Source=XXXX;Initial Catalog=BD;User ID=sa;Password=xyzxyz")
            Using cmd As New SqlCommand
                cmd.CommandType = CommandType.Text
                cmd.CommandText = "select categoryId, categoryName, Description from  Categories"
                cmd.Connection = cn
                cn.Open()
                Using dr As SqlDataReader = cmd.ExecuteReader
                    If dr.HasRows = True Then
                        Dim lColumn0 As Integer = dr.GetOrdinal("categoryId")
                        Dim lColumn1 As Integer = dr.GetOrdinal("categoryName")
                        Dim lColumn2 As Integer = dr.GetOrdinal("Description")
                        Dim lCount As Integer = dr.FieldCount - 1
                        Dim Values(lCount) As Object
                        Dim lEntidad As Categories
                        While dr.Read
                            dr.GetValues(Values)
                            lEntidad = New Categories
                            lEntidad.CategoryId = Values(lColumn0)
                            lEntidad.CategoriName = Values(lColumn1)
                            lEntidad.Description = Values(lColumn2)
                            lList.Add(lEntidad)
                        End While
                    End If
                End Using
                cn.Close()
            End Using
        End Using

        DataGridView1.DataSource = lList

ahora ejecutamos y podemos visualizar que el datagridview se carga teniendo asociado como origen de datos una lista generica de tipo SortableBindingList y tambien podemos apreciar que se puede ordenar las columnas haciendo click en ellas.

espero haya sido de utilidad, hasta la próxima.

Cacoo, Un diagramador en la nube gratis

Hace algun tiempo vengo usando esta util herramienta que me ha sacado de apuros en muchas ocasiones, se trata de Cacoo, un diagramador online donde se puede diseñar cualquier tipo de diagrama, ademas te ofrece la ventaja de almacenar tus creaciones.

Muchas veces deseamos crear diagramas pero no contamos con el software adecuado, y los programas encargados para esto muchas veces resultan muy pesados y no vale la pena tenerlos instalados en nuestro ordenador para realizar tareas que no son tan habituales. al ser esta una herramienta que esta en la web resulta muy útil en momentos de apuros.

Para poder usar Cacoo debes registrarte sin ningun costo en la siguiente dirección http://cacoo.com/ .

Aqui dejo una imagen de la IDE de Cacoo con un sencillo gráfico.

Espero que haya sido de utilidad, hasta luego.