VB.net web form
VS2019
数据库:ACC2016
GridView控件可以获取数据库数据,点编辑后可以编辑数据但点更新后数据不能更新,哪位能帮帮忙啊,谢谢!
代码没有报错,可以正常执行但就是不更新数据
'取肖代码
Protected Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit
GridView1.EditIndex = -1
GridRefesh()
End Sub
'编辑代码
Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing
Session("oldNo") = GridView1.Rows(e.NewEditIndex).Cells(1).Text
GridView1.EditIndex = e.NewEditIndex
'当前编辑行背景色高亮
GridView1.EditRowStyle.BackColor = Drawing.Color.FromName("#F7CE90")
' GridView1.EditRowStyle.BackColor = #F7CE90
GridRefesh()
End Sub
'更新
Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating
Dim oldno As String = Session("oldNo").ToString
Dim a As TextBox = GridView1.Rows(e.RowIndex).Cells(1).Controls(0)
Dim currno As String = a.Text
Dim b As TextBox = GridView1.Rows(e.RowIndex).Cells(2).Controls(0)
Dim currname As String = b.Text
Dim tablename As String = "用户信息表"
Dim strr As String
Dim ds As New DataSet()
Dim addrow As DataRow = Commonmodule.mytable.NewRow
strr = "update 用户信息表 set 用户名=@用户名,密码=@密码,单位名称=@单位名称,备注=@备注,联系人=@联系人,联系人电话=@联系人电话,联系人电话2=@联系人电话2,送货地址=@送货地址,用户状态=@用户状态,充值余额=@充值余额" ' where ID=@ID"
Commonmodule.SQLOpera(strr, tablename)
Try
mytable.Rows.Add(addrow)
Commonmodule.mycmdbuilder = New OleDb.OleDbCommandBuilder(Commonmodule.mydap)
Commonmodule.mydap.Update(Commonmodule.mydataset, tablename)
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Information)
End Try
GridView1.EditIndex = -1
GridRefesh()
End Sub
GridRefesh方法
Private Sub GridRefesh()
Dim tablename As String = "用户信息表"
Dim strr As String
Dim ds As New DataSet()
strr = "select ID,用户名,单位名称,联系人,联系人电话,联系人电话2,送货地址,用户状态,充值余额,备注 from 用户信息表 "
Commonmodule.SQLOpera(strr, tablename)
mydap.Fill(ds)
GridView1.DataSource = ds
GridView1.DataBind()