学生优化（七）-----修改数据界面，显示更新成功的两个问题

最新推荐文章于 2023-12-21 13:53:19 发布

企鹅要去银河思考人生！！！

最新推荐文章于 2023-12-21 13:53:19 发布

阅读量860

点赞数

本文链接：https://blog.csdn.net/weixin_44663188/article/details/100033228

版权

本文探讨了在学生数据修改界面遇到的两个问题：一是未修改数据却显示更新成功，二是取消修改后再更新仍提示成功。解决方案包括增加查询条件进行判重，以及使用mcclean标志判断数据是否改动，防止误报更新成功。

摘要由CSDN通过智能技术生成

1.没有修改数据依旧显示更新成功

修改数据界面点击修改记录---->更新数据，这期间没有修改数据，仍然会提示更新成功

解决方法：增加查询语句的条件数，然后进行判重。

Private Sub cmdUpdate_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrcc As ADODB.Recordset
If mrc.EOF And mrc.BOF Then
        str1 = MsgBox("没有课程信息，是否添加课程信息", vbOKCancel, "警告")

         If str1 = vbOK Then
             frmAddcourseinfo.Show
            frmModifycourseinfo.Hide
        
         End If
Else
   '判断是否处于修改状态   mcclean=false时表示处于修改状态
    If mcclean Then
        MsgBox "请先修改课程信息", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    End If
    '判断课程编号是否为空
    If Not Testtxt(txtCourseno.Text) Then
        MsgBox "请先修改课程编号", vbOKOnly + vbExclamation, "警告"
        txtCoursename.SetFocus
        Exit Sub
    End If
    If Not Testtxt(txtCour