'单击更新时,执行该事件过程。
Sub MyDataGrid_Update(ByVal Sender As Object, ByVal E As DataGridCommandEventArgs) Handles myDataGrid.UpdateCommand
'建立Connection对象
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("wwwlink.mdb"))
'建立Command对象
Dim txtSiteName, txtURL, txtIntro, txtGrade As TextBox '声明文本框控件变量
txtSiteName = E.Item.Cells(2).Controls(0)
txtURL = E.Item.Cells(3).Controls(0)
txtIntro = E.Item.Cells(4).Controls(0)
txtGrade = E.Item.Cells(5).Controls(0)
Dim strSql As String
strSql = "Update link Set sitename='" & txtSiteName.Text & "',URL='" & txtURL.Text & "',intro='" & txtIntro.Text & "',grade=" & CInt(txtGrade.Text) & ",submit_date=#" & DateTime.Now() & "# Where link_id=" & myDataGrid.DataKeys(CInt(E.Item.ItemIndex))
Dim cmd As New OleDbCommand(strSql, conn)
'执行更新操作
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
'重新绑定
myDataGrid.EditItemIndex = -1
Call BindData()
End Sub