Como Utilizar Linq en vb.net

07/26/2018 por Jose Ortiz fernandez

Como Utilizar Linq en vb.net

Resulta de mucha utilidad poder realizar estas consultas de datos dentro de la propia aplicación a traves de Linq, para no sobrecargarla y que esta , no consuma demasiada ram. Si solo es por curiosidad o tienes intención de utilizarla aquí te dejo el video y el código del video por si quieres probarlo o quieres usarlo como patrón. La verdad, una vez que empiezas a utilizarlo es muy fácil.

Leer másComo Utilizar Linq en vb.net

HERRAMIENTA DE LIBERACION DE RAM

12/29/201712/28/2017 por Jose Ortiz fernandez

Herramienta de Liberacion de RAM

Hola Amigos aqui os dejo una herramienta que os facilirata la liberacion de ram no utilizada y que esta en memoria, esta herramienta mantiene la ram que esta en uso y libera la ram que ya no es utilizada por las aplicaciones.

La responsabilidad de uso es solo vuestra, y no me hago responsable de los problemas que pueda ocasionar.

Aqui te dejo el video de como funciona y el enlace de descarga

Enlace de Descarga

Password del RAR: Soulsmakers2017

Como usar PIVOT de SQL SERVER

10/09/201710/09/2017 por Jose Ortiz fernandez

Como usar PIVOT de SQL SERVER

Hola, aqui os dejo el ejemplo de Pivot de sqlserver.

Que es un pivot de Sql???? pues eso pivotar una tabla, con ello conseguimos agrupar datos de forma horizonta, datos que nos costaria mas de una vista para obtener el mismo resultado.

Leer másComo usar PIVOT de SQL SERVER

Suscribir controles a eventos vb.net AddHandler

09/23/2017 por Jose Ortiz fernandez

Suscribir controles a eventos vb.net AddHandler

Hola amigos , aqui os dejo una buena paractica usando addhandler… que es … la suscripcion de eventos de los propios controles a otras funciones.

Leer másSuscribir controles a eventos vb.net AddHandler

Obtener Unidades Con vb-File system Drives

09/22/2017 por Jose Ortiz fernandez

Obtener Unidades Con vb-File system Drives

Hola a todos, siempre hemos querido hacer un control personalizado para guardar nuestros datos. Pues aqui te dejo un codigo que seguro que te gustará.

Leer másObtener Unidades Con vb-File system Drives

Guardando el Estado de Los Objectos BinaryFormatter

11/14/201906/15/2017 por Jose Ortiz fernandez

Guardando el Estado de Los Objectos BinaryFormatter

Si alguna vez pensaste en como guardar el estado de los objetos que tienes en tu programa, no me refiero solo a los datos. si no a a clases completas, con esta clase, valga a redundancia lo podras hacer.

Para que ?, pues como te cuento en el ejemplo del video , para guardar el estado de una aplicacion cuando da error.

Lo que necesitas para este ejemplo es: 1 textbox, y 3 botones.

el codigo lo tienes a continuación del video. Miralo te vendra bien :).

Imports System.Runtime.Serialization.Formatters.Binary
Public Class Form1

    Public Lst As New List(Of DtoCliente)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
    <Serializable()>
    Partial Public Class DtoCliente
        Public Property Id As Integer
        Public Property Nombre As String
        Public Sub New()

        End Sub

    End Class
    Public id As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        id += 1
        Dim dto As New DtoCliente
        dto.Id = id
        dto.Nombre = Me.TextBox1.Text
        Me.TextBox1.Text = ""
        Lst.Add(dto)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Create)
        Dim bn As New BinaryFormatter()
        bn.Serialize(ms, Lst)
        ms.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Open)
        Dim bn As New BinaryFormatter()
        Lst = bn.Deserialize(ms)
        ms.Close()

        Dim z = ""
    End Sub
End Class

Imports System.Runtime.Serialization.Formatters.Binary

Public Class Form1

Public Lst As New List(Of DtoCliente)

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

End Sub

<Serializable()>

Partial Public Class DtoCliente

Public Property Id As Integer

Public Property Nombre As String

Public Sub New()

End Sub

End Class

Public id As Integer = 0

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

id += 1

Dim dto As New DtoCliente

dto.Id = id

dto.Nombre = Me.TextBox1.Text

Me.TextBox1.Text = ""

Lst.Add(dto)

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Create)

Dim bn As New BinaryFormatter()

bn.Serialize(ms, Lst)

