Özellikle veri tabanı işlemlerinde bizim için vazgeçilmez olan Dataset ve Datagrid nesnelerini incelemek ve aralarındaki tutkulu flörtü daha iyi algılamak için bazı küçük temel oluşumları bilmenin faydalı olacağına inanıyorum.

Örneğin DataColumn yapısının bir Dataset ile entegrasyonu üzerinde örneklendirmeye çalıştığım bu makalede Dataset'in build edilmesi ve Item'larının oluşumu hakkında küçük bir uygulama yapacağız.

Kullanılan DataGrid objenin adı : dgSample
dgSample'yi oluşturan fonksiyon : BuildDataset()

Öncelikle bizim için gerekli olan tanımları ifade ediyoruz; ds : DataSet
dt : DataTable
dc : DataColumn
dr : DataRow

DataTable için sabit 3 adet sütundan (No, AdSoyad,Tarih) oluşan bir satır bloğu oluşturuyoruz. Ve bu yapıyı DataSetin temel parçacığı olan Table(dt) olarak saklıyoruz. Böylece sözkonusu Table, ilgisli DataSet'i oluşturmaktadır.


Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As DataSet = BuildDataset()
dgSample.DataSource = ds
dgSample.DataBind()

End Sub

DataSet objesini oluşturan Fonksiyon ; Function BuildDataset() As DataSet
Dim ds As New DataSet()
Dim dt As New DataTable()
Dim dc As New DataColumn()
Dim dr As DataRow
dc = New DataColumn("No", System.Type.GetType("System.Int32"))
dt.Columns.Add(dc)
dc = New DataColumn("AdSoyad", System.Type.GetType("System.String"))
dt.Columns.Add(dc)
dc = New DataColumn("Tarih", System.Type.GetType("System.DateTime"))
dt.Columns.Add(dc)
Dim i As Integer = 0
For i = 0 To 10
dr = dt.NewRow
dr(0) = i
'dr("No") = i
dr(1) = "Ad Soyad"
'dr("AdSoyad")="Ad Soyad"
dr(2) = DateTime.Today
'dr("Tarih")=DateTime.Today
dt.Rows.Add(dr)
Next
ds.Tables.Add(dt)
Return ds

End Function

Private Sub dgSample_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dgSample.ItemCreated If e.Item.ItemIndex Mod 2 = 0 Then
e.Item.BackColor = System.Drawing.Color.SandyBrown
End If

End Sub