Ejemplo para moverse entre registro con asp.net

RootK · #1 (**permalink**) 17/05/2004, 09:16

Hola, en el siguiente ejemplo (solo basta con copiar y pegar) podrán moverse entre registro con un dataset, y voy a poner el ejemplo usando un datalist para que parezca paginacion, ya dependerá de ustedes como adaptar el código para lo que necesitan.

Utilicé un 2 labels para guardar el Tamaño de la página (intPageSize) y el Indice actual de mi registro(intCurrIndex), los dos con la propiedad visible=false

Un datalist donde usé 2 campos (que pueden ser los que ustedes quieran, solo sería cosa de irlo adaptando)

(Esta en VB.Net pero para c# se darán cuenta que no es dificl adaptarlo

)

Modo HTML

Cita:

<asp:datalist id="dList" runat="server" Width="100%">
<HeaderTemplate>
<table width="100%" style="font: 10pt verdana" cellpadding="0" cellspacing="0">
<tr style="background-color:blue">
<th align="left">
Campo 1</th>
<th align="left">
Campo 2</th>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr style="background-color:gainsboro">
<td width="50%"><%# DataBinder.Eval(Container.DataItem, "NombreCampo1 ") %></td>
<td><%# DataBinder.Eval(Container.DataItem, "NombreCampo2 ") %></td>
</tr>
</ItemTemplate>
<FooterTemplate>
</table>
</FooterTemplate>
</asp:datalist>
<a name="mensaje"></a>
<table width="100%" align="right">
<tr>
<td align="left" width="76%"><asp:label id="lblStatus " Font-Size="10pt" Font-Name="verdana" Runat="server"></asp:label></td>
<td width="6%"><A id="hrefFirst" href="datalistpaging.aspx#this" runat="server" onserverclick="ShowFirst "><<</A>
</td>
<td width="6%"><A id="hrefPrevious" href="#" runat="server" onserverclick="ShowPrevious "><</A>
</td>
<td width="6%"><A id="hrefNext" href="#" runat="server" onserverclick="ShowNext ">></A>
</td>
<td width="6%"><A id="hrefLast" href="#" runat="server" onserverclick="ShowLast ">>></A>
</td>
</tr>
</table>

<asp:label id="intCurrIndex" Runat="server" Visible="False"></asp:label>
<asp:label id="intPageSize" Runat="server" Visible="False"></asp:label><asp:label id="intRecordCount" Runat="server" Visible="False"></asp:label>

Codebing de la página:

Cita:

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

If Not Page.IsPostBack() Then

intPageSize.Text = "10" 'aqui indican el tamañano de la página

intCurrIndex.Text = "0" 'Inicializo el indice
Bind()

End If

End Sub

Private Sub Bind()
Dim objConn As New SqlConnection(ConfigurationSettings.AppSettings("c onnectionString"))
Dim objDA As New SqlDataAdapter("SELECT * FROM TABLA", objConn)
Dim objDS As New DataSet

If Not Page.IsPostBack() Then
objDA.Fill(objDS)
intRecordCount.Text = CStr(objDS.Tables(0).Rows.Count)
objDS = Nothing
objDS = New DataSet
End If

If intCurrIndex.Text = 0 Then
hrefPrevious.Visible = False
Else
hrefPrevious.Visible = True
End If

objDA.Fill(objDS, CInt(intCurrIndex.Text), CInt(intPageSize.Text), "Logs")

dList.DataSource = objDS.Tables(0).DefaultView
dList.DataBind()
objConn.Close()
PrintStatus()
End Sub

Public Sub ShowFirst (ByVal s As Object, ByVal e As EventArgs)
intCurrIndex.Text = "0"
Bind()
End Sub

Public Sub ShowPrevious (ByVal s As Object, ByVal e As EventArgs)
intCurrIndex.Text = CStr(CInt(intCurrIndex.Text) - CInt(intPageSize.Text))
If CInt(intCurrIndex.Text) < 0 Then
intCurrIndex.Text = "0"
End If
Bind()
End Sub

