none
cargar un datagridview con el ultimo registro guardado en sql RRS feed

  • Pregunta

  • buenas tardes amigos!! recurro a uds para ver si pueden orientarme a cargar un datagridview con el ultimo registro guardado en sql.tengo el siguiente procedimiento almacenado:

     if OBJECT_ID ('Ultimo_Atleta_x_Competencia') IS not null
    drop proc Ultimo_Atleta_x_Competencia
    go

    create proc Ultimo_Atleta_x_Competencia
    as
    begin
     SELECT
      dbo.Atleta_X_Competencia.Id_Atleta_X_Competencia,
     dbo.Atleta_X_Competencia.Id_Atleta,
     dbo.Atleta.Apellido_Atleta, dbo.Atleta.Dorsal,
      dbo.Atleta_X_Competencia.Id_Competencia,
      dbo.Competencia.Nombre_Competencia,
      dbo.Competencia.Hora_Inicio,
       dbo.Atleta_X_Competencia.Id_Resultados_X_Competencia,
        dbo.Resultados_X_Competencia.Posicion,
        dbo.Atleta_X_Competencia.Id_Resultados_X_Atleta,
        dbo.Resultados_X_Atleta.Descripcion, dbo.Resultados_X_Atleta.Valor

     FROM Atleta
     INNER JOIN dbo.Atleta_X_Competencia
    ON dbo.Atleta.Id_Atleta = dbo.Atleta_X_Competencia.Id_Atleta
     INNER JOIN dbo.Resultados_X_Atleta
      ON dbo.Atleta_X_Competencia.Id_Resultados_X_Atleta = dbo.Resultados_X_Atleta.Id_Resultados_X_Atleta
      INNER JOIN  dbo.Resultados_X_Competencia
      ON dbo.Atleta_X_Competencia.Id_Resultados_X_Competencia = dbo.Resultados_X_Competencia.Id_Resultados_X_Competencia
      INNER JOIN dbo.Competencia
      ON dbo.Resultados_X_Competencia.Id_Competencia = dbo.Competencia.Id_Competencia
                         
    WHERE Atleta_X_Competencia.Id_Competencia=(SELECT MAX(Id_Competencia) FROM Competencia)
     end
           go

    En la capa de datos tengo:

    Dim objcon As New conexion
        Dim cn As SqlConnection
        Dim da As SqlDataAdapter
        Dim cmd As SqlCommand

      Public Function Ultimo_Atleta_x_Competencia() As DataSet
            Dim ds As New DataSet
            cn = objcon.Conectar
            da = New SqlDataAdapter("Ultimo_Atleta_x_Competencia", cn)
            da.Fill(ds, "Ultima Atleta por Competencia")
            Return ds
            ds.Dispose()
            da.Dispose()
            cn.Dispose()
        End Function

    En la capa de negocio tengo:

    Dim objcompetencia As New DAOAtletas_x_Competencia

     Public Function Ultimo_Atleta_x_Competencia() As DataSet
            Return objcompetencia.Ultimo_Atleta_x_Competencia
        End Function

    En la capa entidad tengo:


        Private _Id_atleta_x_competencia As Integer
        Public Property Id_atleta_x_competencia() As Integer
            Get
                Return _Id_atleta_x_competencia
            End Get
            Set(value As Integer)
                _Id_atleta_x_competencia = value
            End Set
        End Property

       

        Private _id_competencia As Integer
        Public Property id_competencia() As Integer
            Get
                Return _id_competencia
            End Get
            Set(value As Integer)
                _id_competencia = value
            End Set
        End Property

        Private _id_atleta As Integer
        Public Property id_atleta() As Integer
            Get
                Return _id_atleta
            End Get
            Set(value As Integer)
                _id_atleta = value
            End Set
        End Property

        Private _id_resultado_atleta As Integer
        Public Property id_resultado_atleta() As Integer
            Get
                Return _id_resultado_atleta
            End Get
            Set(value As Integer)
                _id_resultado_atleta = value
            End Set
        End Property

        Private _id_resultado_competencia As Integer
        Public Property id_resultado_competencia() As Integer
            Get
                Return _id_resultado_competencia
            End Get
            Set(value As Integer)
                _id_resultado_competencia = value
            End Set
        End Property

    (Solo los id de las tablas relacionadas)

    En la capa presentacion necesitaria llenar el datagridview:

    Dorsal    Apellido   Club   Descripcion   Valor         Posicion      

    23          Marquez  CAT     Tiempo        02:20:33         1

    .....            ......       ......     ........           ..............         ....

    .....            ......       ......     ........           ..............         ....

    los Id de cada tabla los guardo en textbox en el mismo formulario.

    gracias por su ayuda!!!!!


    valeria heredia

    • Cambiado Enrique M. Montejo miércoles, 3 de mayo de 2017 6:33 Pregunta relacionada con el acceso a datos con SQL Server.
    viernes, 28 de abril de 2017 20:52