ms.Close()

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Dim ms As New IO.FileStream(My.Application.Info.DirectoryPath & "\DtoSave.dto", IO.FileMode.Open)

Dim bn As New BinaryFormatter()

Lst = bn.Deserialize(ms)

ms.Close()

Dim z = ""

End Sub

End Class

espero que te sirva un Saludo… Jose Ortiz “Souslmakers.com”

DTO A DATATABLE Y VICEVERSA

10/02/201706/01/2017 por Jose Ortiz fernandez

DTO A DATATABLE Y VICEVERSA

Video y codigo con correcciones

Hola a todos. Vamos a ver como podemos transformar los datos que provienen de un datatable a un objeto contenedor , que contienen DTOs con los datos.

Partiendo de la Base del DTO vamos a crear una clase con una funcion que transformara esos datos.

Lo primero es la clase DTO que vamos a utilizar que podria ser como esta.

Public Class DTOCLIENTE
   Private _Id
   Public Property Id As Integer
       Get
           Return _Id
       End Get
       Set(value As Integer)
           _Id = value
       End Set
   End Property
   Private _Nombre
   Public Property Nombre As String
       Get
           Return _Nombre
       End Get
       Set(value As String)
           _Nombre = value
       End Set
   End Property
   Private _Apellidos
   Public Property Apellidos As String
       Get
           Return _Apellidos
       End Get
       Set(value As String)
           _Apellidos = value
       End Set
   End Property
   Public Sub New()
   End Sub
End Class

Public Class DTOCLIENTE

Private _Id

Public Property Id As Integer

Get

Return _Id

End Get

Set(value As Integer)

_Id = value

End Set

End Property

Private _Nombre

Public Property Nombre As String

Get

Return _Nombre

End Get

Set(value As String)

_Nombre = value

End Set

End Property

Private _Apellidos

Public Property Apellidos As String

Get

Return _Apellidos

End Get

Set(value As String)

_Apellidos = value

End Set

End Property

Public Sub New()

End Sub

End Class

Pues bien , ya tenemos el DTO general , ahora necesitamos los datos,
los puedes haber obtenido usando OLEDB, ADODB. o como sea yo los creare a mano para el ejemplo.

Como vas a ver , coinciden los formatos de campo con los formatos de campo del DTO, esto es importante por que si no dara error.

       Dim dt As New DataTable
       dt.Columns.Add("Id", GetType(Int32)) : dt.Columns.Add("Nombre", GetType(String)) : dt.Columns.Add("Apellidos", GetType(String))
       Dim dr As DataRow
       dr = dt.NewRow
       dr("id") = 1
       dr("Nombre") = "Juan"
       dr("Apellidos") = "Pardo"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("id") = 2
       dr("Nombre") = "Lucas"
       dr("Apellidos") = "Martinez"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("id") = 3
       dr("Nombre") = "Pablo"
       dr("Apellidos") = "Beltran"
       dt.Rows.Add(dr)
       dr = dt.NewRow
       dr("id") = 4
       dr("Nombre") = "Maria"
       dr("Apellidos") = "Juliana"
       dt.Rows.Add(dr)
       dt.TableName = "Clientes"

Dim dt As New DataTable

dt.Columns.Add("Id", GetType(Int32)) : dt.Columns.Add("Nombre", GetType(String)) : dt.Columns.Add("Apellidos", GetType(String))

Dim dr As DataRow

dr = dt.NewRow

dr("id") = 1

dr("Nombre") = "Juan"

dr("Apellidos") = "Pardo"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("id") = 2

dr("Nombre") = "Lucas"

dr("Apellidos") = "Martinez"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("id") = 3

dr("Nombre") = "Pablo"

dr("Apellidos") = "Beltran"

dt.Rows.Add(dr)

dr = dt.NewRow

dr("id") = 4

dr("Nombre") = "Maria"

dr("Apellidos") = "Juliana"

dt.Rows.Add(dr)

dt.TableName = "Clientes"

Ya tenemos la estructura DTO y el Datatable, pues ahora solo nos falta el convertidor, que yo , lo cree en una nueva clase, que se llama DTToDTO
(Datatable to DTO) cuya funcion es ToDTO al cual le pasamos el Datatable y el type del DTO. Primero el convertidor.

Imports System.Reflection

