Cargar Un Datalist

[mongopicho]

Hola

Estoy comenzando con vb.net y como siempre te encontras con los mismos problemas. Como cargar con datos un sencillo datalist. El codigo que ejecuto es el siguiente, pero no funca y no se bien por que

Dim conStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source=c:\clientes\visual .net\bd1.mdb"
Dim conn As New OleDb.OleDbConnection
Dim d As New OleDb.OleDbCommand
Dim r As OleDb.OleDbDataReader
conn.ConnectionString() = conStr
conn.Open()
d.Connection() = conn
d.CommandText() = "select * from prueba"
r = d.ExecuteReader()
r.Read()
Lista.DataSource = r
Lista.DataBind()


Es el mismo que he visto en otros ejemplos, pero no hay caso, no se si hay que configurar algo en el diseñador, o si hay que aplicarle alguna plantilla.
I don't Know. Somebody help me, please

Bye

[RootK]

Yo haría una funcion que me devuelva el dr (datareader) por si lo vuelvo a necesitar, y lo cargo al datalist.

Ejemplo.

Private Function RetrieveReader () As OleDbDataReader
Dim strSQL As String = "SELECT * FROM prueba"
Dim strConn As String = "Provider=Microsoft.JET.OLEDB.4.0;data source=c:\clientes\visual .net\bd1.mdb"

Dim oConn As New OleDbConnection(strConn)
Dim cmd As New OleDbCommand(strSQL, oConn)
oConn.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection )

Return dr

End Function

Y para llamarlo a mi datalist sería:

Lista.DataSource = RetrieveReader()
Lista.DataBind()

Con ello es mas entendible lo que estás haciendo y si necesitas cargar tu datalist porque estás haciendo algun edit, update, etc solo es cosa de llamar a tu funcion.


Espero te funcione.

Saludos y suerte. . .

[heck0880]

Con esto realizas la coneccion y cargas un dataset:

Public Sub Page_Load(obj As Object, e As Eventargs)
If Not Page.IsPostback then
BindData()
End If
End Sub

Public Sub BindData()

Dim conn as New SqlConnection("Data Source='(local)'; Integrated Security= SSPI; DataBase='Tabla'")

Conn.open()

Dim myDataAdapter As New SqlDataAdapter("SELECT * FROM Tabla ORDER BY ID ASC",Conn)

Dim DS As New DataSet()

myDataAdapter.Fill(DS,"Tabla")

Datalist3.Datasource = DS
Datalist3.DataBind()
conn.close()
End Sub

De esta manera puedes llenar el html:

<form runat="server">
<asp:DataList id="DataList1" runat="server" repeatdirection="horizontal" repeatlayout="table" SelectedItemStyle-BackColor="#45aa47" >
<ItemTemplate>
<asp:LinkButton id="button1" runat="server" text='<%# Container.DataItem("Nombre")%>' CommandName="Edit" />
<p>
</ItemTemplate>
<SelectedItemTemplate>
<%# Container.DataItem("Campo1") %>
<br />
<br />
Domicilio: <%# Container.DataItem("Campo2")%>
</SelectedItemTemplate>
</asp:DataList>
</form>
Espero te sirva.