HAAAAAAAAAAAAAAAAAAAAAAAAAAAAA casi todo la mañana moviendole
a este codigo y no le hallo , ya me sature,, porfavor si alguien me puede ayudar porque no puede paginar esta codigo.... que tengo mal? y claro ver que pasa con mi intemcommand
<script runat="server">
Const pagesize As Integer = 3
Dim pagecount As Integer
Private Sub Page_Load (sender As Object, e As DataListCommandEventArgs)
If Not Page.IsPostBack Then
viewstate("curpage") = 1
Bindgrid(1)
End If
SetTotalPages()
End Sub
Public Sub SetTotalPages()
If viewstate("pagecount") Is Nothing Then
Dim cnn As New SqlConnection("SERVER=servidor ;UID=usuario;PWD=pass;DATABASE=Base_datos;")
Dim cmd As SqlCommand = New SqlCommand("SELECT Count(*) FROM noticias", cnn)
cnn.Open()
Dim reccount As Integer = cmd.ExecuteScalar().ToString()
If reccount Mod pagesize = 0 Then
pagecount = reccount / pagesize
Else
pagecount = CInt(reccount / pagesize) + 1
End If
viewstate("pagecount") = pagecount
cnn.Close()
Else
pagecount = viewstate("pagecount")
End If
End Sub
Public Sub Bindgrid(ByVal pageno As Integer)
Dim cnn As New SqlConnection("SERVER=fernando ;UID=sa;PWD=wutangclan;DATABASE=delfin;")
Dim startrec As Integer
If pageno = 1 Then
startrec = 0
Else
startrec = (pageno - 1) * pagesize
End If
Dim da As New SqlDataAdapter ("select top " & pagesize & " * from noticias where idno >" & startrec, cnn)
Dim ds As New DataSet()
da.Fill(ds, "noticias")
DataList1.DataSource = ds
DataList1.DataBind()
End Sub
Private Sub DataList1_ItemCommand (sender As Object, e As DataListCommandEventArgs)
DataList1.SelectedIndex = e.Item.ItemIndex
Dim curpage As Integer
Select Case e.CommandName
Case "prev"
curpage = viewstate("curpage")
If curpage > 1 Then
curpage = curpage - 1
Else
curpage = 1
End If
viewstate("curpage") = curpage
Bindgrid(curpage)
Case "next"
curpage = viewstate("curpage")
If curpage < pagecount Then
curpage = curpage + 1
Else
curpage = pagecount
End If
viewstate("curpage") = curpage
Bindgrid(curpage)
End Select
End Sub
</script>
</head>
<body>
<form id="editDataGrid" runat="server">
<ASP:DataList id="DataList1" runat="server" OnItemCommand="DataList1_ItemCommand"
DataKeyField="idno">
<HeaderTemplate>
<table width="700" border="0" class="unnamed1" >
<tr bgcolor="#99CC66">
<td width="36" align="center"> <b><font color="#000000">ID</font></b> </td>
<td width="178" align="center"> <b><font color="#000000">Titulo</font></b>
</td>
<td width="105" align="center"> <b><font color="#000000">Fecha</font></b>
</td>
<td width="274" align="center"> <b><font color="#000000">Noticia</font></b> </td>
<td align="center"> <b><font color="#000000">foto</font></b> </td>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr bgcolor="#2882AC">
<td width="36" align="center" valign="top">
<%#Container.DataItem("Idno")%>
</td>
<td width="178" valign="top">
<%#Container.DataItem("titulo")%>
</td>
<td width="105" valign="top">
<div align="center"><%#Container.DataItem("fecha")%></div></td>
<td width="274" valign="top">
<%#Container.DataItem("Noticia")%>
</td>
<td width="85" align="center" valign="top">
<%# Container.DataItem( "idno") %>
</td>
</tr>
<tr>
<td>
<asp:linkButton id="idprev" CommandName="prev" runat="server" Text=" <"></asp:linkButton>
<asp:linkButton id="idnext" CommandName="next" runat="server" Text=" >"></asp:linkButton>
</td>
</tr>
</ItemTemplate>
</asp:DataList>
</table>
</form>
hay momentos en que los novicios nos atoramos y necesitamos la ayuda de los experimentados...