Ver Mensaje Individual
  #9 (permalink)  
Antiguo 26/07/2011, 12:47
igonfil
 
Fecha de Ingreso: junio-2008
Mensajes: 250
Antigüedad: 18 años, 4 meses
Puntos: 1
Respuesta: Arquitectura de 3 capas en vb.net

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:
Cita:
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
Cita:
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