空字段的处理
在往SQLServer数据库中添加记录时,每个字段必须给予明确赋值(即在没有给数据表设定缺省规则或给每个字段设定缺省值的情况下),否则便发生错误。因此我用VB编写了一个处理函数,将其放入标准模块,以供相应程序调用。函数首先判断是否给字段赋值,若没有,则根据字段类型的不同赋予不同数值(数字赋零,字符赋空格)。程序如下:
′zd变量采用变体类型
Functionnonull(zdAsVariant)AsVariant
IfIsNull(zd)Then
′字段没有赋值,判断其类型
Ifzd.Type=12Then
′字符型字段,赋空格
nonull=""
Else
′数字型字段,赋0
nonull=0
EndIf
Else
nonull=zd
EndIf
EndFunction
多字段记录的录入
<...[ 查看全文 ]