Nasýl yapýlýr: disk belleði DataGrid Windows denetimi ile Visual Basic .NET kullanarak gerçekleþtir

Web DataGrid'i otomatik ya da özel disk belleði yerleþik iþlevleri; ancak bu özellikler Windows DataGrid'i yoksun olabilir. Bu makalede, basit bir disk belleði mekanizma DataGrid Windows denetiminin nasýl gösterilmektedir.

Bu makaledeki kod örnekleri DataSet kullanmak olun nesneleri. ADO.NET, DataSet nesneleri tek bir iþlemde doldurulur ve bellekte bulunan tüm zaman. Bir DataSet büyük ile çalýþýyorsanýz, bu makalede programsal olarak bölmek veya sayfalarý verileri görüntülemek açýklamaktadýr.

Bu teknik, bazý sýnýrlamalar vardýr. Lütfen daha fazla bilgi için Troubleshooting bölümüne bakýn.

Gereksinimler

• Microsoft Visual Basic .NET
• Microsoft SQL Server Northwind örnek veritabaný

Disk belleði bir DataGrid Windows Denetim ekleme adýmlarý

DataGrid sayfa, sayfa boyutu "birimler" kayýtlarýnýn ayný anda baþka bir deyiþle, bir sayfa içinde verileri görüntüler. Izlemek için örnek kod DataRow nesneleri için her sayfayý bellekte DataSet geçici tabloya kopyalar. Geçici tabloyu, daha sonra için <a2>DataGrid</a2> denetimi baðlýdýr.

1. Yeni bir Visual Basic .NET Windows uygulamasý'ný açýn. Varsayýlan olarak, Form1 oluþturulur.
2. DataGrid denetimi ekleyin ve ReadOnly özelliði true olarak ayarlayýn.
3. Form1 ek aþaðýdaki denetimlere yerleþtirin ve aþaðýda gösterildiði gibi özelliklerini ayarlayabilir:
   Bu tabloyu kapaBu tabloyu aç

   Denetimi	Adý özelliði	Metin özelliði
   Düðme	btnFirstPage	Ilk sayfa
   Düðme	btnNextPage	Sonraki sayfa
   TextBox	txtDisplayPageNo
   Düðme	btnPreviousPage	Önceki sayfa
   Düðme	btnLastPage	Son sayfa
   TextBox	txtPageSize	5
   Düðme	btnFillGrid	Kýlavuz doldurun.

   
   
4. Form1'ýn genel bildirimi bölümüne aþaðýdaki kodu yapýþtýrýn:

   Imports System
   Imports System.Data
   Imports System.Data.SqlClient
   					

5. Aþaðýdaki kodu önce Form1 için form düzeyi deðiþkenleri bildirmek için "Windows Form Designer generated" bölge yapýþtýrýn:

       Private da As SqlDataAdapter
       Private ds As DataSet
       Private dtSource As DataTable
       Private PageCount As Integer
       Private maxRec As Integer
       Private pageSize As Integer
       Private currentPage As Integer
       Private recNo As Integer
   					

6. Load olayý Form1 aþaðýdaki otomatik oluþturulan kodu silin.

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

