DataGridView的增加,修改,删除命令指定SQL语句

最新推荐文章于 2022-03-02 21:33:08 发布

emailqjc

最新推荐文章于 2022-03-02 21:33:08 发布

阅读量1.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： vb.net技巧文章标签： sql exception

本文链接：https://blog.youkuaiyun.com/emailqjc/article/details/5349148

vb.net技巧专栏收录该内容

3 篇文章

订阅专栏

本文详细介绍了如何通过用户确认、数据库操作等步骤实现商品数据的保存与更新，包括使用SQL命令进行插入、修改和删除操作，并记录了系统操作日志。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'保存数据
    Private Sub Save()
        Try
            If MsgBox("确定要保存所修改的数据吗？", MsgBoxStyle.Question Or MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.YesNo, "系统提示") = MsgBoxResult.Yes Then
                GridView.Rows(0).Cells("spbm").Selected = True
                Dim gCummand As New SqlClient.SqlCommandBuilder(gDataAdapter)
                With gDataAdapter
                    Dim parameterU As SqlClient.SqlParameter
                    '重新指定修改的SQL命令
                    .UpdateCommand = New SqlClient.SqlCommand("P_SetSJCXinfo", eCMyData.CreateConnection())
                    .UpdateCommand.CommandType = CommandType.StoredProcedure
                    parameterU = .UpdateCommand.Parameters.Add("@v_type", SqlDbType.Char, 2)
                    parameterU.Value = "20"
                    parameterU = .UpdateCommand.Parameters.Add("@v_sjbh", SqlDbType.Char, 10)
                    parameterU.Value = vSJBH
                    .UpdateCommand.Parameters.Add("@v_spbm", SqlDbType.Char, 10, "spbm")
                    .UpdateCommand.Parameters.Add("@v_cxjg", SqlDbType.Money, 8, "cxjj")
                    .UpdateCommand.Parameters.Add("@v_startrq", SqlDbType.SmallDateTime, 4, "startdate")
                    .UpdateCommand.Parameters.Add("@v_endrq", SqlDbType.SmallDateTime, 4, "enddate")
                    .UpdateCommand.Parameters.Add("@v_cxtype", SqlDbType.Char, 2, "cxtype")
                    .UpdateCommand.Parameters.Add("@v_userid", SqlDbType.VarChar, 10, "userid")
                    parameterU = .UpdateCommand.Parameters.Add("@v_recordid", SqlDbType.UniqueIdentifier, 16, "recordid")
                    parameterU.SourceVersion = DataRowVersion.Original
                    .UpdateCommand.UpdatedRowSource = UpdateRowSource.None

                   '重新指定删除的SQL命令
                    'deleteCommand
                    .DeleteCommand = New SqlClient.SqlCommand("UPDAte eCSjghspcxinfo SET ztbz='F',ztrq=getdate(),userid=@userid WHERE recordid= @recordid", eCMyData.CreateConnection())
                    parameterU = .DeleteCommand.Parameters.Add("@userid", SqlDbType.VarChar, 10)
                    parameterU.Value = eCMySysRole.AppUserID
                    parameterU = .DeleteCommand.Parameters.Add("@recordid", SqlDbType.UniqueIdentifier, 16, "recordid")
                    parameterU.SourceVersion = DataRowVersion.Original
                    .DeleteCommand.UpdatedRowSource = UpdateRowSource.None

'重新指定插入的SQL命令
.InsertCommand = New SqlClient.SqlCommand("P_SetSJCXinfo", eCMyData.CreateConnection())

                    .InsertCommand.CommandType = CommandType.StoredProcedure
                    parameterU = .InsertCommand.Parameters.Add("@v_type", SqlDbType.Char, 2)
                    parameterU.Value = "00"
                    parameterU = .InsertCommand.Parameters.Add("@v_sjbh", SqlDbType.Char, 10)
                    parameterU.Value = vSJBH
                    .InsertCommand.Parameters.Add("@v_spbm", SqlDbType.Char, 10, "spbm")
                    .InsertCommand.Parameters.Add("@v_cxjg", SqlDbType.Money, 8, "cxjj")
                    .InsertCommand.Parameters.Add("@v_startrq", SqlDbType.SmallDateTime, 4, "startdate")
                    .InsertCommand.Parameters.Add("@v_endrq", SqlDbType.SmallDateTime, 4, "enddate")
                    .InsertCommand.Parameters.Add("@v_cxtype", SqlDbType.Char, 2, "cxtype")
                    .InsertCommand.Parameters.Add("@v_userid", SqlDbType.VarChar, 10, "userid")
                    .InsertCommand.UpdatedRowSource = UpdateRowSource.None

                    .UpdateBatchSize = 10
                End With
                GridView.EndEdit()
                Me.BindingSource1.EndEdit()
                gDataAdapter.Update(gDataSet)

Me.LoadChildSPinfo()

                gEdited = False
                eCMyPublicFun.SetSysOperatLog("特供价商品设置", "商家合同:" + vSJBH, eCMySysRole.AppUserID, eCMySysRole.AppUserName)
                MsgBox("本次保存数据成功！", MsgBoxStyle.Information, "系统提示")
            End If
        Catch ex As Exception
            MsgBox("数据保存失败！" + ex.Message, MsgBoxStyle.Exclamation, "系统提示")
        End Try
    End Sub