VB数据库编空字段的处理
在往SQL Server数据库中添加记录时，每个字段必须给予明确赋值（即在没有给数据表设定缺省规则或给每个字段设定缺省值的情况下），否则便发生错误。因此我用VB编写了一个处理函数，将其放入标准模块，以供相应程序调用。函数首先判断是否给字段赋值，若没有，则根据字段类型的不同赋予不同数值（数字赋零，字符赋空格）。程序如下：
′zd变量采用变体类型
Function nonull(zd As Variant) As Variant
If IsNull(zd) Then
′字段没有赋值，判断其类型
If zd.Type = 12 Then
′字符型字段，赋空格
nonull = " "
Else
′数字型字段，赋0
nonull = 0
End If
Else
nonull = zd
End If
End Function
