VB6程序中NULL注意事项

VB6中从数据库中取出栏位值进行操作，若栏位值为Null，则必须小心处理，否则极易导致程序出错退出。

通常我们从recordset中取出栏位值采用Fields方法，加上栏位名称，如

rsMoney.Fields("SecondPlate")

以上Fields方法返回的是Variant类型，Variant类型允许为Null，但我们通常将栏位值当做string或int类型来使用，如赋值、比较，就会出错！

1，Null赋值操作

如以下代码：

1) Dim ss As String

2) Dim aa As Variant

3) ss = "/~2018-12-10 13:40:33,45.50,45.50"

4) aa = Null '不会出错

5) ss = IIf(IsNull(aa), "", aa) '不会出错

6) ss = aa '出错

7) ss = aa & "" '不会出错

ss为字符串类型，aa为Variant类型，

•  Variant类型变量可以赋值为Null，所以第4行不会出错
•  第5行在将Null赋值给字符串变量前，先用isNull函数判断是否为Null，用IIF函数将Null转换为空字符串再赋值给ss，所以不会出错
•  第6行直接将Null赋值给字符串变量，所以出错
•  第7行在将Null赋值给字符串变量前，先与空字符串连接，右侧运算结果为空字符串，所以不会出错

2，Null比较操作

Dim ss As String

Dim aa As Variant

ss = ""

aa = Null '不会出错

If ss = aa Then

Form1.Text1.Text = "1!"

Else

If ss > aa Then

Form1.Text1.Text = "2!"

Else

If ss < aa Then

Form1.Text1.Text = "3!"

Else

Form1.Text1.Text = "4!"

End If

End If

End If

以上代码运行结果为4！

因为与Null进行比较，无论是大于还是小于还是等于，其结果全部为False。

3，数据库栏位值可能为Null时，代码操作注意事项

综上，建议如下：

• 在VB中取出记录栏位值在进行赋值前，应进行判断或转换。建议赋值前与空字符串进行连接操作，比较简明。即：

Dim ss As String

Ss = rsMoney.Fields("SecondPlate") & ""

• 记录栏位值可能为Null时，不能等同于空字符串进行比较操作。可能为Null的栏位值，在进行比较操作前应先进行明确的判断或转换，以免程序产生bug。