Listado 8.19

Uso del DataReapeater en VB.

Private Sub Page_Load(ByVal sender As System.Object, ByVal e _

As System.EventArgs) Handles MyBase.Load

Dim miRdr As System.Data.SqlClient.SqlDataReader

Dim strNombre As String

SqlConnection1.Open()

miRdr = SqlCommand1.ExecuteReader()

Repeater1.DataSource = miRdr

If Not Page.IsPostBack Then

Me.DataBind()

End If

SqlConnection1.Close()

End Sub