7. Aþaðýdaki kodu sonra "Windows Form Designer generated" bölge yapýþtýrýn:

   Private Sub Form1_Load(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles MyBase.Load
   
       'Open Connection.
       Dim conn As SqlConnection = New SqlConnection( _ 
   "Server=(local)\netsdk;uid=sa;pwd=;database=northwind")
   
       'Set the DataAdapter's query.
       da = New SqlDataAdapter("select * from customers", conn)
       ds = New DataSet()
   
       ' Fill the DataSet.
       da.Fill(ds, "customers")
   
       ' Set the source table.
       dtSource = ds.Tables("customers")
   
   End Sub
   
   Private Sub btnNextPage_Click(ByVal sender As System.Object, _ 
       ByVal e As System.EventArgs) Handles btnNextPage.Click
   
       'If the user did not click the "Fill Grid" button then Return
       If Not CheckFillButton() Then Return
   
       'Check if the user clicked the "Fill Grid" button.
       If pageSize = 0 Then
           MessageBox.Show("Set the Page Size, and then click the ""Fill Grid"" button!")
           Return
       End If
   
       currentPage = currentPage + 1
   
       If currentPage > PageCount Then
           currentPage = PageCount
   
           'Check if you are already at the last page.
           If recNo = maxRec Then
               MessageBox.Show("You are at the Last Page!")
               Return
           End If
       End If
   
       LoadPage()
   End Sub
   
   Private Sub btnPreviousPage_Click(ByVal sender As System.Object, _ 
       ByVal e As System.EventArgs) Handles btnPreviousPage.Click
   
       If Not CheckFillButton() Then Return
   
       If currentPage = PageCount Then
           recNo = pageSize * (currentPage - 2)
       End If
   
       currentPage = currentPage - 1
   
       'Check if you are already at the first page.
       If currentPage < 1 Then
           MessageBox.Show("You are at the First Page!")
           currentPage = 1
           Return
       Else
           recNo = pageSize * (currentPage - 1)
       End If
   
       LoadPage()
   End Sub
   
   Private Sub LoadPage()
       Dim i As Integer
       Dim startRec As Integer
       Dim endRec As Integer
       Dim dtTemp As DataTable
       Dim dr As DataRow
   
       'Duplicate or clone the source table to create the temporary table.
       dtTemp = dtSource.Clone
   
       If currentPage = PageCount Then
           endRec = maxRec
       Else
           endRec = pageSize * currentPage
       End If
   
       startRec = recNo
   
       'Copy the rows from the source table to fill the temporary table.
       For i = startRec To endRec - 1
           dtTemp.ImportRow(dtSource.Rows(i))
           recNo = recNo + 1
       Next
   
       DataGrid1.DataSource = dtTemp
       DisplayPageInfo()
   
   End Sub
   
   Private Sub btnFirstPage_Click(ByVal sender As System.Object, _ 
       ByVal e As System.EventArgs) Handles btnFirstPage.Click
   
       If Not CheckFillButton() Then Return
   
       ' Check if you are already at the first page.
       If currentPage = 1 Then
           MessageBox.Show("You are at the First Page!")
           Return
       End If
   
       currentPage = 1
       recNo = 0
   
       LoadPage()
   
   End Sub
   
   Private Sub btnLastPage_Click(ByVal sender As System.Object, _ 
       ByVal e As System.EventArgs) Handles btnLastPage.Click
   
       If Not CheckFillButton() Then Return
   
       ' Check if you are already at the last page.
       If recNo = maxRec Then
           MessageBox.Show("You are at the Last Page!")
           Return
       End If
   
       currentPage = PageCount
   
       recNo = pageSize * (currentPage - 1)
   
       LoadPage()
   
   End Sub
   
   Private Sub DisplayPageInfo()
       txtDisplayPageNo.Text = "Page " & currentPage.ToString & "/ " & PageCount.ToString
   End Sub
   
   Private Sub btnFillGrid_Click(ByVal sender As System.Object, _ 
       ByVal e As System.EventArgs) Handles btnFillGrid.Click
   
       'Set the start and max records. 
       pageSize = txtPageSize.Text
       maxRec = dtSource.Rows.Count
       PageCount = maxRec \ pageSize
   
       ' Adjust the page number if the last page contains a partial page.
       If (maxRec Mod pageSize) > 0 Then
           PageCount = PageCount + 1
       End If
   
       'Initial seeings
       currentPage = 1
       recNo = 0
   
       ' Display the content of the current page.
       LoadPage()
   
   End Sub
   
   Private Function CheckFillButton() As Boolean
   
       'Check if the user clicks the "Fill Grid" button.
       If pageSize = 0 Then
           MessageBox.Show("Set the Page Size, and then click the ""Fill Grid"" button!")
           CheckFillButton = False
       Else
           CheckFillButton = True
       End If
   End Function
   					

8. Kodu <a1>ConnectionString</a1> parametresini, Northwind veritabanýndaki, varolan bir örneðine iþaret þekilde deðiþtirin.
9. Oluþturmak ve proje çalýþtýrmak için F5 tuþuna basýn.
10. Varsayýlan olarak, sayfa boyutu, metin kutusuna deðiþtirebilecek þekilde 5 kayýtlarý için ayarlanýr.
11. Kýlavuz dolgu ' ý týklatýn. Kýlavuz 5 kayýtlarýyla girilir dikkat edin.
12. Ilk sayfaSonraki sayfa, Önceki sayfa ve Son sayfa arasýnda sayfalarýna gözatmak için týklatýn.

SORUN GÝDERME

• Bu teknik yalnýzca, salt okunur DataGrid denetimi çalýþýr. Bir satýr, geçici bir DataTable nesnesine aldýðýnýzda, bir kopyasýný oluþturun. Böylece, yaptýðýnýz deðiþiklikler ana tabloya kaydedilmeyecek.
• Bu tekniði çalýþmaz (ve bu bilgileri bir koleksiyon veya bir dizi yapar.), kullanýcý alt kayýtlarda bir DataRelation nesnesi gitmek için veya ayný anda formda görüntülenen bir üst-altöge iliþkisi içinde baðlý olan kayýtlar varsa.

ADO.NET hakkýnda daha fazla bilgi için bkz:, aþaðýdaki MSDN Web sitesi: Daha fazla bilgi için bkz: Microsoft .NET Framework SDK belgelerine: