学生收费系统错误集合

          这段时间忙着做这个系统终于做完了，师傅还进行了一次验收，其实我总结的错误一共就是以下这几个。

1

如果再登陆的时候遇到这个问题恭喜你数据库没有连好，我们在模块中有关于数据库连接的语句一定要看好sa和password的值是多少，还有我们这次的连接数据库是用dsn来连接的还有ODBC数据源，我感觉ODBC数据源就是一个桥梁连接数据库和VB的然后数据库的   Dim cnn As ADODB.Connection ,Dim rst As ADODB.Recordset.定义的变量就是用来连接数据库和VB的。

2.还有就是再调代码的同时有以下一个错误

当时我开始的时候并不知道他是什么意思后来才知道EOF是标记的最后一行而BOF是第一行所以按照错误提示要让EOF 变成真所以我想了一下就完成了以下代码

If mrc.EOF = True Then
MsgBox "表中已无记录，请添加记录"
frmaddsinfo.Show
Else


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
    If mrc.EOF = True Then ‘如果为真就让被填入的为空并弹出另外添加的窗体

    txtClassno.Text = ""
    Combo1.Text = ""
    txtD.Text = ""
    txtclassroom.Text = ""


    'Call viewData
    End If
    Else
    myBookmark = mrc.Bookmark
    mrc.MovePrevious
    mrc.Delete
    mrc.Bookmark = myBookmark
    Call viewData
    End If
    Else
    mrc.Bookmark = myBookmark
    Call viewData
    End If
End If