写入冲突/修改表已提示有相同项仍进行修改

麥稥　发表于：2012-02-21 16:29:19 　

复制

第一次发帖用了360 打了几遍都白打了差点扔键盘

言归正传，这里是对一个以产品系列为主键的内饰详细尺寸表进行修改，其中规格料单说字段为附件，用了ADO方法两个记录集判断

先对除了主键附件两字段的所有字段进行判断如果有提示已存在否则进入第二个判断产品系列存在的话进行修改相应字段

否则退出

其中sql语句我是一行的这里换行了应该没问题组合框更新后事件查询各个字段如图1

问题1：修改时判断了有相同项但结果仍进行修改导致两个相同项为什么难道我的判断逻辑错误？

问题2：修改后选择组合框查询提示写入冲突就是第二个图为何应该是哪里的问题？

请各位帮忙看看多谢第一次发帖有什么不对不妥的地方见谅

If IsNull(Combo114) Then
        MsgBox "请选择产品系列！", vbOKOnly, "温馨提示"
        Me.Combo114.SetFocus
    Else
        Dim sql As String
        Dim rs As ADODB.Recordset
        Set rs = New ADODB.Recordset
        sql = "select * From 内饰详细尺寸表 Where 枕头尺寸='" & Me.Text65 & "' and 枕头重量='" & Me.Text67 & "' and 床垫尺寸='" & Me.Text73 & "' and 床垫重量='" & Me.Text71 & "' and 前盖顶='" & Me.Text51 & "' and 后盖顶='" & Me.Text53 & "' and 前盖围='" & Me.Text55 & "' and 后盖围='" & Me.Text57 & "' and 前盖='" & Me.Text61 & "' and 后尾='" & Me.Text63 & "' and 盖被='" & Me.Text69 & "' and 小围布='" & Me.Text75 & "'"
        rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        If rs.RecordCount = 1 Then
            MsgBox "此产品系列信息已存在，请重新输入！", vbOKOnly, "温馨提示"
            rs.Close
            Set rs = Nothing
            Me.Combo114.SetFocus
        Else
            Dim sql1 As String
            Dim rs1 As ADODB.Recordset
            Set rs1 = New ADODB.Recordset
            sql1 = "select * From 内饰详细尺寸表 Where 产品系列='" & Me.Combo114 & "'"
            rs1.Open sql1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
            If rs1.RecordCount = 1 Then
                rs1("枕头尺寸") = Me.Text65
                rs1("枕头重量") = Me.Text67
                rs1("床垫尺寸") = Me.Text73
                rs1("床垫重量") = Me.Text71
                rs1("前盖顶") = Me.Text51
                rs1("后盖顶") = Me.Text53
                rs1("前盖围") = Me.Text55
                rs1("后盖围") = Me.Text57
                rs1("前盖") = Me.Text61
                rs1("后尾") = Me.Text63
                rs1("盖被") = Me.Text69
                rs1("小围布") = Me.Text75
                rs1.Update
                rs1.Close
                Set rs1 = Nothing
                MsgBox "修改成功！", vbOKOnly, "温馨提示"
            Else
                MsgBox "产品系列不存在，请重新选择！", vbOKOnly, "温馨提示"
                Me.Combo114.SetFocus
            End If
        End If
    End If

Top

纵云梯发表于：2012-02-21 22:49:42

就这个例子，大哥你的编程逻辑是有问题的。

第一个错误：

当你第一次用ADODB打开表【内饰详细尺寸表】时你用rs.RecordCount = 1 来判断你的条件是否成立，成立你就来个【MsgBox】然后用【rs.Close】来结束这个ADODB，但你有没有想过当它不成立时走到你的【Else】里你有没有同样用【rs.Close】来结束这个ADODB？答案是：无论你用那一种方法（ADO、DAO、等等）打开一个数据集，你必须要关闭它不管你有多小条件或这些条件成立与否。你第一次打开【内饰详细尺寸表】只开不关的做法自然为了第二次打开【内饰详细尺寸表】埋下写入冲突的伏笔（即是说你第一次用ADODB打开的【内饰详细尺寸表】还未关闭你又要用第二个ADODB去打开【内饰详细尺寸表】），如图：

第二个错误：

第二个错误更第一个类似对ADODB数据集只开不关。

Top

纵云梯发表于：2012-02-21 22:54:30

解决方案应该如下（只是应该，因为不知道还有没有其它问题；最好发个例子，准保可以改回回传）：

            rs.Close
            Set rs = Nothing  '你必须在打开下面的【内饰详细尺寸表】表前关闭上面已经打开的【内饰详细尺寸表】表
            Dim sql1 As String
            Dim rs1 As ADODB.Recordset
            Set rs1 = New ADODB.Recordset
            sql1 = "select * From 内饰详细尺寸表 Where 产品系列='" & Me.Combo114 & "'"
            rs1.Open sql1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
            If rs1.RecordCount = 1 Then
                rs1("枕头尺寸") = Me.Text65
                rs1("枕头重量") = Me.Text67
                rs1("床垫尺寸") = Me.Text73
                rs1("床垫重量") = Me.Text71
                rs1("前盖顶") = Me.Text51
                rs1("后盖顶") = Me.Text53
                rs1("前盖围") = Me.Text55
                rs1("后盖围") = Me.Text57
                rs1("前盖") = Me.Text61
                rs1("后尾") = Me.Text63
                rs1("盖被") = Me.Text69
                rs1("小围布") = Me.Text75
                rs1.Update
                rs1.Close
                Set rs1 = Nothing
                MsgBox "修改成功！", vbOKOnly, "温馨提示"
            Else
                MsgBox "产品系列不存在，请重新选择！", vbOKOnly, "温馨提示"
                Me.Combo114.SetFocus
            End If