que archivos - Soulsmakers

DTO, ¿Que es?

Hola a todos, segun se expone en la wikipedia un DTO es:
Objeto de Transferencia de Datos (DTO por sus siglas en inglés) es un objeto que transporta datos entre procesos. La motivación de su uso tiene relación con el hecho que la comunicación entre procesos es usualmente realizada mediante interfaces remotas (ej. Servicios Web), donde cada llamada es una operación costosa.

Como la mayor parte del costo de cada llamada está relacionado con el tiempo round-trip entre el cliente y servidor, una forma de reducir el número de llamadas es usando un objeto (el DTO) que agrega los datos que habrían sido transferidos por cada llamada, pero que son entregados en una sola invocación.

La diferencia entre DTO y Objetos de Negocio (Business Objects) o Data Access Objects (DAO) es que un DTO no tiene más comportamiento que almacenar y entregar sus propios datos (accessors and mutators).

Los DTOs son objetos simples que no deben contener lógica de negocio que requiera pruebas.
Fuente(http://es.wikipedia.org/wiki/Objeto_de_Transferencia_de_Datos_%28DTO%29)

Hasta aqui el que es y creo que esta bastante bien explicado.

Ahora vamos a crear uno, que es la mar de sencillo.
Para mi la explicacion mas sencilla es, una Clase que contiene propiedades que hacen correspondencia a los campos de la base de datos. ahora veremos el ejemplo.

Creando un DTO

'EL DTO
Public Class CLIENTE
   Private _IdCliente
   Public Property IdCliente As Integer
 
   Public Property Nombre As String
     
   Public Sub New()
   End Sub
End Class
'EL FORM
Public Class Form1
    Dim MiLista As New List(Of Clientes)
    Dim id As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        id += 1
        Dim DTOCLIENTES As New Clientes
        DTOCLIENTES.IdCliente = id
        DTOCLIENTES.Nombre = Me.TextBox1.Text
        Me.TextBox1.Text = ""
        MiLista.Add(DTOCLIENTES)
    End Sub

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

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

        Dim Listado = From variable As Clientes In MiLista Where variable.Nombre Like "*" & Me.TextBox2.Text & "*" Select variable.Nombre & " " &
                                                                                                                     variable.IdCliente

        Me.ListBox1.Items.Clear()

        For i As Integer = 0 To Listado.Count - 1
            Me.ListBox1.Items.Add(Listado(i))
        Next
    End Sub
End Class

'EL DTO

Public Class CLIENTE

Private _IdCliente

Public Property IdCliente As Integer

Public Property Nombre As String

Public Sub New()

End Sub

End Class

'EL FORM

Public Class Form1

Dim MiLista As New List(Of Clientes)

Dim id As Integer = 0

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

id += 1

Dim DTOCLIENTES As New Clientes

DTOCLIENTES.IdCliente = id

DTOCLIENTES.Nombre = Me.TextBox1.Text

Me.TextBox1.Text = ""

MiLista.Add(DTOCLIENTES)

End Sub

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

End Sub

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

Dim Listado = From variable As Clientes In MiLista Where variable.Nombre Like "*" & Me.TextBox2.Text & "*" Select variable.Nombre & " " &

variable.IdCliente

Me.ListBox1.Items.Clear()

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

Me.ListBox1.Items.Add(Listado(i))

End Sub

End Class

Hasta aqui, a continuacion lo que debemos hacer es una instancia del objeto, y ya lo podemos rellenar con los datos que nos haga falta.

Un saludo a tod@s, si el post te gustó, Comentalo y o compartelo.