[aljzazy]

كود :

Private Sub LoadData(pageNumber As Integer)
   ' Define the number of rows to display per page
   Dim rowsPerPage As Integer = 25

   ' Calculate the starting row for the current page
   Dim startRow As Integer = (pageNumber - 1) * rowsPerPage

   ' Connect to the database and retrieve the data
   Dim connString As String = "Your connection string here"
   Dim query As String = "SELECT * FROM YourTable ORDER BY YourColumn OFFSET " & startRow & " ROWS FETCH NEXT " & rowsPerPage & " ROWS ONLY"
   Dim adapter As New SqlDataAdapter(query, connString)
   Dim dataTable As New DataTable()
   adapter.Fill(dataTable)

   ' Set the data source for the DataGridView
   DataGridView1.DataSource = dataTable
End Sub

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
   ' Increment the page number and reload the data
   pageNumber += 1
   LoadData(pageNumber)
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   ' Load the first page of data when the form loads
   pageNumber = 1
   LoadData(pageNumber)
End Sub