Arquitectura de 3 capas en vb.net

[igonfil]

Hola a tod@s. Tengo una duda sobre la arquitectura de 3 capas. Estoy intentado entender correctamente esta arquitectura y para ello he creado una clase que la he llamado DGridDL en esta clase creo la conexion a un bd ahora lo que me sucede es que no se como mostrar los datos de la tabla en mi DataGrid deberia crear otra clase (capa Negocio) en la cual se accede a la clase DataGridDL la teoria la tengo pero la practica no se como hacerlo, si alguien me puede ayudar para enterderlo se lo agradecería. Muchas gracias

Código PHP:

  Public Class DataGridDL 
    Dim con As New SqlConnection 
    Dim dSet As New DataSet 
    Dim sqltext As String 
    Dim dTable As DataTable 
    Dim dAdapter As SqlDataAdapter 
    Dim dReader As SqlDataReader 
    Dim lector As SqlDataReader 
    Sub abrir() 
        con = New SqlConnection(ConfigurationManager.ConnectionStrings("CadenaConexion").ConnectionString) 
        con.Open() ABRO LA CONEXION         
    End Sub 
    Public Function leer() As SqlDataAdapter 
        abrir() 
        Dim cmd As New SqlCommand("productos", con) 
        cmd.Connection = con 
        dAdapter.SelectCommand = cmd 
        Dim datos As Data.DataTable = New Data.DataTable 
        dAdapter.Fill(datos) 
        Return dAdapter 
    End Function 
End Class  
   

[galletica12]

Yo he estado haciendo algo de programacion con capas, el codigo es un poco mas corto por que en otras capas declaras tus metodos y clases y luego solo las llamas para poder utilizarlas.

[HaverRamirez]

Algo asi...

Código vb:

CapaD
 
Public Funcion ListarEmpleados() AS List(OF EntidadesEmpleados.Empleado)
''aqui va la conexion y los query que ejecutas
 
despues lleno un dataset y lo recorro agregandolos a un arrego o la capa de entidades.
dim Empleado as new CapaEntidades.Empleado
Dim LEmpleado as new List(of CapaEntidades.Empleado)
for each dtr as datarow in ds.tables(0).rows
Empleado = new capaentidades.empleado
Empleado.codigo = dtr("Codigo")
LEmpleado.add(Empleado)
return LEmpleado
next
 
''Capa Entidades
 
Public Class Empleado
private _Empleado as string
public property Empleado as string
get
return _empleado
end get
set (Byval value as string) 
if not string.isnullorempty(value) then
_empleado = value
end if
end get
end property
 
Capa Logicas
 
Public Class LogicEmpleado as list(of CapaEntidades.Empleados)
public Funcion GetEmpleados
dim CDatos as new capaDatos.Empleados
return cdatos.ListarEmpleados
 
''algo asi
 

[giovani_loera]

Lo que yo ago es tener 5 capas principales para un proyecto:

Common: En esta capa tengo mi clases comunes q utilizan todas demas clases, igualmente tengo las enumeracion. Por ejmplo clase 'Perro','Gato' y las enumeraciones enumCanino,enumFelino.

DataAccess: En esta capa se encarga especialmente para conectarse a la DB, realiza insert,update, query,etc. Por ejemplo para agregar un registro nuevo en la tabla de Perro, ago mas o menos asi:

Código C#:

public bool InsertPerro(Perro perro)
{
SqlCommand command=new SqlCommand("SP_InsertPerro",objConexion);
command.CommandType=CommandType.StoreProcedure;
commad.Parameter.Add(new Parameter("Nombre",perro.Nombre));
//....y asi todos las propiedades de la clase perro , cada propiedad de la clase perro corresponde a un campo de la Tabla Perro.
 
objConexion.Open();
if(command.ExcueteNonQuery()==1)
     return true;
  else
    return false;
}
 