Public Sub ShowNext (ByVal s As Object, ByVal e As EventArgs)
If CInt(intCurrIndex.Text) + 1 < CInt(intRecordCount.Text) Then
intCurrIndex.Text = CStr(CInt(intCurrIndex.Text) + CInt(intPageSize.Text))
End If
Bind()
End Sub

Public Sub ShowLast (ByVal s As Object, ByVal e As EventArgs)
Dim tmpInt As Integer

tmpInt = CInt(intRecordCount.Text) Mod CInt(intPageSize.Text)
If tmpInt > 0 Then
intCurrIndex.Text = CStr(CInt(intRecordCount.Text) - tmpInt)
Else
intCurrIndex.Text = CStr(CInt(intRecordCount.Text) - CInt(intPageSize.Text))
End If
Bind()
End Sub

Private Sub PrintStatus()
lblStatus .Text = "Total Records:" & intRecordCount.Text
lblStatus.Text += " - Showing Page: "
lblStatus.Text += CStr(CInt(CInt(intCurrIndex.Text) / CInt(intPageSize.Text) + 1))
lblStatus.Text += " of "

If (CInt(intRecordCount.Text) Mod CInt(intPageSize.Text)) > 0 Then
lblStatus.Text += CStr(CInt(CInt(intRecordCount.Text) / CInt(intPageSize.Text) + 1))
Else
lblStatus.Text += CStr(CInt(intRecordCount.Text) / CInt(intPageSize.Text))
End If
lblStatus.Text += ""
End Sub

Espero que les funcione y cualquier cosa avisenme.

Saludos

juagarc4 · #2 (**permalink**) 17/05/2004, 10:14

Hola a to2;

Genial!!! Rootk,

Me ha funcionado a la primera, es muy bueno, lo he modificado para que me funcionara con registros individuales y va de maravilla!!!

En dos palabras: Im-Presionante

Salu2

lucxx · #3 (**permalink**) 17/05/2004, 10:18

Excelente ejemplo RootK

. Otra cosa más a añadir a la futura biblioteca

Salu2

juagarc4 · #4 (**permalink**) 17/05/2004, 10:58

Hola a otra vez,

Si me lo permites RootK, me gustaria exponer una modificación para que usando tu código se pueda hacer un formulario en el que se muestren datos en TextBox de Registro en Registro, igual que representamos datos en una WinForm y que nos desplazamos con una Barra de Navegación.

Si te parece mal, dímelo y lo quito, ¿ok?

Bueno, vamos allá.

Lo único que tiene que hacer es añdir tantos campos de texto como campos seleccionen en su consulta SELECT
Y luego añadir en el evento Bind()
las siguientes lineas

Código:

 txtBox1.Text = objDS.Tables(0).Rows(0).Item(0)
 txtBox2.Text = objDS.Tables(0).Rows(0).Item(1)
  ....
 txtBoxN.Text= objDS.Tables(0).Rows(0).Item(n)

De forma que el Código quedaría del evento Bind() quedaría así:

Código:

 Private Sub Bind()
       Dim objConn As New SqlConnection(ConfigurationSettings.AppSettings("connectionString"))
       Dim objDA As New SqlDataAdapter("SELECT * FROM TABLA", objConn)
        Dim objDS As New DataSet
        
        If Not Page.IsPostBack() Then
            objDA.Fill(objDS)
            intRecordCount.Text = CStr(objDS.Tables(0).Rows.Count)
            objDS = Nothing
            objDS = New DataSet
        End If

        If intCurrIndex.Text = 0 Then
            hrefPrevious.Visible = False
        Else
            hrefPrevious.Visible = True
        End If

        objDA.Fill(objDS, CInt(intCurrIndex.Text), CInt(intPageSize.Text), "Logs")
        'dList.DataSource = objDS.Tables(0).DefaultView 'Esto tampoco lo uso
        
        txtBox1.Text = objDS.Tables(0).Rows(0).Item(Indice del campo/columna que se mostrará en este TextBox)
        txtBox2.Text = objDS.Tables(0).Rows(0).Item(Indice del campo/columna que se mostrará en este TextBox)
                
'dList.DataBind() 'comento el llenado del dList porque no lo uso
        objConn.Close()
        PrintStatus()
    End Sub

