插入数据库:
在itemcommand
If e.CommandName = "Insert" Then
Dim t1 As TextBox = e.Item.FindControl("textbox2")
Dim t2 As TextBox = e.Item.FindControl("textbox4")
Dim t3 As TextBox = e.Item.FindControl("TextBox6")
Dim a As Label = e.Item.FindControl("label1")
a.Text = "SSSS"
cnn.Open()
Dim cmd As New OleDbCommand("insert into log (usercode,pwd,username) values('" & t1.Text & "','" & t2.Text & "','" & t3.Text & "' )", cnn)
cmd.ExecuteNonQuery()
cnn.Close()
BindGrid()
Session("1") = t1.Text
Session("2") = t2.Text
Session("3") = t3.Text
Dim item As DataGridItem
For Each item In DataGrid1.Controls(0).Controls
If (item.ItemType = ListItemType.Footer) Then
Dim txt1 As TextBox
Dim txt2 As TextBox
Dim txt3 As TextBox
txt1 = item.FindControl("textbox2")
txt1.Width = Unit.Pixel(60)
txt1.TextMode = TextBoxMode.SingleLine
If Not Session("1") Is Nothing Then
txt1.Text = Session("1")
End If
txt2 = item.FindControl("textbox4")
txt2.Width = Unit.Pixel(60)
txt2.TextMode = TextBoxMode.SingleLine
If Not Session("2") Is Nothing Then
txt2.Text = Session("2")
End If
txt3 = item.FindControl("textbox6")
txt3.Width = Unit.Pixel(60)
txt3.TextMode = TextBoxMode.SingleLine
If Not Session("3") Is Nothing Then
txt3.Text = Session("3")
End If