This explains, data grid splits it as number of pages and retrieve the records from database and display it in the grid
Imports System.Data.OleDb
Namespace DataGrid_Repeater
Partial Class DataGridExam3
Inherits System.Web.UI.Page
Dim ad As OleDbDataAdapter
Dim d As DataSet
Dim con As OleDbConnection
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> 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
Try
con = New OleDbConnection("Provider=microsoft.jet.oledb.4.0; data source=C:\Inetpub\wwwroot\Sample-Raghavan\DataGrid-Repeater\bin\datas.mdb")
Catch ex As Exception
Response.Write(ex.Message)
End Try
End Sub
Private Sub ButClickme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButClickme.Click
Call DGView()
End Sub
Sub DGView()
Try
ad = New OleDbDataAdapter("Select * from vote1 order by eid", con)
d = New DataSet
ad.Fill(d)
Dg.DataSource = d
Dg.DataBind()
Catch ex As Exception
Response.Write(ex.Message)
End Try
End Sub
Sub DGEdit(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
DG.EditItemIndex = e.Item.ItemIndex
Call DGView()
End Sub
Sub DGUpdate(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
Dim s1 As TableCell
Dim s2, s3, s4 As TextBox
s1 = e.Item.Cells(0)
s2 = e.Item.Cells(1).Controls(0)
s3 = e.Item.Cells(2).Controls(0)
s4 = e.Item.Cells(3).Controls(0)
Dim cmd As OleDbCommand
cmd = New OleDbCommand("Update vote1 set ename='" & s2.Text & "', age=" & s4.Text & ", sex='" & s3.Text & "' where eid=" & s1.Text, con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
DG.EditItemIndex = -1
Call DGView()
End Sub
Sub DGcancel(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
DG.EditItemIndex = -1
Call DGView()
End Sub
Sub DGPage(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
DG.CurrentPageIndex = e.NewPageIndex
Call DGView()
End Sub
End Class
End Namespace
|