VB学生系统3021解法

**3021问题源：

---

---

**3021固定代码处：其他的也同解

---

---

解决方法：
一、正常解法：
1.

Private Sub Form_Load()
Dim txtSQL As String
Dim MsgText As String

'SQL语句
txtSQL = "select * from student_info"  '执行查询操作
Set mrc = ExecuteSQL(txtSQL, MsgText) '移到第一天记录

   If mrc.EOF = False Then
    mrc.MoveFirst

    Call viewData

    myBookmark = mrc.Bookmark

    mcclean = Tru

 Else

     str1 = MsgBox("没有学籍信息,是否添加学籍信息？", vbOKCancel, "提示")

     If str1 = vbOK Then

        frmmodifysinfo.Hide
        frmsinfo.Show

     Else

       frmmodifysinfo.Hide

    End If

   End If
End Sub

其次：问题为cmddelete的错误，正确代码如

Private Sub cmdDelete_Click()
On Error GoTo P_Err

mybookmark = mrc.Bookmark
str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
If str2$ = vbOK Then     '首先是先测试是否需要删除记录
        mrc.MoveNext    '如果为最后，则先把当前记录移动到第一个
        If mrc.EOF Then

            mrc.MoveFirst   '书签移动到第一个

            mybookmark = mrc.Bookmark
            mrc.MoveLast   '然后移动到最后

            mrc.Delete     '删除
            mrc.Bookmark = mybookmark   '找到刚才书签
            Call viewData
        Else
            mybookmark = mrc.Bookmark '做标记如果不是最后一个

            mrc.MovePrevious      '标记下一个，因为删除后就要移动到下一个

            mrc.Delete            '删除

            mrc.Bookmark = mybookmark '找回刚才标记的书签
            Call viewData
        End If
Else
    mrc.Bookmark = mybookmark '取消标记
    Call viewData
End If

p_EXIT:
    Exit Sub
P_Err:
    txtName.Text = ""
    txtBornDate.Text = ""
    txtSID.Text = ""
    txtRudate.Text = ""
    txtTel.Text = ""
    txtAddress.Text = ""
    txtComment.Text = ""

    MsgBox "无任何记录!", vbOKOnly + vbCritical, "警告"  '验证无法完成

    GoTo p_EXIT
End Sub

*原因：因为上述中的方法第一个没有定义，第二个缺少东西，所以在这个模块中添加这样的代码就搞定了。*

---

二、解法：

1. 首先是因为数据库的链接问题，因为代码的错误导致我们对数据库很大程度上偏离了想法。

2. 需要修改代码中的数据库连接的地方，修正为何数据库正确的连接

3. 意识到我们学生是为了学习数据库而不是敲代码！