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。