今天我要给大家介绍的是我们在学生信息管理系统和机房收费系统中经常见到的两个个自定义函数txtSQL和MsgText。相信大家对它都不陌生,因为在机房收费系统中用到它的几率太大了,只要存在调用数据库的事件发生就会用到它。
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from checkweek_Info where date between'" & datestar & "' and '" & dateend & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
在现在的机房系统中我们经常会遇到一个错误类型就是它(下图),而假如我们不知该从何下手去调错的话,不妨先把我们的鼠标放在msgtext上,看看我们的错误原因,然后再把鼠标放在txtSQL上,它会提示我们在哪句上出现了错误,这个时候我们就要仔细得找找这句话当中的错误,在这里给大家提供几个错误原因供大家参考:
1、数据库连接出现了问题,在做项目的前期中一定要把数据库连接正确
2、仔仔细细的检查一下我们代码中是否出现了“空格”的错误,多或少的问题,例如:txtSQL=“select * from student_info wherecardno=”
3、打开SQL Server检查一下数据库中表的名字是否跟自己写的一样
还有在这里提醒大家,在敲代码的时候一定要仔细认真,个人观点:敲窗体要敲完一个调一个,别等着敲完全部在下手挑错。