这几天敲机房收费的基本数据设定和注册窗体时,遇到一个让我头晕的问题,如下图的提示:
为什么提示错误后会定位在模块的这句话?
在模块中,上面这句话的作用是对数据库在进行SQL语句时进行查询。那这句话又错在哪?按网上的方法,出现这个错误的原因是:配置ODBC时没有将默认的数据库设置为当前使用的数据库;另一方面,设置的服务器不是给定的服务器地址。但这个方法并不能解决我的错误。
后来发现原来查询语句的问题,将查询数据库的语句的出场顺序调整正确就可以解决“对象名无效”的问题。
而数据库空值的问题出在数据库的表中。窗体中需要六列,而数据的表中竟有9列,如下图
提示空值就是因为数据库“允许空值”设置为不允许,如果不改变这里的设置又该怎么办?下面是要解决这个问题的代码:
1.不更改数据库中的设置,那么就要想办法将head、date、time这三项都赋值给别的,使其运行时不是空值。
那么先在模块中声明userhead public userhead as string
然后再将登录的窗体中的代码改成下面的这些:
if trim(objRS.fields(1))=trim(txtPW.text) then
OK =true
g_strName=trim(txtPW.text)
userhead=objRS.fields(4) '因为head在数据库的表中是第五行
objRS.close
me.hide
frmMain.show
最后将基本数据设定的窗体中“确定”按钮的代码修改如下:
mrc.addnew
mrc.fields(0)=Richtextbox1.text
mrc.fields(1)=RichTextBox2.text
……
mrc.fields(6)=userhead ‘数据表中的第七八九行
mrc.fields(7)=date
mrc.fields(8)=day ’这样的赋值解决空值问题
和学生信息管理系统相比,机房收费功能更加全面,当然遇到的问题也就更多,所以发现问题及时解决问题才是王道,大家一起努力吧!!