28/02/2007, 16:08
|
| | Fecha de Ingreso: junio-2006
Mensajes: 109
Antigüedad: 18 años, 6 meses Puntos: 2 | |
Re: primer elemento de datalist Te recomendaria que utilizaras colecciones typeadas con eso ahorras mucho trabajo, pero ahi te va como recorres el datalist
Private Sub SelectDataList()
Dim lista As DataList = New DataList
Dim ds As DataSet = New DataSet
ds = Run()
If ds.Tables.Count > 0 Then
lista.DataSource = ds.Tables(0)
lista.DataBind()
Dim i = 0
//aqui recorres el datalist
For i = 0 To lista.Items.Count
//aqui coloca lo que quieres hacer con los elementos del datalist
Next
End If
End Sub
Private Function Run() As DataSet
Dim myConnection As SqlConnection
Dim mySqlDataAdapter As SqlDataAdapter
Try
Dim myDataSet As DataSet = New DataSet
myConnection = New SqlConnection("Server=.; UID=sa; PWD=sa; Initial Catalog=northwind; Connect Timeout=15000")
mySqlDataAdapter = New SqlDataAdapter("select * from customers", myConnection)
mySqlDataAdapter.Fill(myDataSet, "Customers")
Return myDataSet
Catch e As Exception
Mensaje(e.ToString())
End Try
End Function
Public Sub Mensaje(ByVal strMensaje As String)
Me.Page.RegisterStartupScript("Mensaje", ("<script language=javascript> alert('" & strMensaje & "');</script>"))
End Sub |