Además, para que vaya de UNO en UNO en el paso de registros, ha de cambiar en el vento Load() la siguiente linea:

Código:

intPageSize.Text = "1"

Bueno, por lo demás ya no hay que tocar nada (el que no quiera el dList, puede borrarlo)

Supongo que hay gente que ya lo habia pensado y modificado para que hiciera esto, pero también habrá otra gente que, por lo que sea, no lo habia conseguido. Espero que esto ayude y
que me perdonen esta intromisión, sobretodo tú, RootK.
Y como ya te digo arriba, si te ha molestado o algo, sólo dímelo sin más y lo quito,¿ok?

salu2

RootK · #5 (**permalink**) 17/05/2004, 11:09

Cita:

Espero que esto ayude y
que me perdonen esta intromisión, sobretodo tú, RootK.

No hay problema friend...

, ya sabes que cada uno adapta el code conforme a sus necesidades y lo que pusiste es otra forma de mostrar los datos que a alguien mas le puede servir.

Saludos

juagarc4 · #6 (**permalink**) 17/05/2004, 11:13

OK, gracias RootK,

Con compañeros como los de este Foro da gusto compartir información y conocimientos (aunque no sean muchos, jeje).

Salu2

deli · #7 (**permalink**) 08/07/2004, 00:07

Ante todo dar las gracias a todos los que hacen posible esta web.

Usando Dreamweaver mx el listado me prodice este error.

Error de compilación
Descripción: Error durante la compilación de un recurso requerido para dar servicio a esta solicitud. Revise los detalles de error específicos siguientes y modifique el código fuente en consecuencia.

Error de compilación Descripción: Error durante la compilación de un recurso requerido para dar servicio a esta solicitud. Revise los detalles de error específicos siguientes y modifique el código fuente en consecuencia. Mensaje de error del compilador: BC30456: 'ShowFirst' no es un miembro de 'ASP.Untitled_3b_ejemplo_aspx'.

La linea es la siguiente:
Línea 53: <td width="6%"><A id="hrefFirst" href="datalistpaging.aspx#this" runat="server" onserverclick="ShowFirst"><<</A>
supongo que en las siguientes lineas de la barra de navegacion dara el mismo error:ShowPrevious etc....

Gracias por su tiempo.

cvergara · #8 (**permalink**) 01/06/2005, 07:11

Soy novato en el tema .net y me estoy engranado con asp.net, el ejemplo planteado lo instale en mi maquina pero me da un error o no es un error del parser solo que no tengo declarado lblStatus, me da error del Control lblStatus

como puedo solucionar este problemita?

Saludos,
Carlos Vergara

cvergara · #9 (**permalink**) 01/06/2005, 08:56

Estimados,

Ya resolví el problema, si se fijan en el codigo HTML en la declaración del label lblStatus existe un espacio de mas.

Saludos

affv · #10 (**permalink**) 07/05/2006, 14:03

como debo modificar la coneccion a la base de datos si estoy utilizando access como motor de datos.

He intentado con este cambio y nada

Dim objConn As New OdbcConnection("Driver={Microsoft dBase Driver (*.dbf)};DBQ='C:\Data.mdb'")
Dim objDA As New OdbcDataAdapter("SELECT * FROM Productos", objConn)

No se cual es la cadena correcta? Estoy perdido?

affv · #11 (**permalink**) 07/05/2006, 14:40

Disculpen ya lo logre.. la coneccion era asi
Dim objConn As New OdbcConnection("Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Data.mdb;")

RootK · #12 (**permalink**) 08/05/2006, 08:28

Si estas usando Access te recomiendo que lo hagas mejor a través de Oledb en vez de hacerlo por Odbc

Salu2

sjfarinas · #13 (**permalink**) 23/01/2008, 11:44

Yo navego bien a traves de textbox, mi pregunta es, si yo edito una informacion en la base de datos como hago para que se me actualice visualmente, no se como hacerlo, de antemano muchisimas gracias me sirvio bastante su a aporte

valderramalex · #14 (**permalink**) 10/09/2013, 16:39

Muchas gracias me sirvio para lo que necesitaba, ahora le voy a hacer mis modificaciones.