Public Class DTToDTO
   Public Sub New()

   End Sub
   Public Function ToDTO(ByVal dt As DataTable, ByVal Type As Type)
       'Invocamos una instacia del type que va pasar a ser DTO
       Dim DTOBASE = Type.InvokeMember("new", Reflection.BindingFlags.CreateInstance, Nothing, Nothing, Nothing)
       'Creamos el contenedor de retorno
       Dim DTORETURN(-1)
       For Each dr As DataRow In dt.Rows
           ReDim Preserve DTORETURN(UBound(DTORETURN) + 1)
           Dim DTOADD = DTOBASE
           For Each dc As DataColumn In dt.Columns
               Dim Pr As PropertyInfo = DTOADD.GetType.GetProperty(dc.ColumnName)

               Pr.SetValue(DTOADD, dr(dc.ColumnName), Nothing)
           Next
           DTORETURN(UBound(DTORETURN)) = DTOADD
       Next
       Return DTORETURN
   End Function
End Class

Imports System.Reflection

Public Class DTToDTO

Public Sub New()

End Sub

Public Function ToDTO(ByVal dt As DataTable, ByVal Type As Type)

'Invocamos una instacia del type que va pasar a ser DTO

Dim DTOBASE = Type.InvokeMember("new", Reflection.BindingFlags.CreateInstance, Nothing, Nothing, Nothing)

'Creamos el contenedor de retorno

Dim DTORETURN(-1)

For Each dr As DataRow In dt.Rows

ReDim Preserve DTORETURN(UBound(DTORETURN) + 1)

Dim DTOADD = DTOBASE

For Each dc As DataColumn In dt.Columns

Dim Pr As PropertyInfo = DTOADD.GetType.GetProperty(dc.ColumnName)

Pr.SetValue(DTOADD, dr(dc.ColumnName), Nothing)

DTORETURN(UBound(DTORETURN)) = DTOADD

Return DTORETURN

End Function

End Class

Y Ahora al contrario.

Lo primero que haremos sera crear una clase a la que yo llame DTOToDTT(DTO to Datatable) y Crearemos una funcion que yo llame ToDTT que tendra como variable un Object y el valor de retorno sera el datatable, y vamos a utilizar la misma logica con reflection la cosa de momento queda asi.

Imports System.Reflection
Public Class DTOToDTT
   Public Sub New()

   End Sub
   Public Function ToDTT(ByVal DTOs As Object) As DataTable

   End Function
End Class

Imports System.Reflection

Public Class DTOToDTT

Public Sub New()

End Sub

Public Function ToDTT(ByVal DTOs As Object) As DataTable

End Function

End Class

A continuación vamos trazar los siguientes pasos para no liarnos, de tal forma que quedara una secuencia logica.

1 Columnas y tipo de dato
2 Datos

Creamos el datatable y vamos a empezar a crear las columnas a traves del reflection, yo lo desglosare y saldrán mas lineas de codigo pero se puede hacer en 1 linea por cada columna del datatable.

       Dim Dt As New DataTable
       For Each Pr As PropertyInfo In DTOs(0).GetType.GetProperties
           Dim NombreColumna = Pr.Name
           Dim TipoDato As Type = Pr.PropertyType
           Dt.Columns.Add(NombreColumna, TipoDato)
       Next

Dim Dt As New DataTable

For Each Pr As PropertyInfo In DTOs(0).GetType.GetProperties

Dim NombreColumna = Pr.Name

Dim TipoDato As Type = Pr.PropertyType

Dt.Columns.Add(NombreColumna, TipoDato)

La cosa va facil no??, creo que no necesita mucha explicación.
Bueno y ahora a rellenar los datos. Para ello vamos a repetir parte de la logica anterior añadimos un For para recorrer el Array y vamos creando los rows, como dije antes, lo voy a desglosar para que se entienda mejor,pero se puede hacer en menos lineas.

       For i As Integer = 0 To DTOs.length - 1
           Dim dr As DataRow
           dr = Dt.NewRow
           For Each pr As PropertyInfo In DTOs(i).GetType.GetProperties
               Dim NombreColumna = pr.Name
               Dim Valor = DTOs(i).GetType.GetProperty(NombreColumna).GetValue(DTOs(i))
               dr(NombreColumna) = Valor
           Next
           Dt.Rows.Add(dr)
       Next
Return Dt

For i As Integer = 0 To DTOs.length - 1

Dim dr As DataRow

dr = Dt.NewRow

For Each pr As PropertyInfo In DTOs(i).GetType.GetProperties

Dim NombreColumna = pr.Name

Dim Valor = DTOs(i).GetType.GetProperty(NombreColumna).GetValue(DTOs(i))

