Advanced Search

Return to Snippet

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