Ver Mensaje Individual
  #20 (permalink)  
Antiguo 10/08/2011, 11:34
igonfil
 
Fecha de Ingreso: junio-2008
Mensajes: 250
Antigüedad: 16 años, 5 meses
Puntos: 1
Respuesta: Arquitectura de 3 capas en vb.net

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):
Cita:
Error 1 'add' no es un miembro de 'PruebaDataGrid.Entities.DataGridEEList'.