dr(NombreColumna) = Valor

Dt.Rows.Add(dr)

Return Dt

En 2 pasos, ya esta, ya lo tenemos resuelo. a continuacion os dejo todo el codigo completo.

Imports System.Reflection
Public Class DTOToDTT
   Public Sub New()

   End Sub
   Public Function ToDTT(ByVal DTOs As Object) As DataTable
       Dim Dt As New DataTable
       For Each Pr As PropertyInfo In DTOs(0).GetType.GetProperties
           Dim NombreColumna = Pr.Name
           Dim TipoDato As Type = Pr.PropertyType
           Dt.Columns.Add(NombreColumna, TipoDato)
       Next

       For i As Integer = 0 To DTOs.length - 1
           Dim dr As DataRow
           dr = Dt.NewRow
           For Each pr As PropertyInfo In DTOs(i).GetType.GetProperties
               Dim NombreColumna = pr.Name
               Dim Valor = DTOs(i).GetType.GetProperty(NombreColumna).GetValue(DTOs(i))
               dr(NombreColumna) = Valor
           Next
           Dt.Rows.Add(dr)
       Next
       Return Dt
   End Function
End Class

Imports System.Reflection

Public Class DTOToDTT

Public Sub New()

End Sub

Public Function ToDTT(ByVal DTOs As Object) As DataTable

Dim Dt As New DataTable

For Each Pr As PropertyInfo In DTOs(0).GetType.GetProperties

Dim NombreColumna = Pr.Name

Dim TipoDato As Type = Pr.PropertyType

Dt.Columns.Add(NombreColumna, TipoDato)

For i As Integer = 0 To DTOs.length - 1

Dim dr As DataRow

dr = Dt.NewRow

For Each pr As PropertyInfo In DTOs(i).GetType.GetProperties

Dim NombreColumna = pr.Name

Dim Valor = DTOs(i).GetType.GetProperty(NombreColumna).GetValue(DTOs(i))

dr(NombreColumna) = Valor

Dt.Rows.Add(dr)

Return Dt

End Function

End Class

Enlace corto a este post http://4go.es/?4

Ordenar TabIndex de Forma Automatica

11/14/201905/12/2017 por Jose Ortiz fernandez

Ordenar TabIndex de Forma Automatica

Buenos dias a todos.

De bien es sabido que en todo desarrollo que se precie, deben de estar ordenados los campos, para que aquellos usuario que normalmente se encargan de cargar datos en la aplicacion , ya sea pedidos, facturas u otro dato, suelen utilizar el tabulador para moverse mas rapido por los registros.

Tambien ocurre que como nos suelen pedir modificaciones , y solemos poner campos nuevos en la o las pantallas, estos ya estan desordenados.

Aqui os traigo una funcion que poniendola en el load de la pantalla reordenara los tabindex de los controles según su posición. asi cuando vayamos pulsando la tecla tab. estos pasaran por orden.

Para ello necesitamos usar un datatable , que ira guardando las posiciones X,Y y el nombre del control, un dataview para ordenarlos, un contador para asignarle el nuevo numero de index.

Aqui el codigo seguido. Espero que os sirva.

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Ordenar()
    End Sub
    Public Function Ordenar()
        Dim Orden As Integer = 0
        Dim dt As New DataTable
        Dim dv As New DataView
        dt.Columns.Add("X", GetType(Integer)) : dt.Columns.Add("Y", GetType(Integer)) : dt.Columns.Add("NAME", GetType(String))

        For Each cn As Control In Me.Controls
            Dim dr As DataRow = dt.NewRow
            dr("X") = cn.Location.X
            dr("Y") = cn.Location.Y
            dr("NAME") = cn.Name
            dt.Rows.Add(dr)
        Next

        dt.TableName = "ORDENAR CAMPOS"
        dv.Table = dt

        dv.Sort = "Y ASC,X ASC"

        For i As Integer = 0 To dv.Count - 1
            Me.Controls.Item(dv(i).Row("NAME")).TabIndex = Orden
            Orden += 1
        Next


    End Function

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

Ordenar()

End Sub

Public Function Ordenar()

Dim Orden As Integer = 0

Dim dt As New DataTable

Dim dv As New DataView

dt.Columns.Add("X", GetType(Integer)) : dt.Columns.Add("Y", GetType(Integer)) : dt.Columns.Add("NAME", GetType(String))

For Each cn As Control In Me.Controls

Dim dr As DataRow = dt.NewRow

