跪求 诚心跪求
我想通过DATAGRID控件更新记录,为什么数据库里没有更新过来,更新时也没有错误提示,请高手看看。
我做了两种不同的方法去更新,但都没有成功,也没有错误提显,代码如下:
第一个按钮
==============================
Private Sub DataGrid1_UpdateCommand1(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
Dim code As TextBox = e.Item.Cells(1).Controls(0)
Dim desc As TextBox = e.Item.Cells(2).Controls(0)
Dim aid As TextBox = e.Item.Cells(0).Controls(0)
Dim scode As String = code.Text
Dim sdesc As String = desc.Text
Dim sid As String = aid.Text
str = "update tregion set region_code=" & "'" & scode & "'" & ", region_desc=" & "'" & sdesc & "'" & " where id= " & "'" & sid & "'"
SqlConnection1.Close()
SqlConnection1.Open()
cmd = New SqlCommand(str, SqlConnection1)
inta = cmd.ExecuteNonQuery()
' DataGrid1.EditItemIndex = -1
ds.Tables("tregion").Clear()
mydatabind()
TextBox5.Text = inta ‘显示更新是否成功
SqlConnection1.Close()
End Sub
=======================
第二个按钮 ,这个比较长哦
================
Dim ds As New DataSet
Dim dr As DataRow
Dim inta, intb As Integer
Dim str, strr As String
Dim cmd As New SqlCommand
Dim datav As DataView
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
' If Not Page.IsPostBack Then
mydatabind()
' End If
End Sub
Private Sub DataGrid1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.SelectedIndexChanged
End Sub
Sub mydatabind()
SqlDataAdapter1.Fill(ds, "tregion")
datav = New DataView(ds.Tables("tregion"))
datav.Sort = "region_code"
DataGrid1.DataSource = datav
DataGrid1.DataBind()
DataGrid1.Columns(0).Visible = False
End Sub
Private Sub DataGrid1_CancelCommand(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs)
DataGrid1.EditItemIndex = -1
ds.Tables("tregion").Clear()
mydatabind()
End Sub
Private Sub DataGrid1_EditCommand(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs)
DataGrid1.EditItemIndex = e.Item.ItemIndex
ds.Tables("tregion").Clear()
mydatabind()
End Sub
Private Sub DataGrid1_CancelCommand1(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.CancelCommand
DataGrid1.EditItemIndex = -1
ds.Tables("tregion").Clear()
mydatabind()
End Sub
Private Sub DataGrid1_EditCommand1(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.EditCommand
DataGrid1.EditItemIndex = e.Item.ItemIndex
ds.Tables("tregion").Clear()
mydatabind()
End Sub
Private Sub DataGrid1_UpdateCommand1(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
Dim a1 As TextBox = e.Item.Cells(0).Controls(0)
Dim a2 As TextBox = e.Item.Cells(1).Controls(0)
Dim a3 As TextBox = e.Item.Cells(2).Controls(0)
Dim s1 As String = a1.Text
Dim s2 As String = a2.Text
Dim s3 As String = a3.Text
datav.RowFilter = "id ='" & s1 & "'"
If datav.Count > 0 Then
datav.Delete(0)
TextBox5.Text = "bb"
End If
datav.RowFilter = ""
dr = ds.Tables("tregion").NewRow
dr("region_code") = s2
dr("region_desc") = s3
ds.Tables("tregion").Rows.Add(dr)
inta = SqlDataAdapter1.Update(ds, "tregion")
If inta > 0 Then
Response.Write("<script>alert('ok');</script>")
End If
ds.Tables("tregion").Clear()
DataGrid1.EditItemIndex = -1
mydatabind()
End Sub
==================
都没有更新成功,但也没有错误提示,望高手指点啊