none
error de codigo capa datos vb.net RRS feed

  • Pregunta

  • hola buenas tardes 

    señores programadores si alguien me puede orientar en mi codigo porfavor 

    estoy tratando de mostar un datos segun la consulta sql en cajas de texto

    este el codigo

    capa datos

    como la llamo desde la capa datos   a la capa entidad para mostrar los datos en el formulario 

    Public Function mostrar(Codigo As Integer) As DataRow
    
    
        Dim Conn As New SqlConnection(conexion.Connectionstring)
        Dim Cmd As New SqlCommand
        Dim returnValue As DataRow = Nothing
    
        If (String.IsNullOrEmpty(Codigo)) Then
            Throw New ArgumentNullException("Codigo")
        End If
    
        Try
            Conn.Open()
            Cmd.CommandText = "Select IdEntraVehiculo,Placa,FechaHoraEntrada,Codigo From EntradaVehiculo Where Codigo = @Codigo"
            Cmd.CommandType = CommandType.Text
            Cmd.Connection = Conn
            Cmd.Parameters.Add("@Codigo", SqlDbType.Int).Value = Codigo
            Dim da As New SqlDataAdapter(Cmd)
            Using dt As New DataTable()
    
                da.Fill(dt)
    
                If (dt.Rows.Count > 0) Then
                    ' Nos quedamos con la primera fila u objeto DataRow.
                    '
                    returnValue = dt.Rows(0)
                End If
    
            End Using
    
            ' Devolvemos el objeto DataRow obtenido.
            '
        Catch ex As Exception
            Throw New Exception(ex.Message)
        Finally
            If Conn.State = ConnectionState.Open Then
                Conn.Close()
                Conn.Dispose()
            End If
        End Try
        Return returnValue
    End Function

    me marca error en esta parte 

    lunes, 17 de octubre de 2016 18:37

Respuestas

  • Debes incluir esa función dentro de tu Class. Básicamente el End Class ponlo abajo del todo.

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos

    • Propuesto como respuesta Alberto PoblacionMVP lunes, 17 de octubre de 2016 20:41
    • Marcado como respuesta djnilo lunes, 17 de octubre de 2016 20:56
    lunes, 17 de octubre de 2016 20:34

Todas las respuestas

  • Debes incluir esa función dentro de tu Class. Básicamente el End Class ponlo abajo del todo.

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos

    • Propuesto como respuesta Alberto PoblacionMVP lunes, 17 de octubre de 2016 20:41
    • Marcado como respuesta djnilo lunes, 17 de octubre de 2016 20:56
    lunes, 17 de octubre de 2016 20:34
  • Debes incluir esa función dentro de tu Class. Básicamente el End Class ponlo abajo del todo.

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos

    jajaja gracias que dolor de cabeza pero como la llamaria esta funicon en la capa entidad para mostrar los datos en mi formulario sergio parra
    lunes, 17 de octubre de 2016 20:43
  • Capa Entidad? No entiendo. Puedes explicar un poco mas tu arquitectura?

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos

    lunes, 17 de octubre de 2016 21:33
  • Capa Entidad? No entiendo. Puedes explicar un poco mas tu arquitectura?

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos

    estoy haciendo una aplicacion de estacionamiento de vehiculo la aplicacion la estoy haciendo en capas (3 capas)

    capa datos , capa entidad , capa negocio

    en la capa datos es la mostre el codigo de la busqueda de un vehiculo segun un codigo  

     Public Function mostrar(Codigo As Integer) As DataRow
    
            Dim Conn As New SqlConnection(conexion.Connectionstring)
            Dim Cmd As New SqlCommand
            Dim returnValue As DataRow = Nothing
    
            If (String.IsNullOrEmpty(Codigo)) Then
                Throw New ArgumentNullException("Codigo")
            End If
    
            Try
                Conn.Open()
                Cmd.CommandText = "Select IdEntraVehiculo,Placa,FechaHoraEntrada,Codigo From EntradaVehiculo Where Codigo = @Codigo"
                Cmd.CommandType = CommandType.Text
                Cmd.Connection = Conn
                Cmd.Parameters.Add("@Codigo", SqlDbType.Int).Value = Codigo
                Dim da As New SqlDataAdapter(Cmd)
                Using dt As New DataTable()
    
                    da.Fill(dt)
    
                    If (dt.Rows.Count > 0) Then
                        ' Nos quedamos con la primera fila u objeto DataRow.
                        returnValue = dt.Rows(0)
                    End If
    
                End Using
    
                ' Devolvemos el objeto DataRow obtenido.
                '
            Catch ex As Exception
                Throw New Exception(ex.Message)
            Finally
                If Conn.State = ConnectionState.Open Then
                    Conn.Close()
                    Conn.Dispose()
                End If
            End Try
            Return returnValue
        End Function
     

    en la capa entidad necesito llamar a esta funcion mostrar

    entoces yo trataba de llamarla de esta forma 

        Public Function Mostrar(objmostrar As VregistroEntrada) As DataRow
            Dim OMostrar As New DaoInsertTicker
    
            Dim Result As Integer = 0
            Try
                Result = Convert.ToInt32(OMostrar.mostrar(objmostrar))
            Catch ex As Exception
                Throw New Exception(ex.Message)
            End Try
            Return Result
        End Function

    pero me marca el error que no se puede convertir a integer esta linea

    Result = Convert.ToInt32(OMostrar.mostrar(objmostrar))

    para luego mostarlo en el formulario  la busqueda 

    lunes, 17 de octubre de 2016 21:53
  • hola. La capa entidad te refiere a capa de presentación? Lo de que no se puede convertir a integer en esa linea, te recomiendo pongas ahi un punto de ruptura y pulsando F11 entres en la ejecución del método  mostrar(). Ten en cuenta que si dicho método devuelve un null o una cadena vacia o cualquier otro dato NO susceptible de convertirse a entero, te producira esa excepción

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos

    martes, 18 de octubre de 2016 6:12
  • analizando la firma de ese método mostrar

    Public Function mostrar(Codigo As Integer) As DataRow
           

    lo que estas devolviendo es un DataRow que no puede convertirse a entero.


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos

    martes, 18 de octubre de 2016 6:14
  • analizando la firma de ese método mostrar

    Public Function mostrar(Codigo As Integer) As DataRow
           

    lo que estas devolviendo es un DataRow que no puede convertirse a entero.


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos

    entoces como podria solucionarlo esto por fa lo quiero es mostrar la datos sengun la consulta sql  y mostrarlo en cajas de texto nada mas
    martes, 18 de octubre de 2016 19:20