dr("X") = cn.Location.X

dr("Y") = cn.Location.Y

dr("NAME") = cn.Name

dt.Rows.Add(dr)

dt.TableName = "ORDENAR CAMPOS"

dv.Table = dt

dv.Sort = "Y ASC,X ASC"

For i As Integer = 0 To dv.Count - 1

Me.Controls.Item(dv(i).Row("NAME")).TabIndex = Orden

Orden += 1

End Function

Un saludo a todos

Servicio ASMX con SQL – Dedicado a el canal Mario Briceño

11/18/201905/06/2017 por Jose Ortiz fernandez

Servicio ASMX con SQL – Dedicado a el canal Mario Briceño

Antes de comenzar gracias a todos los que me seguis en youtube o aqui , a traves del portal de soulsmakers.

Empecemos.

Cosas que os haran falta, la dll de adodb, lo podeis hacer con oledb, en este ejemplo uso ado.

1 crea el proyecto para el web service y agrega como referencia adodb para el acceso a bbdd

2 ten preparado la cadena de conexion .

3 crea un servicio web y aqui te dejo el codigo que se muestra en el video del web service.

Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class ASMXSQL
    Inherits System.Web.Services.WebService
    Dim BBDD As ADODB.Connection
    <WebMethod()>
    Public Function DevolverDatosTabla1() As DataTable
        Dim str As String = "select * from tabla"
        Dim dt As New DataTable
        Dim da As New OleDb.OleDbDataAdapter
        PrepararCadena()
        BBDD.Open()
        da.Fill(dt, BBDD.Execute(str))
        BBDD.Close()
        dt.TableName = "Tabla"
        dt.AcceptChanges()
        Return dt
    End Function
    Private Function PrepararCadena()
        BBDD = New ADODB.Connection
        BBDD.ConnectionString = "AQUI LA CADENA DE CONEXION A BBDD"

    End Function
End Class

Imports System.Web.Services

Imports System.Web.Services.Protocols

Imports System.ComponentModel

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.

' <System.Web.Script.Services.ScriptService()> _

<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _

<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _

<ToolboxItem(False)> _

Public Class ASMXSQL

Inherits System.Web.Services.WebService

Dim BBDD As ADODB.Connection

<WebMethod()>

Public Function DevolverDatosTabla1() As DataTable

Dim str As String = "select * from tabla"

Dim dt As New DataTable

Dim da As New OleDb.OleDbDataAdapter

PrepararCadena()

BBDD.Open()

da.Fill(dt, BBDD.Execute(str))

BBDD.Close()

dt.TableName = "Tabla"

dt.AcceptChanges()

Return dt

End Function

Private Function PrepararCadena()

BBDD = New ADODB.Connection

BBDD.ConnectionString = "AQUI LA CADENA DE CONEXION A BBDD"

End Function

End Class

Compila y e inicia la depuracion para que arranque el iis y te deje el servicio arrancado para poder añadirlo como indica el video.

4 crea un proyecto web.

5 añade como referencia de servico el servicio publicado en tu iis en local.

6 crea una pagina en blanco y añade un gridview, aqui el codigo de la webform.

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Prueba.aspx.vb" Inherits="WebParaConsumeAsmx.Prueba" %>

<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
        <asp:GridView ID="GridView1" runat="server">
        </asp:GridView>
    
    </div>
    </form>
</body>
</html>

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Prueba.aspx.vb" Inherits="WebParaConsumeAsmx.Prueba" %>

<!DOCTYPE html>

</head>

<body>

<div>

<asp:GridView ID="GridView1" runat="server">

</asp:GridView>

</div>

</form>

</body>

</html>

7 en el evento load añade el codigo que aparece aqui. Deberas cambia el nombre del servicio a el que has echo referencia por el que has puesto tu, yo te dejo el del video.

Public Class Prueba
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim MiPrueba As New PruebaSQL.ASMXSQLSoapClient
        Dim DtConDatos As DataTable = MiPrueba.DevolverDatosTabla1
        Me.GridView1.DataSource = DtConDatos
        Me.GridView1.DataBind()
    End Sub

End Class

Public Class Prueba

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim MiPrueba As New PruebaSQL.ASMXSQLSoapClient

Dim DtConDatos As DataTable = MiPrueba.DevolverDatosTabla1

Me.GridView1.DataSource = DtConDatos

Me.GridView1.DataBind()

End Sub

End Class

y esto es todo, Espero que te sirva. un saludo.