注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

吕世良廊坊师范学院信息技术提高班十三期

 
 
 

日志

 
 
关于我

自己比较有自信心

网易考拉推荐

学生系统常出现的错误  

2016-12-03 16:47:01|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
            1.找不到DLL入口点 GutUserNamea in adupi32.dll
问题:
问题 - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期
解决方法:没有空格(引号与所引内容之间无空格)
错误代码:
 问题 - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期
正确代码:
 问题 - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期
 2.
问题(一)学生管理 - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期
 
 错误原因:记录中根本没有记录(执行该步前没添加或都删除)
解决办法:添加判断,判断数据中是否有需要查询的表中数据(总之目的保证表中有记录)

Private Sub Form_Load()运行修改学籍窗体

Dim txtSQL As String

Dim MsgText As String

Dim str1 As String      '自己加的

    '得到student

txtSQL = "select * fromstudent_Info"

Set mrc = ExecuteSQL(txtSQL, MsgText)

    If mrc.EOF = False Then  先判断是否还有记录,如果还有记录

        mrc.MoveFirst

        Call viewData

        myBookmark = mrc.Bookmark

        mcclean=True

     

     Else                                      如果没有记录

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

         If str1 = vbOK Then    点击确定

            unload frmModifysinfo         当前窗体卸载

            frmAddsinfo.Show             添加学籍窗体运行

         Else                                      点击取消

            Unload frmModifysinfo         当前窗体卸载

        End If      

   End If

End Sub

3.

 
解决办法:在声明一个ADODB数据集时没有实例化,即没写NEW,如:
Dim rst as New Adodb.recordset
4、
问题集(二)学生管理 - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期
 错误地方:Set cnn = ADODB.Connection(声明了connection,但内存中不存在)
错误原因:没有实例化,内存中不存在,要想使用,必须实例化
解决办法:Set cnn = New ADODB.Connection
5.
问题集(二)学生管理 - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期 问题集(二)学生管理 - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期
 
错误原因:1.数据库连接没连接不正确或不正确
                 2.ODBC配置不对
                 3.代码编写错误(如查询的是student_id 你写成了strdent_id)
解决办法:@1.重新连接数据库
                  @2.重新配置ODBC
                 @3.查看 ConnectString = "FileDSN=student.dsn;UID=sa;PWD=123 词句正确,(不能有空格)
6.日期溢出
问题集(二)学生管理 - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期
错误原因:数据库中ru_date 数据类型设置的是datetime,Datetime表示的日期范围从公元1753年1月1日00:00:00.000到9999年12月31日23:59:59.997 ,精确到3.33毫秒,它需要8个字节的存储空间
 解决方法:添加代码(CDate()函数,将类型转换成Date子类型的Variant型,DateDiff()函数,返回两个日期之间的天数

If DateDiff("d",CDate(txtBorndate.Text), "1753-01-01") > 0 Then

        MsgBox "出生日期请输入1753年以后的年份!", vbOKOnly + vbExclamation, "警告"

       txtBorndate.SetFocus

   Exit Sub

7.
问题集(二)学生管理 - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期
 错误原因:参数未定义(其实仔细读一下错误提示,很有帮助,按着提示意思找,有必要;有别与对象)
解决办法:嘻嘻,定义一下就行了
8、实时错误 438
问题集(三) - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期  问题集(三) - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期
错误原因:根本没有得到mrc 记录集,where 后面没空格
此问题总结:就是该对象不存在
9、实时错误 3265
问题集(三) - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期
错误之处:
    问题集(三) - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期
 解决方法:
    问题集(三) - 13期 王如霜 - 王如霜 廊坊师范学院信息技术提高班十三期

  评论这张
 
阅读(10)| 评论(2)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018