删除DataGridView选中行并更新数据库

来源：懂视网责编：小采时间：2020-11-09 15:00:52

删除DataGridView选中行并更新数据库

删除DataGridView选中行并更新数据库:前面写过一篇文章是DataGridView控件显示数据的，DataGridView在与数据库打交道时会经常出现，也很实用。通过DataGridView对数据库进行更改和查询都比较方便。这里我们需要用DataGridView数据，并通过选中行将数据从数据库中删除。其原理是把选中记录的主

推荐度：

点击下载本文 文档为doc格式

导读删除DataGridView选中行并更新数据库:前面写过一篇文章是DataGridView控件显示数据的，DataGridView在与数据库打交道时会经常出现，也很实用。通过DataGridView对数据库进行更改和查询都比较方便。这里我们需要用DataGridView数据，并通过选中行将数据从数据库中删除。其原理是把选中记录的主

前面写过一篇文章是DataGridView控件显示数据的，DataGridView在与数据库打交道时会经常出现，也很实用。通过DataGridView对数据库进行更改和查询都比较方便。这里我们需要用DataGridView数据，并通过选中行将数据从数据库中删除。其原理是把选中记录的主

前面写过一篇文章是DataGridView控件显示数据的，DataGridView在与数据库打交道时会经常出现，也很实用。通过DataGridView对数据库进行更改和查询都比较方便。

这里我们需要用DataGridView数据，并通过选中行将数据从数据库中删除。

其原理是把选中记录的主键提取出来，然后传给实体，通过实体给D层传值实现对数据库的修改。

下面是各层代码，供大家参考。

接口层代码都是D层的父类方法，这里只给出D层代码：

 '重写删除用户接口方法
 Public Function DelUser(user As Entity.LoginEntity) As Integer Implements IAddDel.DelUser
 Dim strSQL As String = "delete from User_info where userName=@username"
 Dim params() As SqlParameter = {New SqlParameter("@username", user.user_name)}
 Dim helper As New SqlHelper
 Dim int = helper.ExecuteNoQuery(strSQL, CommandType.Text, params)
 Return int
 End Function

抽象工厂代码：

 Private Shared ReadOnly AssemblyName As String = "DAL" '声明程序集名称
 Private Shared ReadOnly db As String = ConfigurationManager.AppSettings("DB") '读取配置文件

 Public Function AddDel() As IAddDel
 Dim className As String = AssemblyName + "." + db + "AddDelDAL"
 Dim iadddel As IAddDel
 iadddel = CType(Assembly.Load(AssemblyName).CreateInstance(className), IAddDel) '反射
 Return iadddel
 End Function

B层代码：

 '判断是否删除成功
 Public Function IsDelUser(ByVal user As Entity.LoginEntity) As Boolean
 Dim int = iadddel.DelUser(user)
 If int = 1 Then
 Return True
 Else
 Return False
 End If
 End Function

U层代码

 Dim k As Integer = gvwUser.SelectedRows.Count
 Dim thisUser As New Entity.LoginEntity
 Dim ub As New BLL.AddDelBLL
 '判断是否有选择记录
 If k > 0 Then
 If MessageBox.Show("删除用户后将无法恢复！是否继续删除？", "提示", MessageBoxButtons.YesNo, _
 MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
 '从下往上删，避免沙漏效应 
 For i As Integer = k To 1 Step -1
 '获取用户名
 thisUser.user_name = gvwUser.SelectedRows(i - 1).Cells("userName").Value.ToString
 '判断选中用户是否为登录用户
 If thisUser.user_name = UserName Then
 MsgBox("当前用户不能被删除，请重新选择！", vbOKOnly + vbExclamation, "系统提示")
 Exit Sub
 Else
 If ub.IsDelUser(thisUser) = True Then
 MsgBox("删除成功！", vbOKOnly + vbInformation, "系统提示")
 Else
 MessageBox.Show("删除失败！", "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
 End If
 '将从数据库中删除的信息从Datagridview1中删除 
 gvwUser.Rows.RemoveAt(gvwUser.SelectedRows(i - 1).Index)
 End If
 Next
 End If
 Else
 MsgBox("请选中要删除的行")
 Exit Sub
 End If
 End Sub

效果如下：

删除前：删除后：