VB.NET中用ExecuteScalar统计Access记录数，限制单条插入的问题排查

你的代码存在几个关键问题，导致功能无法正常运行，下面逐一说明并给出修正方案：

问题点分析 #

• 记录数判断逻辑完全错误：你写的If count = CInt(cmd.ExecuteScalar() > 1)完全不符合需求。cmd.ExecuteScalar() >1返回的是布尔值（True/False），转成Integer后是1/0，而count初始值是0，这意味着只有当记录数>1时，右边是1，0≠1，永远触发不了禁止插入的提示；反之记录数≤1时右边是0，0=0，会错误进入禁止逻辑，完全搞反了。而且你根本没把查询到的记录数赋值给count变量。
• 重复打开数据库连接：统计记录数时已经调用了con.Open()，else块里又执行con.Open()，会抛出"连接已打开"的异常。
• 多余的手动关闭连接：Using块会自动释放OleDbCommand资源并关闭关联的连接，最后再调用con.Close()属于画蛇添足，甚至可能引发错误。
• 命令对象复用隐患：同一个OleDbCommand先执行查询再改SQL执行插入，容易出现参数残留或SQL语法混淆的问题，建议分开创建命令对象。

修正后的完整代码 #

Private Sub Btnsave_Click(sender As Object, e As EventArgs) Handles Btnsave.Click
    ' 空值校验
    If String.IsNullOrEmpty(txtWCSKILL.Text) OrElse 
       String.IsNullOrEmpty(txtWCEXPERIENCE.Text) OrElse 
       String.IsNullOrEmpty(txtWCAPPEARANCE.Text) OrElse 
       String.IsNullOrEmpty(txtWCEDUCATION.Text) Then
        MessageBox.Show("WSKILL、WEXPERIENCE、WAPPEARANCE、WEDUCATION 不能为空。", "提示",
            MessageBoxButtons.OK, MessageBoxIcon.Warning)
        txtWCSKILL.Focus()
        Exit Sub
    End If

    ' 统计现有记录数
    Dim recordCount As Integer
    Using countCmd As New OleDbCommand("Select COUNT(*) FROM tblWeightingCriteria", con)
        Try
            con.Open()
            recordCount = CInt(countCmd.ExecuteScalar())
        Catch ex As Exception
            MessageBox.Show("统计记录数失败：" & ex.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        Finally
            con.Close() ' 先关闭连接，避免后续插入时冲突
        End Try
    End Using

    ' 判断是否超过1条记录
    If recordCount >= 1 Then
        MessageBox.Show("已存在一条记录，无法再插入！", "提示",
            MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Exit Sub
    End If

    ' 执行插入操作
    Using insertCmd As New OleDbCommand(
        "INSERT INTO tblWeightingCriteria([WCSKILL],[WCEXPERIENCE],[WCAPPEARANCE],[WCEDUCATION]) 
         VALUES(@WCSKILL,@WCEXPERIENCE,@WCAPPEARANCE,@WCEDUCATION)", con)
        ' 添加参数
        insertCmd.Parameters.AddRange(New OleDbParameter() {
            New OleDbParameter("@WCSKILL", DbNullOrStringValue(txtWCSKILL.Text)),
            New OleDbParameter("@WCEXPERIENCE", DbNullOrStringValue(txtWCEXPERIENCE.Text)),
            New OleDbParameter("@WCAPPEARANCE", DbNullOrStringValue(txtWCAPPEARANCE.Text)),
            New OleDbParameter("@WCEDUCATION", DbNullOrStringValue(txtWCEDUCATION.Text))
        })

        Try
            con.Open()
            Dim result = insertCmd.ExecuteNonQuery()
            If result = 0 Then
                MsgBox("未插入任何数据！")
            Else
                MsgBox("数据插入成功！")
            End If
        Catch ex As Exception
            MsgBox("插入失败：" & ex.Message, MsgBoxStyle.Exclamation)
        Finally
            con.Close()
        End Try
    End Using
End Sub

额外优化建议 #

• 用String.IsNullOrEmpty()代替直接判断空字符串，逻辑更严谨。
• 统计和插入操作分开使用独立的OleDbCommand对象，避免资源冲突。
• 添加Finally块确保连接无论成功失败都会关闭，防止连接泄漏。
• 错误提示信息更具体，方便排查问题。

内容的提问来源于stack exchange，提问作者roy