Business: es la conexion entre la Capa DataAccess y la Capa UI (presentacion) y/o Provider (Proveedor de Datos). Pero a la vez, en esta capa valido los datos antes de mandarlo a la Capa d DataAccess o a la Capa de UI.

Provider: En esta capa, guardo un tipo de lista de los registros de la DB, es decir si quiera desplegar una lista de perro en un ComboBox, entonces al iniciar la aplicacion realizo una consulta donde me traigo todos los registros de la tabla de perros y guardarla como una lista observable de Perros (public Observable<Perros> lstPerros;) y cuando necesite desplegarlos no tengo q ir a la DB a consultar xq ya los tengo en memoria y sera mas rapido y asi no saturo el servidor.

GUI o UI: Es la capa de Presentacion, donde en ella lo unico q ago es desplegar datos y realizar un poco de logica.


Teniendo esto puedes tener varias capas de presentacion por ejemplo.
-WindowsForms
-WPF
-ASP
-Silverlight
-...

Y no importa q presentacion uses, solo cambiara la forma de desplegar los datos xq las reglas de negocio seran las mismas.


Espero q te aya servido
Creo q escribi demaciado

[HaverRamirez]

Ummm, muy interesante giovani_loera, mas que todo, me gustaria ponerle las garras a tu clase de Common y la Observable...pero si se puede a todo, jajajaja...

[galletica12]

Yo la clase conexion las hago asi:

Código HTML:

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.ComponentModel;
using System.Data;
using System.Data.SqlClient;

namespace Conexion
{
    public class Conexion
    {
        public SqlConnection conexionBD()
        {

            SqlConnection cn = new SqlConnection("Data Source =" +
            "(Local)\\SQLEXPRESS;" +
            "Initial Catalog = bodega;" +
            "Integrated security = True");
            cn.Open();
            return cn;
            
        }
    }
}

Esta es mi capa de datos donde llamo mis procedimientos almacenados:

Código PHP:

  using System;
using System.Collections.Generic;
using System.Text;
using System.Data;
using Microsoft.ApplicationBlocks.Data;
using System.IO;
using System.Data.SqlClient;


namespace Datos
{
    public class Estado
    {
        Conexion.Conexion cn = new Conexion.Conexion();

