学生信息管理系统错误汇总(二)

错误一:进不去系统

             最近机房刚传完系统。问题却来了,学生信息管理系统数据库配置正确,用户名和密码都正确。但是就是点完确定之后就没反应了。进不去系统,也不报错。

解决方案:点击确定按钮,将确定按钮的default属性改为true。然后运行程序,输完用户名和密码后。点Enter键即可进入系统。点击确定按钮也可进入。

 错误二:实时错误‘3021’

                                                                  

出现此错误是因为:
1.查找的数据库记录为空..可以用 rs.RecordCount 来判断数据是否等于
0

2.查找到数据后,用 Del 命令删除记录后,再引用 Fields 后会出现错误
.

3.已经用MoveFirst 或用 MovePrevious 命令移动至数据库开始后再用 MovePrevious 命令
.

4.已经用MoveLast 或用 MoveNext 命令移动至数据库开始后再用 MoveNext 命令.

 解决方案:添加if语句。

原代码

Private Sub Form_Load()
   
    Dim txtSQL As String
    Dim MsgText As String
   
    txtSQL = "select * from student_Info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)

     mrc.MoveFirst  
     Call viewData  
     myBookmark = mrc.Bookmark '对当前记录进行标记
     mcclean = True '可编辑状态
  end sub 

修改之后

Private Sub Form_Load()
    Dim txtSQL As String
    Dim MsgText As String
    txtSQL = "select * from student_Info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)               '得到student表,并显示出来
   
    'select得到的临时表,游标指向尾记录,在Access中指向第一条
    If mrc.EOF And mrc.BOF Then  '一条IF语句充当错误处理,当无记录时,
mrc.eof=true
                                  '和mrc.bof=true两个条件同时满足!
        MsgBox "无记录!
"
        frmModifysinfo.Show '直接进行下一步,显示窗体
    Else
        mrc.MoveFirst
        Call viewData
        myBookmark = mrc.Bookmark '对当前记录进行标记
        mcclean = True '可编辑状态
    End If
 End Sub

错误三:用户名输入英文单引号时,系统报91错误。

 

从ASCII码中找打要限制的字符,比如限制在textbox中不能输入 “  ’  ”     就可以限制39,就ok了。

                

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 39 Then

         Msgbox " “'是非法字符,请输入合法字符!”",VBokonly ,"警告"    

    end if 

end sub

错误四:在无记录的前提下点击修改。会出现“3021错误”

解决方案:

Private Submodifysinfo_Menu_Click()
txtSQL = "select * from student_Info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.RecordCount = 0 Then
        MsgBox "课程信息不存在,请添加!", vbOKOnly + vbExclamation, "警告
"
        mrc.Close
        Set mrc = Nothing
        frmAddsinfo.Show
        Exit Sub
    Else 
    frmModifysinfo.Show
    End If
End Sub                           点击修改什么信息窗体:倾斜粗体的代码就应相应的跟着改变。

  • 2
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 4
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 4
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值