学生信息管理系统问题集锦

系统敲完了,也调试完了,在完成系统的过程中遇到不少的问题,做一下总结。

1、With 未设置,实时错误‘91’

 1)、数据库的ODBC配置出现错误,没有配置好,与数据库的连接没有连接好,就会出现这样的问题

 2)、与代码中从数据库中调用数据的语句有关:

前面的空格不应该有

where 后面有条件,所以与引号间必须有空格

2、多步OLE DB操作产生错误。

  出现这个问题时,调试的指针会指在写的代码的某一行,

这是因为每一个数据都有各自的数据类型,字段的大小都有限制,但你超出这个限制的时候,就会出现上述的情况!

3、实时错误“3021”

出现这个问题的时候,一般是你的数据库里面已经为空,当你继续执行Form_Load()事件或者在你删除数据时,把数据库中的数据已经全部删除之后,会出现这种情况!对于这种情况,我对Form_Load()和deleteCommand_Click()两个事件下的过程做了相应的改变

Private Sub From_Load()
      txtsql="select * from class_info "
      set mrc=ExecuteSQL(txtSQL,MsgText)
      If mrc.EOF And mrc.EOF then       '指针未在记录集之中,没有记录,说明数据库为空

          MsgBox"数据库为空,请先添加班级信息!",vbOkonly + vbExclamation,"警告"
          mrc.Close
          Frame2.Enabled=False          '使所有的控件按钮无法使用
          Frame3.enabled=False
      Else
          mrc.MoveFirst
          Call viewData
          myBookmark=mrc.Bookmark 
          mcclean=True
      End If
 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
Private Sub deleteCommand_Click()
     
     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

                
                txtSQL = "select * from class_info "    '重新从数据库中提取数据,相当于刷新      
                Set mrc = ExecuteSQL(txtSQL, MsgText)   '得到student表,并显示出来
                
                If mrc.EOF And mrc.BOF Then
                    MsgBox "数据库为空,请先添加班级信息!", vbOKCancel, "警告"
                    mrc.Close                           '关闭连接
                    Frame2.Enabled = False
                    Frame3.Enabled = False
                    
                    txtClassno.Text = ""
                    comboGrade.Text = ""
                    txtDirector.Text = ""
                    txtClassroom.Text = ""
                Else
                    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

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏SeanCheney的专栏

Python工程的文档结构

Python工程的文档结构,可以参考https://stackoverflow.com/questions/193161/what-is-the-best-pr...

26620
来自专栏企鹅号快讯

盘点开发者最爱的 IntelliJ 插件 Top 10

关键时刻,第一时间送达! IntelliJ的十大插件?相信每个人都有自己的选择。我们也同样如此。在这里,我们为您带来我们认为的十大IntelliJ插件。 如果你...

19970
来自专栏lulianqi

一个基于.NET平台的自动化/压力测试系统设计简述

AutoTest是一个基于.NET平台实现的自动化/压力测试的系统,可独立运行于windows平台下,支持分布式部署,不需要其他配置或编译器的支持。(本质是一个...

24310
来自专栏红色石头的机器学习之路

Jupyter notebook入门教程(上)

本文将分上下两部分简单介绍Jupyter notebook的入门教程,英文原文出处: Getting started with the Jupyter note...

42200
来自专栏京东技术

Flutter图片缓存 | Image.network源码分析

Android高级工程师,6年以上开发经验,有丰富的代码重构和架构设计经验,负责京东商城我的京东的开发工作,热衷于学习和研究新技术。

2.5K20
来自专栏黑泽君的专栏

day16_ajax学习笔记

JavaScript 中 XMLHttpRequest对象是整个Ajax技术的核心,它提供了异步发送请求的能力。

16930
来自专栏量化投资与机器学习

【精心解读】关于Jupyter Notebook的28个技巧

Jupyter具有很强的可扩展性,支持许多编程语言,可以很容易地托管在计算机上或几乎所有的服务器上,只需要拥有ssh或http访问权限。 最重要的是,它是完全免...

2.3K70
来自专栏java架构师

解决ASP.NET中的各种乱码问题

经常发现有人被乱码困扰着,而我感觉比较幸运,很少为此烦恼过。 在这篇博客中,我将把我想到的一些与乱码有关的经验总结出来,供大家参考。 页面显示乱码问题 在一...

40360
来自专栏有趣的django

Django+Bootstrap+Mysql 搭建个人博客 (六)

87020
来自专栏柠檬先生

vuex 使用文档

安装 直接下载CDN 引用   <script src="/path/to/vue.js"></script>   <script src="/path/to/...

624100

扫码关注云+社区

领取腾讯云代金券