        public int MantenimientoEstado(Entidad.Estado objEstado)
        {
            return SqlHelper.ExecuteNonQuery(cn.conexionBD(),
            "pa_InsUpdEstado",
            objEstado.IdEstado,
            objEstado.Nombre);

        }
}  
   

Esta es mi capa Entidad para devolverme los valores de cada tabla:

Código:

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace Entidad
{
    public class Cliente
    {
        int _IdCliente;
        public int IdCliente
        {
            get { return _IdCliente; }
            set { _IdCliente = value; }
        }
}

y esta de Negocio donde llama los metodos de mi capa datos

Código HTML:

using System;
using System.Data;

namespace Negocio
{
    public class Ciudad
    {
        Datos.Ciudad datos = new Datos.Ciudad();

        public bool MantenimientoCiudad(Entidad.Ciudad objCiudad)
        {
            int resultado = datos.MantenimientoCiudad(objCiudad);
            if (resultado == 0)
                return false;
            else
                return true;
        }
}

Esta de funciones donde tengo algunos metodos:

Código HTML:

using System;
using System.Data;
using System.Drawing;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Windows.Forms;

namespace Funciones
{
    public class Utiles
    {

        public void Mensaje(string mensaje, Page pagina)
        {
            pagina.Response.Write("<script language=javascript>alert('" + mensaje + "');</script>");
        }
        public void CargarGrid(GridView grilla, DataSet ds)
        {
            grilla.DataSource = ds;
            grilla.DataBind();
            ds.Dispose();
        }
        public string EstaMarcado(System.Windows.Forms.CheckBox chk, string valorTrue, string valorFalse)
        {
            if (chk.Checked)
                return valorTrue;
            else
                return valorFalse;
        }
        public void LlenarCombo(ComboBox cbo, DataView dv, String texto, String valor)
        {
            try
            {
                cbo.DisplayMember = texto;
                cbo.ValueMember = valor;
                cbo.DataSource = dv;
            }
            catch (Exception ex)
            {
                MessageBox.Show("Error al poner datos en Combo" +
                        ex.Message, "Error", MessageBoxButtons.OK,
                        MessageBoxIcon.Error);
            }
        }
}

[igonfil]

Ante todo muchas gracias por los aportes que habeis realizado sobre este tema. Ahora tengo las siguientes clases

Código PHP:

  Public Class DataGridBL 
    Private Shared m_current As New DataGridBL 
    Dim dl As New DataGridDL 
    Public Shared ReadOnly Property Current() As DataGridBL 
        Get 
            Return m_current 
        End Get 
    End Property 
    Private Sub New() 
 
    End Sub 
    Public Function getDataGrid(ByVal ProductoID As String) As DataGridEEList 
        Return Current.dl.DataGridEntidad(ProductoID) 
    End Function 
End Class  
   

Y en esta última clase (la capa datos) es donde me he quedado estancado ¿cómo podría continuar? según esta estructura que he seguido igual me estoy liando demasiado.
Muchas gracias.

Código PHP:

  Public Class DataGridEE 
    Private m_productsID As String 
    Private m_productsName As String 
    Private m_UnitPrice As Integer 
    Private m_QtyAvailable As Integer 
    Sub New() 
    End Sub 
    Property ProductsID As String 
        Get 
            Return m_productsID 
        End Get 
        Set(ByVal value As String) 
            m_productsID = value 
        End Set 
    End Property 
    Property ProdcutsName As String 
        Get 
            Return m_productsName 
        End Get 
        Set(ByVal value As String) 
            m_productsName = value 
        End Set 
    End Property 
    Property UnitPrice As Integer 
        Get 
            Return m_UnitPrice 
        End Get 
        Set(ByVal value As Integer) 
            m_UnitPrice = value 
        End Set 
    End Property 
    Property QtyAvailable As Integer 
        Get 
            Return m_QtyAvailable 
        End Get 
        Set(ByVal value As Integer) 
            m_QtyAvailable = value 
        End Set 
    End Property 
    Public Sub New(ByVal pProductsID As String, 
                    ByVal pProdcutsName As String, 
                    ByVal pUnitPrice As Integer, 
                    ByVal pQtyAvailable As Integer) 
        m_productsID = pProductsID 
        m_productsName = pProdcutsName 
        m_UnitPrice = pUnitPrice 
        m_QtyAvailable = pQtyAvailable 
    End Sub 
End Class 
Public Class DataGridEEList 
    Inherits SortableList(Of DataGridEE) 
End Class  
   

Código PHP:

  Imports System.Data.SqlClient 
Imports System.Data 
Friend Class DataGridDL 
    Dim con As New SqlConnection 
    Sub abrir() 
        con = New SqlConnection(ConfigurationManager.ConnectionStrings("CadenaConexion").ConnectionString) 
        con.Open() 
    End Sub 
    Public Function DataGridEntidad(ByVal productoId As String) As DataGridEEList 
        abrir() 
        
        Dim ret As DataGridEEList = New DataGridEEList 
        Dim oDataGridEE As DataGridEE 
        Dim param As New SqlParameter 
        Using bd As New SqlConnection(ConfigurationManager.ConnectionStrings("cadenaConexion").ConnectionString) 
            Using cmd As New SqlCommand("productos", bd) 
 
                Return ret 
            End Using 
 
        End Using 
        Return ret 
    End Function 
End Class  
   

[HaverRamirez]

Aqui te dejo un ejemplo sencillo, tienes que implementar tu clase de mantenimiento porque yo solo coloque los datos crudos, en lugar de tendrias que recorrer el dataset, y fijate en las referencias de los proyectos esta hecho con 2010, pero las clases si las puedes importar o agregar a un proyecto y solo copias el codigo del form1 que es una simple llamada a la clase de logicas...
me cuentas...

http://www.mediafire.com/?f4fw8vsfa5ufs70

[igonfil]

Nada que no hay forma de aclararme

Código PHP:

  Imports System.Data.SqlClient 
Imports System.Data 
Friend Class DataGridDL 
    Dim con As New SqlConnection 
    Sub abrir() 
        con = New SqlConnection(ConfigurationManager.ConnectionStrings("CadenaConexion").ConnectionString) 
        con.Open() 
    End Sub 
    Public Function DataGridEntidad(ByVal productoId As String) As DataGridEEList 
        abrir() 
        
        Dim ret As DataGridEEList = New DataGridEEList 
        Dim oDataGridEE As DataGridEE 
        Dim param As New SqlParameter 
        Using bd As New SqlConnection(ConfigurationManager.ConnectionStrings("cadenaConexion").ConnectionString) 
            Using cmd As New SqlCommand("productos", bd) 
                Dim dr As IDataReader = cmd 
                With dr 
                    While dr.Read 
                        oDataGridEE.ProductsID = dr.Item(1) 
                        ret.add(oDataGridEE) 
                    End While 
 
                End With 
 
                Return ret 
            End Using 
 
        End Using 
 
    End Function 
End Class  
   

Me dice:

Advertencia 1 Se pueden producir errores en tiempo de ejecución al convertir 'System.Data.SqlClient.SqlCommand' en 'System.Data.IDataReader'. C:\Users\Ivan\documents\visual studio 2010\Projects\PruebaDataGrid\PruebaDataGrid\DLayer \DataGridDL.vb 17 41 PruebaDataGrid

Advertencia 2 La variable 'oDataGridEE' se utiliza antes de que se le haya asignado un valor. Podría darse una excepción de referencia nula en tiempo de ejecución. C:\Users\Ivan\documents\visual studio 2010\Projects\PruebaDataGrid\PruebaDataGrid\DLayer \DataGridDL.vb 20 25 PruebaDataGrid

[HaverRamirez]

bueno revisalo,

ahora con tu codigo, prueba esto

Dim dr As IDataReader = cmd.executereader
With dr
While dr.Read
oDataGridEE.ProductsID = dr.Item(1)
ret.add(oDataGridEE)
End While

End With

oDataGridEE o le asignas un nothing o un new
oDataGridEE = nothing
oDataGridEE = new
eso es en si lo que te dice

[igonfil]

En esta ocasion me da el siguiente error. El using serviria como abrir y cerrar conexion ¿no?

ExecuteReader requiere una Connection abierta y disponible. El estado actual de la conexión es cerrada.

Código PHP:

  Public Function DataGridEntidad(ByVal productoId As String) As DataGridEEList 
        abrir() 
        
        Dim ret As DataGridEEList = New DataGridEEList 
        Dim oDataGridEE As New DataGridEE 
        Dim param As New SqlParameter 
        Using bd As New SqlConnection(ConfigurationManager.ConnectionStrings("cadenaConexion").ConnectionString) 
            Using cmd As New SqlCommand("productos", bd) 
                Dim dr As IDataReader = cmd.ExecuteReader 
                With dr 
                    While dr.Read 
                        oDataGridEE.ProductsID = dr.Item(1) 
                        ret.add(oDataGridEE) 
                    End While 
 
                End With 
 
 
                Return ret 
            End Using 
 
        End Using 
 
    End Function  
   

[HaverRamirez]

Nop, el using solo sirve o creo que, para utilizar y liberar el recurso tienes que especificar un open de la conexion,

[igonfil]

Casi casi lo tengo lo único que me ha surgido otro error en ret.add(oDataGridEE) el cual es

No se puede implementar el método o la operación.

Código PHP:

   Public Function DataGridEntidad(ByVal productoId As String) As DataGridEEList 
        abrir() 
        
        Dim ret As DataGridEEList = New DataGridEEList 
        Dim oDataGridEE As DataGridEE 
        Using bd As New SqlConnection(ConfigurationManager.ConnectionStrings("cadenaConexion").ConnectionString) 
            Using cmd As New SqlCommand("productos", bd) 
                bd.Open() 
                Dim dr As IDataReader = cmd.ExecuteReader 
                With dr 
                    While dr.Read 
 
                        oDataGridEE = New DataGridEE 
                        oDataGridEE.ProductsID = dr.Item(0) 
                        oDataGridEE.ProdcutsName = dr.Item(1) 
                        ret.add(oDataGridEE) 
                    End While 
 
                End With 
 
 
                Return ret 
            End Using 
 
        End Using 
 
    End Function  
   

[HaverRamirez]

Pero DataGridEE es una entidad que tiene sus propiedades entonces para poder hacer una LISTA tienes que declarar asi

dim LDataGridEE as new List(OF DataGridEE)

y ahi ya te funciona el .add

[igonfil]

Bueno ya conseguí que funcionara de la manera anterior, pero ahora he realizado unas modificiones para poder comprender mejor esta arquitectura. Y muchísimas gracias por vuestra ayuda y espero que como a mi esto ayude a resolver estas dudas a mas gente. En esta ocasión tengo las siguientes capas:
CapaEE:

Código PHP:

  Public Class CapaEE 
 
    Private m_productsID As String 
    Private m_productsName As String 
    Private m_UnitPrice As Integer 
    Private m_QtyAvailable As Integer 
    Sub New() 
    End Sub 
    Property ProductsID As String 
        Get 
            Return m_productsID 
        End Get 
        Set(ByVal value As String) 
            m_productsID = value 
        End Set 
    End Property 
    Property ProdcutsName As String 
        Get 
            Return m_productsName 
        End Get 
        Set(ByVal value As String) 
            m_productsName = value 
        End Set 
    End Property 
    Property UnitPrice As Integer 
        Get 
            Return m_UnitPrice 
        End Get 
        Set(ByVal value As Integer) 
            m_UnitPrice = value 
        End Set 
    End Property 
    Property QtyAvailable As Integer 
        Get 
            Return m_QtyAvailable 
        End Get 
        Set(ByVal value As Integer) 
            m_QtyAvailable = value 
        End Set 
    End Property 
   
    Sub add(ByVal oCapaEE As CapaEE) 
        Throw New NotImplementedException 
    End Sub 
 
 
End Class  
   

CapaDL:

Código PHP:

  Imports System.Data.SqlClient 
Imports System.Data 
Friend Class CapaDL 
    Dim con As New SqlConnection 
    Sub abrir() 
        con = New SqlConnection(ConfigurationManager.ConnectionStrings("CadenaConexion").ConnectionString) 
        con.Open() 
    End Sub 
    Public Function CapaEntidad(ByVal productoId As String) As CapaEE 
        abrir() 
 
        Dim ret As CapaEE = New CapaEE 
 
               Using bd As New SqlConnection(ConfigurationManager.ConnectionStrings("cadenaConexion").ConnectionString) 
            Using cmd As New SqlCommand("Productos", bd) 
                bd.Open() 
                Dim dr As IDataReader = cmd.ExecuteReader 
                With dr 
                    While dr.Read 
                        ret.ProductsID = .Item(0).ToString.Trim 
 
                                          End While 
                End With 
            End Using 
        End Using 
        Return ret 
    End Function 
End Class  
   

CapaBL:

Código PHP:

  Public Class CapaBL 
 
    Private Shared m_current As New CapaBL 
    Dim dl As New CapaDL 
    Public Shared ReadOnly Property Current() As CapaBL 
        Get 
            Return m_current 
        End Get 
    End Property 
    Private Sub New() 
 
    End Sub 
    Public Function getCapa(ByVal ProductoID As String) As CapaEE 
        Return Current.dl.CapaEntidad(ProductoID) 
    End Function 
End Class  
   

CapaVista

Código PHP:

   Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
        Dim oCapa As New CapaEE 
 
        oCapa = CapaBL.Current.getCapa("P001") 
        LblID.Text = oCapa.ProductsID 
 
    End Sub  
   

y ademas tengo el siguiente procedimiento almacenado

Código PHP:

  USE [Prueba] 
GO 
/****** Object:  StoredProcedure [dbo].[Ver_Productos]    Script Date: 07/28/2011 18:42:04 ******/ 
SET ANSI_NULLS ON 
GO 
SET QUOTED_IDENTIFIER ON 
GO 
ALTER PROCEDURE [dbo].[Ver_Productos] 
    @ProductID varchar     
AS 
   Select * from Products where ProductID=@ProductID order by ProductID desc;  
   

En esta ocasión me muestra en el dr el siguiente error (se el motivo de este error pero no se como adjuntar este parametro desde la capa correspondiente)

Procedure or function 'Ver_Productos' expects parameter '@ProductID', which was not supplied.

[HaverRamirez]

Tienes que enviar entidades a traves de las capas tanto de ida a la UI como de la UI a la BD entonces ya en la BD haces las inversa
no me acuerdo mucho de la sintaxis de los parametros pero seria algo asi

public funcion GetClientByID(Byval EEClient as Entidad.Cliente)

SQLCmd.Parameters.AddWithValue("ID",EEClient.ID)

[igonfil]

Muchas gracias, ya he comprendido el funcionamiento. Aquí les paso el resultado.

Código PHP:

  Imports System.Data.SqlClient 
Imports System.Data 
Friend Class CapaDL 
    Dim con As New SqlConnection 
    Sub abrir() 
        con = New SqlConnection(ConfigurationManager.ConnectionStrings("CadenaConexion").ConnectionString) 
        con.Open() 
    End Sub 
    Public Function CapaEntidad(ByVal productoId As String) As CapaEE 
        abrir() 
 
        Dim ret As CapaEE = New CapaEE 
         
         
        'Dim oCapaEE As CapaEE 
        Using bd As New SqlConnection(ConfigurationManager.ConnectionStrings("cadenaConexion").ConnectionString) 
            Using cmd As New SqlCommand("Ver_Productos", bd) 
                cmd.CommandType = CommandType.StoredProcedure 
                cmd.Parameters.AddWithValue("@ProductID", productoId) 
                bd.Open() 
                Dim dr As IDataReader = cmd.ExecuteReader 
                With dr 
                    While dr.Read() 
                        ret.ProductsID = .Item(0).ToString.Trim 
                        ret.ProdcutsName = .Item(1).ToString.Trim 
                        'oCapaEE = New CapaEE 
                        'oCapaEE.ProductsID = dr.Item(0) 
                        'oCapaEE.ProdcutsName = dr.Item(1) 
                        ret.add(oCapaEE) 
                    End While 
                End With 
            End Using 
        End Using 
        Return ret 
    End Function 
End Class  
   

[igonfil]

Bueno me ha surgido otra duda y esta es al rellenar un DataGrid con la arquitectura anteriormente usada.
El codigo que tengo es el siguiente:

Código PHP:

  Public Class DataGridEE 
    Private m_productsID As String 
    Private m_productsName As String 
    Private m_UnitPrice As Integer 
    Private m_QtyAvailable As Integer 
    Sub New() 
    End Sub 
    Property ProductsID As String 
        Get 
            Return m_productsID 
        End Get 
        Set(ByVal value As String) 
            m_productsID = value 
        End Set 
    End Property 
    Property ProdcutsName As String 
        Get 
            Return m_productsName 
        End Get 
        Set(ByVal value As String) 
            m_productsName = value 
        End Set 
    End Property 
    Property UnitPrice As Integer 
        Get 
            Return m_UnitPrice 
        End Get 
        Set(ByVal value As Integer) 
            m_UnitPrice = value 
        End Set 
    End Property 
    Property QtyAvailable As Integer 
        Get 
            Return m_QtyAvailable 
        End Get 
        Set(ByVal value As Integer) 
            m_QtyAvailable = value 
        End Set 
    End Property 
    Public Sub New(ByVal pProductsID As String, 
                    ByVal pProdcutsName As String, 
                    ByVal pUnitPrice As Integer, 
                    ByVal pQtyAvailable As Integer) 
        m_productsID = pProductsID 
        m_productsName = pProdcutsName 
        m_UnitPrice = pUnitPrice 
        m_QtyAvailable = pQtyAvailable 
    End Sub 
End Class 
Public Class DataGridEEList 
    Inherits SortableList(Of DataGridEE) 
    Dim LDataGridEE As New List(Of DataGridEE) 
 
 
    Sub add(ByVal oDataGridEE As DataGridEE) 
        Throw New NotImplementedException 
    End Sub 
 
End Class  
   

Código PHP:

  Public Class DataGridBL 
    Private Shared m_current As New DataGridBL 
    Dim dl As New DataGridDL 
    Public Shared ReadOnly Property Current() As DataGridBL 
        Get 
            Return m_current 
        End Get 
    End Property 
    Private Sub New() 
 
    End Sub 
    Public Function getDataGrid(ByVal ProductoID As String) As DataGridEEList 
        Return Current.dl.getCapaEntidad(ProductoID) 
    End Function 
End Class  
   

Código PHP:

  Imports System.Data.SqlClient 
Imports System.Data 
Friend Class DataGridDL 
    Dim con As New SqlConnection 
    Sub abrir() 
        con = New SqlConnection(ConfigurationManager.ConnectionStrings("CadenaConexion").ConnectionString) 
        con.Open() 
    End Sub 
    Public Function getCapaEntidad(ByVal productoId As String) As DataGridEEList 
        abrir() 
 
        Dim ret As DataGridEEList = New DataGridEEList 
        Dim oDataGridEE As DataGridEE 
 
        Dim oCapaEE As CapaEE 
        Using bd As New SqlConnection(ConfigurationManager.ConnectionStrings("cadenaConexion").ConnectionString) 
            Using cmd As New SqlCommand("Ver_Productos", bd) 
                cmd.CommandType = CommandType.StoredProcedure 
                cmd.Parameters.AddWithValue("@ProductID", productoId) 
                bd.Open() 
                Dim dr As IDataReader = cmd.ExecuteReader 
                With dr 
                    While dr.Read() 
 
                        oDataGridEE = New DataGridEE() 
                        oDataGridEE.ProductsID = dr.Item(0) 
                        oDataGridEE.ProdcutsName = dr.Item(1) 
                        ret.add(oDataGridEE) 
                    End While 
                End With 
            End Using 
        End Using 
        Return ret 
    End Function 
 
    Sub DataGridEntidad(ByVal p1 As String) 
        Throw New NotImplementedException 
    End Sub 
 
End Class  
   

Código PHP:

          sqltext = "select c_idprueba, c_nombre from T_prueba" 
        dAdapter = New SqlDataAdapter(sqltext, con) 
        dAdapter.Fill(dSet, "Prueba") 
        
        MyDataGrid.DataSource = dSet.Tables(0) 
         
        MyDataGrid.DataSource = dSet 
        MyDataGrid.DataBind() 
        con.Close() 
 
        Dim da As New SqlDataAdapter 
        Dim objDs As New Data.DataSet 
       
        Dim oDataGridList As New DataGridEEList 
        oDataGridList = DataGridBL.Current.getDataGrid("P001") 
        
        Me.MyDataGrid2.DataSource = oDataGridList 
        Me.MyDataGrid2.DataBind() 
        Me.MyDataGrid2.Focus() 
 
    End Sub     
End Class  
   

La clase me recoge datos pero luego en me salta la siguiente exception al pasar por ret.add(oDataGridEE)

No se puede implementar el método o la operación.

¿Cual es mi error? Muchas gracias

[igonfil]

¿Nadie sabe la razón de este error? Gracias

[igonfil]

ahora me salta otro error diferente:

Código PHP:

   
Imports System.Data.SqlClient 
Imports PruebaDataGrid.Entities 
Imports PruebaDataGrid.BusinessLayer 
Imports System.Data 
Namespace DataLayer 
    Public Class DataGridDL 
        Dim con As New SqlConnection 
        Sub abrir() 
            con = New SqlConnection(ConfigurationManager.ConnectionStrings("CadenaConexion").ConnectionString) 
            con.Open() 
        End Sub 
        Public Function getDataGridEntidad(ByVal productoId As String) As DataGridEEList 
            abrir() 
 
            Dim ret As DataGridEEList = New DataGridEEList 
            Dim oDataGridEE As DataGridEE 
 
 
            Using bd As New SqlConnection(ConfigurationManager.ConnectionStrings("cadenaConexion").ConnectionString) 
                Using cmd As New SqlCommand("Ver_Productos", bd) 
                    cmd.CommandType = CommandType.StoredProcedure 
                    cmd.Parameters.AddWithValue("@ProductID", productoId) 
                    bd.Open() 
                    Dim dr As IDataReader = cmd.ExecuteReader 
                    With dr 
                        While dr.Read() 
 
                            oDataGridEE = New DataGridEE() 
                            oDataGridEE.ProductsID = dr.Item(0) 
                            oDataGridEE.ProdcutsName = dr.Item(1) 
 
                            ret.add(oDataGridEE) 
                        End While 
                    End With 
                End Using 
            End Using 
            Return ret 
        End Function 
 
 
 
    End Class 
End Namespace  
   

en ret.add(oDataGridEE):

Error 1 'add' no es un miembro de 'PruebaDataGrid.Entities.DataGridEEList'.

[laguzzigerardo]

Capaz es un poco tarde pero te paso un link sobre programación en capas que te puede interesar. Es en C#, pero la lógica es la misma.

http://www.orientadoanet.com/2011/07/programacion-en-capas-introduccion.html

[igonfil]

Muchas gracias laguzzigerardo y nunca es tarde si la dicha es buena.
Eso si estoy totalmente estancado con el tema del datagrid.

[giovani_loera]

El error te sale, por que el estas creando un objeto de tipo 'PruebaDataGrid.Entities.DataGridEEList' y no una lista de objetos.

Para eso ay que crear una lista:

Código VB:

Dim lstRet as New List(Of PruebaDataGrid.Entities.DataGridEE)
 

Para que asi puedas agregar objetos de tipo 'DataGridEE' a la lista lstRet (que asu vez es una lista de DataGridEE).


Y como resultado regresas..

Código VB:

Public Function getDataGridEntidad(ByVal productoId As String) As List(Of PruebaDataGrid.Entities.DataGridEE)
 

Espero que te sirva

Nota: No es recomendable tener una clase para una lista de objeta, pero si puedes tener una clase q dentro de ella exista un atributo de tipo de lista.

Y si vas a utilizar asi tu programacion, debe aver un metodo 'Add' para agregar un objeto y un atributo en la clase de tipo list.

asi...

Código VB:

public class ClassList
public lst as List(Of PruebaDataGrid.Entities.DataGridEE).
 
public sub Add(ByVal obj as PruebaDataGrid.Entities.DataGridEE)
lst.add(obj) 
End Sub
 
'Igual sus metodos para limpiar,regresar y borrar un obj de la lista