Ver Mensaje Individual
  #9 (permalink)  
Antiguo 26/07/2011, 12:47
igonfil
 
Fecha de Ingreso: junio-2008
Mensajes: 250
Antigüedad: 16 años, 6 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