数据验证技巧

在学生信息管理系统中，有很多地方都需要验证输入信息的，比如说姓名不能输入空的，学号只能输入数字，年月日只能按照规定的的方式输入。

那么我们来看看常用的几种数据验证：

1.判断连接已经打开

动态连接数据库时，需要随时打开数据库，并将其关闭，否则再次打开时将出现“对象打开时，不允许操作”的提示。那么如何判断数据库连接是否打开了呢？使用ADO对象/Connection对象的State属性，可以说明对象状态是否打开。

如果是打开则将其关闭就可以

代码如下:

dim cnn as ADODB.connection

If cnn.State=adStateOpen then

Cnn.Open

End if

2.空数据不允许保存

在数据录入的过程中，如果将空的数据保存到数据表中，有时会引起错误，并为以后的查询和维护带来不便，因此数据保存前，要对空数据进行判断，代码如下：

If trim(text1.text)="" then

msgBox "系统不允许XX名称为空!",,"提示窗口"

Exit Sub

End if

3.判断读取的字段值为空

当用Visual Basic 读取数据库数据时，有的记录值可能为NULL ，如果不处理就显示出来，有时会产生错误。因此在对数据显示之前必须进行判断字段值是否为NULL，判断可用函数IsNull 实现.

(1)再将数据记录的值显示在文本框之前，先判断是否为Null

代码如下：

If IsNull(ADODB.Recordset.Fields("字段名") then

text1.text=""

Else

Text1.text=ADODB.Recordset.Fields("字段名")

End if

(2)在读取数据记录值时，无论该值是否为NULL，都为其加一个空格。

text.text=Adodc1.Recordset.Fields("字段名") & ""

4.判断表中是否有记录

操作记录集时，一般需要在进行具体操作前，判断一下记录集是否空，可以使用Recordset对象的BOF 和EOF 属性，来判断Recordset 对象中是否有数据存在。

(1)代码如下：

Dim mcc AS ADODB.Recordset

If mcc.EOF And mcc.BOF then

msgbox "没有记录"

End if

(2)利用语句"Adodc1.Recordset.RecordCount>0"判断，成立就不为空

Dim mcc AS ADODB.Recordset

Dim c

If mcc.recordCount>0 then

c=MsgBox("您确认要删除该记录吗？"，vbokcancel，"删除提示信息")

If c=vbOK then

mrc.delete

mrc.refresh

End if

Else

Msgbox "当前数据库中已经没有可删除的记录",vbOKOnly++ vbExclamation,"提示信息"

End if

5.判断字段的大小

在数据录入的过程中，有时会因为输入的内容过长，而设计的字段太小，引起运行时错误，出现这种情况，可以通过判断字段的大小，来避免错误发生

代码如下：

6.重复数据不允许保存

如果数据表中存在大量的重复数据,则会给以后的管理和维护带来麻.那么我们如何禁止录入重复的数据呢.

除了在数据库的表中设置约束.我们也可以在程序中进行设计

7判断输入数据是否符合要求

在数据录入过程中，如果在要求输入数字的文本框中，用户不小心输入了其他类型的数据，则在数据保存中时将会出现错误，从而使用尚未保存的程序，就这样退出程序。

如果在程序保存前，对用户输入的数据进行验证，此问题就不会出现了。

判断是否为数值型数据主要使用IsNumeric函数，该函数可以判断表达式的结果是否为数值型数据，

代码如下：

数据验证的最主要的东西就是使用循环语句if ...end if进行判断。如果满足条件的就执行快语句，如果不满足的就跳出来！

通过数据验证更好的提高了程序的健壮性！写程序和做人做事一样，凡事要尽可能的考虑周全，防患于未然！！