Data Grid retrieves data from database and displays it. We can update the database through data grid using controls which are embedded with data grid.
Imports System.Data.OleDb
Namespace DataGrid_Repeater
Partial Class DataGrid
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 ButShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButShow.Click
Try
Call Dgview()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Sub DgEdit(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
DataGrid1.EditItemIndex = e.Item.ItemIndex
Call Dgview()
End Sub
Sub DgCancel(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
DataGrid1.EditItemIndex = -1
Call Dgview()
End Sub
Sub DgUpdate(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
Try
Dim s1 As TableCell
Dim s2, s3 As TextBox
s1 = e.Item.Cells(0)
s2 = e.Item.Cells(1).Controls(0)
s3 = e.Item.Cells(2).Controls(0)
con.Open()
Dim cmd As New OleDbCommand
cmd = New OleDbCommand("Update Vote set age=" & Val(s3.Text) & ", sex='" & Trim(s2.Text) & "' where ename='" & s1.Text & "'", con)
cmd.executenonquery()
con.Close()
DataGrid1.EditItemIndex = -1
Call Dgview()
Catch ex As Exception
Response.Write(ex.Message)
End Try
End Sub
Sub DgDelete(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
Try
Dim s1 As TableCell
'Dim s2, s3 As TextBox
s1 = e.Item.Cells(0)
's2 = e.Item.Cells(1).Controls(0)
's3 = e.Item.Cells(2).Controls(0)
con.Open()
Dim cmd As New OleDbCommand
cmd = New OleDbCommand("delete from Vote where ename='" & s1.Text & "'", con)
cmd.ExecuteNonQuery()
con.Close()
DataGrid1.EditItemIndex = -1
Call Dgview()
Catch ex As Exception
Response.Write(ex.Message)
End Try
End Sub
Sub Dgview()
ad = New OleDbDataAdapter("Select * from Vote", con)
d = New DataSet
ad.Fill(d)
DataGrid1.DataSource = d
DataGrid1.DataBind()
End Sub
Sub DoPaging(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
DataGrid1.CurrentPageIndex = e.NewPageIndex
Call Dgview()
End Sub
Private Sub ButInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButInsert.Click
Try
Dim cmd As OleDbCommand
cmd = New OleDbCommand("Insert into vote values('" & TextBox1.Text & "'," & Val(TextBox2.Text) & ",'" & Trim(TextBox3.Text) & "')", con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Call Dgview()
Catch ex As Exception
Response.Write(ex.Message)
End Try
End Sub
End Class
End Namespace

|