Private Sub editDataGrid_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles editDataGrid.UpdateCommand
'数据更新。 首先创建连接,打开连接,改数据
Dim dcn As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=MSDAORA.1;Data Source=ora9isjl;User ID=test;Password=test;")
Dim dcm As OleDb.OleDbCommand = New OleDb.OleDbCommand()
dcn.Open()
Dim name As String
Dim user_name As String
Dim ip_address As String
Dim phy_address As String
Dim local_address As String
Dim password As String
user_name = CType(e.Item.Cells(0).FindControl("TextBox1"), TextBox).Text
ip_address = CType(e.Item.Cells(0).FindControl("TextBox2"), TextBox).Text
phy_address = CType(e.Item.Cells(0).FindControl("TextBox3"), TextBox).Text
local_address = CType(e.Item.Cells(0).FindControl("TextBox4"), TextBox).Text
password = CType(e.Item.Cells(0).FindControl("TextBox5"), TextBox).Text
name = e.Item.Cells(0).Text
dcm.CommandText = "update web_db set user_name='" & user_name & "',ip_address='" & ip_address & "',phy_address='" & phy_address & "',local_address='" & local_address & "',password='" & password & "'where name='" & name & "'"
dcm.Connection = dcn
dcm.ExecuteNonQuery()
Me.RegisterStartupScript("pop", "<script>alert('恭喜你,记录更新成功!');</script>")
editDataGrid.EditItemIndex = -1
editDataGrid_DataBinding()
addButton.Visible = True
End Sub
Private Sub editDataGrid_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles editDataGrid.DeleteCommand
Dim dcn As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=MSDAORA.1;Data Source=ora9isjl;User ID=test;Password=test;")
Dim dcm As OleDb.OleDbCommand = New OleDb.OleDbCommand()
dcn.Open()
Dim name As String
editDataGrid.EditItemIndex = -1
name = e.Item.Cells(0).Text
dcm.CommandText = "delete from web_db where name='" & name & "'"
dcm.Connection = dcn
dcm.ExecuteNonQuery()
Me.RegisterStartupScript("pop", "<script>alert('删除成功!');</script>")
editDataGrid_DataBinding()
Private Sub DataGrid1_ItemCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemCreated
Select Case e.Item.ItemType
Case ListItemType.Item, ListItemType.AlternatingItem, ListItemType.EditItem
Dim myTableCell As TableCell
myTableCell = e.Item.Cells(5)
Dim myDeleteButton As LinkButton
myDeleteButton = myTableCell.Controls(0)
myDeleteButton.Attributes.Add("onclick", "return confirm('您确定要删除这条记录吗?');")
End Select
End Sub