如何分页下一个和上一个按钮vb.net和acces数据库

Question

你好吗？我希望很好，来自西班牙的问候我进行了社区咨询，希望您能为我提供帮助

这是我的代码

每次按下下一个按钮或上一个按钮时，我需要显示10个结果

我目前正在使用FlowLayoutPanel1和UserControl1.vb向我显示数据库中的数据（访问权限）>>

Public Sub LISTAS_CLIENTES（）

    COMANDOS.Parameters.Clear()

    CONECTAR.Close()

    CONECTAR.Open()

    COMANDOS.CommandText = "SELECT Count(PEDIDOS_CLIENTES.ID) AS Total  FROM PEDIDOS_CLIENTES"

    LEER = COMANDOS.ExecuteReader

    LEER.Read()

    Dim count As Integer = LEER(0)



    ReDim CLIENTES_GUARDADOS(count)

    CONECTAR.Close()

    CONECTAR.Open()

    COMANDOS.CommandText = "SELECT TOP 100 * FROM PEDIDOS_CLIENTES  Order By ID  DESC"

    LEER = COMANDOS.ExecuteReader

    FlowLayoutPanel5.Controls.Clear()

    Dim i As Integer = 0


    While LEER.Read() = True


        CLIENTES_GUARDADOS(i) = New pedidos()

        CLIENTES_GUARDADOS(i).ID = LEER("ID")

        CLIENTES_GUARDADOS(i).nombre.Text = LEER("NOMBRE")

        CLIENTES_GUARDADOS(i).NOMBRE_001 = LEER("NOMBRE")

        CLIENTES_GUARDADOS(i).APELLIDO_001 = LEER("APELLIDO")

        CLIENTES_GUARDADOS(i).APELLIDO.Text = LEER("APELLIDO")

        CLIENTES_GUARDADOS(i).TELEFONO_001 = LEER("TELEFONO")

        CLIENTES_GUARDADOS(i).PEDIDO = LEER("PEDIDO")

        CLIENTES_GUARDADOS(i).CANTIDAD = LEER("CANTIDAD")

        CLIENTES_GUARDADOS(i).COSTO = LEER("COSTO")

        CLIENTES_GUARDADOS(i).ADELANTO = LEER("ADELANTO")

        CLIENTES_GUARDADOS(i).FALTA = LEER("FALTA")

        CLIENTES_GUARDADOS(i).ESTADO_003 = LEER("ESTADO")

        CLIENTES_GUARDADOS(i).ESTADO_001.Text = LEER("ESTADO")

        CLIENTES_GUARDADOS(i).PAGADO = LEER("PAGADO")

        CLIENTES_GUARDADOS(i).FECHA = LEER("FECHA")

        CLIENTES_GUARDADOS(i).METODO_DE_PAGO.Text = LEER("FECHA")


        CLIENTES_GUARDADOS(i).HORA = LEER("HORA")


        FlowLayoutPanel5.Controls.Add(CLIENTES_GUARDADOS(i))

        i += 1


    End While

    CONECTAR.Close()

    Me.Refresh()

End Sub

你好吗？我希望很好，来自西班牙的问候我希望得到社区的咨询，如果每次我按下下一个按钮或上一个按钮时我的代码都需要显示10个结果，希望您能为我提供帮助。

Answer 1

尝试以下内容：