38.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 32 行

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