CÃ³digo ejemplo para mostrar informaciÃ³n en un Repeater desde BD

Revision: 22130

at January 4, 2010 04:15 by JoseKar

Initial Code

Dim adaptadorNoticias As New DSContenidosTableAdapters.NoticiasTableAdapter
        Dim noticias As New DSContenidos.NoticiasDataTable
        Dim conversion As New ContenidosWeb
        Dim tablaDatos As New DataTable("Articulos")
        Dim datos As New DataSet()
        Dim fila As DataRow

        ' Inicializo la estructura que mostrarÃ¡ las noticias en las pÃ¡ginas
        tablaDatos.Columns.Add(New DataColumn("Fecha"))
        tablaDatos.Columns.Add(New DataColumn("Titulo"))
        tablaDatos.Columns.Add(New DataColumn("Id"))
        datos.Tables.Add(tablaDatos)

        ' Obtengo las noticias a incluir en el tablÃ³n de anuncios
        noticias = adaptadorNoticias.ListadoNoticiasPorSeccion(205)

        ' Las incluyo en el DataSet
        For i As Integer = 0 To noticias.Count - 1
            fila = datos.Tables("Articulos").NewRow
            fila("Id") = noticias.Item(i).id
            fila("Titulo") = conversion.ConversionAHTML(noticias.Item(i).Titulo)
            fila("Fecha") = noticias.Item(i).FechaPublicacion.Day & "/" & noticias.Item(i).FechaPublicacion.Month & "/" & _
                noticias.Item(i).FechaPublicacion.Year
            datos.Tables("Articulos").Rows.Add(fila)
        Next

        ' Vinculo el DataSet con el objeto Repeater de la pÃ¡gina
        Repeticion.DataSource = tablaDatos
        Me.DataBind()

        adaptadorNoticias.Dispose()

Initial URL

Initial Description

Initial Title

CÃ³digo ejemplo para mostrar informaciÃ³n en un Repeater desde BD

Initial Tags

Initial Language

VB.NET

Choose a language for easy browsing: