asp.net实例代码之添加、更新datagrid数据
本文导语: asp.net操作datagrid控件的例子,包括添加与更新数据等操作。 代码: 代码示例: Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) If Not IsPostBack Then BuildDataList End If End Sub Sub DataList_Edit(sender As Object, e As...
asp.net操作datagrid控件的例子,包括添加与更新数据等操作。
代码:
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack Then
BuildDataList
End If
End Sub
Sub DataList_Edit(sender As Object, e As DataListCommandEventArgs)
dlDepts.EditItemIndex = CInt(e.Item.ItemIndex)
BuildDataList
End Sub
Sub DataList_Update(sender As Object, e As DataListCommandEventArgs)
Dim TheID as String
Dim TheName as String
Dim TheEmail as String
TheID = CType(e.Item.FindControl("lblID"), Label).Text
TheName = CType(e.Item.FindControl("txtName"), TextBox).Text
TheEmail = CType(e.Item.FindControl("txtEmail"), TextBox).Text
Dim DBConn as OleDbConnection
Dim DBUpdate As New OleDbCommand
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("EmployeeDatabase.mdb;"))
DBUpdate.CommandText = "Update Employee set " _
& "FirstName = '" & Replace(TheName, "'", "''") & "', " _
& "LastName = '" & Replace(TheEmail, "'", "''") & "' " _
& "Where ID = " & TheID
DBUpdate.Connection = DBConn
DBUpdate.Connection.Open
DBUpdate.ExecuteNonQuery()
DBConn.Close
dlDepts.EditItemIndex = -1
BuildDataList
End Sub
Sub CommandAdd_Click(Sender As Object, E As CommandEventArgs)
Dim DBConn as OleDbConnection
Dim DBAdd As New OleDbCommand
DBConn = New OleDbConnection( _
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("EmployeeDatabase.mdb;"))
DBAdd.CommandText = "Insert Into Employee (FirstName) " _
& "values ('NewFirstName ')"
DBAdd.Connection = DBConn
DBAdd.Connection.Open
DBAdd.ExecuteNonQuery()
DBConn.Close
dlDepts.EditItemIndex = 0
BuildDataList
End Sub
Sub BuildDataList ()
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("EmployeeDatabase.mdb;"))
DBCommand = New OleDbDataAdapter _
("Select ID, FirstName, LastName " _
& "From Employee " _
& "Order By LastName", DBConn)
DBCommand.Fill(DSPageData, _
"Employee")
dlDepts.DataSource = _
DSPageData.Tables("Employee").DefaultView
dlDepts.DataBind()
End Sub
添加一行数据到datagrid控件-www.
Department:
Name:
Email: