RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

    Pregunta:  67970 - ERRO EN PAGINACION EN VB Y ASPX NO SE VE LOS DATOS
Autor:  Sandra B
Hola, no se mucho o casi nada de VB y asp.net, pero utilice una paginacion que encontre en la web, pero necesitaba colocarle un filtro especifico. Cuando la consulta es Select * FROM capacitacion funciona perfectamente y se muestra los datos de la consulta pero cuando la consulta es Select * FROM capacitacion WHERE id=1 no se muestran los datos... es como si quedara totalmente vacia envio el codigo para ver donde esta el error,

Aclaro que poco se de esto :-) Muchas gracias

------------- .vb
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Data.SqlClient
Imports System.IO
Imports System.Web.Hosting
Partial Public Class productos_busqueda
' TODO: *** Comprobar si es Inherits o Implements ***
Inherits System.Web.UI.Page

Property cnx As SqlConnection
Property cmd As SqlCommand
Property resultado As SqlDataReader

Dim tip As String
Dim are As String
Dim inten As String
Dim moda As String
Dim fecha As String
Dim palabra As String
Dim tip2 As String
Dim are2 As String
Dim inten2 As String
Dim moda2 As String
Dim fecha2 As String
Dim palabra2 As String

Dim strPaginacion As String = String.Empty
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
''If Not Page.IsPostBack Then

'bindData()

' End If

End Sub

Private Sub bindData()

Me.tip2 = Request.QueryString("tipo")
Me.are2 = Request.QueryString("area")
Me.moda2 = Request.QueryString("modalidad")
Me.inten2 = Request.QueryString("intensidadhorario")
Me.palabra2 = Request.QueryString("palabra")
Me.fecha2 = Request.QueryString("fecha")

''''
If Request.QueryString("tipo") = 0 Then
tip = " AND idTipo > 0"
Else
tip = " AND idTipo = '" + tip2 + "'"

End If

''''
If Request.QueryString("area") = 0 Then
are = " AND idArea > 0"
Else
are = " AND idArea = '" + are2 + "'"

End If

''''
If Request.QueryString("modalidad") = 0 Then
moda = " AND idModalidad > 0"
Else
moda = " AND idModalidad = '" + moda2 + "'"

End If

''''
If Request.QueryString("intensidadhorario") = 0 Then
inten = " AND idIntensidad > 0"
Else
inten = " AND idintensidad = '" + inten2 + "'"

End If

''''
If Request.QueryString("palabra") = "" Then
palabra = ""
Else
palabra = " AND titulo LIKE '" + palabra2 + "' OR descripcion LIKE '" + palabra2 + "'"

End If

''''
If Request.QueryString("fecha") = "" Then
fecha = ""
Else
fecha = " AND fecha >= '" + fecha2 + "'"

End If

Dim conn As New SqlConnection("Server='';Database='';Uid='';Pwd=''")
Dim cmd As New SqlCommand("Select * FROM capacitacion where activo='A' " + tip + " " + moda + " " + inten + " " + are + " " + palabra + " " + fecha + " ORDER BY titulo", conn)

Dim ds As New DataSet()
Dim da As New SqlDataAdapter(cmd)
da.Fill(ds)
Dim objPds As New PagedDataSource()
objPds.DataSource = ds.Tables(0).DefaultView
objPds.AllowPaging = True
objPds.PageSize = 3


Dim CurPage As Integer
If Request.QueryString("IDP") IsNot Nothing Then
CurPage = Convert.ToInt32(Request.QueryString("IDP"))
Else
CurPage = 1
End If
objPds.CurrentPageIndex = CurPage - 1
strPaginacion = ""
If Not objPds.IsFirstPage Then
strPaginacion = "<a href='productos.aspx?IDP=" & Convert.ToString(CurPage - 1) & "' class=pag_button>« anterior</a>"
End If
If objPds.PageCount > 0 Then
strPaginacion += "<span class='pag_button'>   " & CurPage.ToString() & " de " & objPds.PageCount.ToString() & "  </span> "
End If
If objPds.PageCount > 1 Then
If Not objPds.IsLastPage Then
strPaginacion += "<a href='productos.aspx?IDP=" & Convert.ToString(CurPage + 1) & "' class=pag_button>siguiente »</a>"
End If

DataList1.DataSource = objPds
End If
DataList1.DataBind()

End Sub
'
Protected Function GetPaginacion() As String
Return (strPaginacion)

End Function

End Class
---------------------pagina que es como si mostrara la consulta vacia

<asp:Repeater ID="DataList1" runat="server">

<ItemTemplate>
<%# DataBinder.Eval(Container.DataItem, "titulo")%>
</ItemTemplate>

<FooterTemplate>

<div >
<a ><%= GetPaginacion() %></a>
</div> <!-- end -->
</FooterTemplate>
</asp:Repeater>

------------------
De antemano MIL GRACIAS por su tiempo y su colaboracion


Nombre
Apellidos
Correo
Comentarios