© 2014 Firstsoft Technologies (P) Limited. login
Hi 'Guest'
Home SiteMap Contact Us Disclaimer
enggedu
Quick Links
Easy Studies

  HomeSource Code DotNet ► Asp.Net ▼

Spliting of pages in datagrid

            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

 

 

 

SLogix Student Projects

⇓Student Projects⇓
⇑Student Projects⇑
bottom