Ado.net ile datagrid 2
Bundan önceki makalemde datagrid kullanımı görmüştük.bu makalemde datagrid nesnesinin stilini, syralama özelliklerini anlatacağım
Bildigimiz gibi datagrid nesnesi Ado.net içerisindeki en gelişmiş özelliklere sahip veritabanı nesnesi.Bundan önceki makalemde datagrid nesnesine giriş yapmıştık. şimdi aynı datagrid nesnesine ek özellikler ekleyerek fonksiyonunu genişletelim.
Diğer makalemdeki örneğe ek etiketine OnSortCommand olayını ekliyoruz.Bu bizim datagrid’i oluşturdugumuzda hangi sütuna göre sırala yapacagımızı seçmemize olanak veriyor.Ayrıca etiketine ise SortExpression=”ad”
ekliyoruz ; bu sıralama esnasynda veritabanyndaki hangi sütunu seçmesi gerektigini belirtiyor.
<%@ Page Language=”vb” AutoEventWireup=”false” src=”data.aspx.vb” Inherits=”data” %>
DataGrid 2
—–data.aspx.vb——-
Imports System.Data
Imports System.Data.OleDb
Public Class data
Inherits System.Web.UI.Page
Protected WithEvents listtalepler As System.Web.UI.WebControls.DataGrid
#Region ” Web Form Designer Generated Code ”
‘This call is required by the Web Form Designer.
Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
‘CODEGEN: This method call is required by the Web Form Designer
‘Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
Dim DBConn As OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData As New DataSet()
DBConn = New OleDbConnection(“provider=” _
& “Microsoft.Jet.OLEDB.4.0;” _
& “DATA SOURCE=” _
& Server.MapPath(“db/veritabanim.mdb;”))
DBCommand = New OleDbDataAdapter _
(“Select * From tbltalep ” _
& ” order by ad” , DBConn)
DBCommand.Fill(DSPageData, _
“talepler”)
listtalepler.DataSource = _
DSPageData.Tables(“talepler”).DefaultView
listtalepler.DataBind()
End If
End Sub
‘ Sort_Grid olayyny tanymlayarak syralamama yapmamyza olanak veriyoruz.
Sub Sort_Grid(ByVal Sender as Object, _
ByVal E as DataGridSortCommandEventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection(“provider=” _
& “Microsoft.Jet.OLEDB.4.0;” _
& “DATA SOURCE=” _
& Server.MapPath(“db/veritabanim;”))
DBCommand = New OleDbDataAdapter _
(“Select * From tbltalep ” _
& “Order By ” _
‘ e.sortExpression.ToString() olayy tyklady?ymyz sütunu syralyyor
& E.SortExpression.ToString(), DBConn)
DBCommand.Fill(DSPageData, _
“talepler”)
listtalepler.DataSource = _
DSPageData.Tables(“talepler”).DefaultView
listtalepler.DataBind()
End Sub
End Class