正确处理数据库中的Null

对于初学者, 在处理数据库中的 Null 资料型态是有一点麻烦的事, 在这篇文章文章中我们将谈谈 Null , 你将会了解到如何知道一个值是 Null , 哪些函数可以或不可以处理 Null 首先, 我们必须知道在 VBScript 中, Variant 是唯一的一种资料型态, 对于那些已经熟悉其它语言的程序开发者, 可能会感到有点不习惯。 使用 Variant 的好处在于其相当有弹性, 因为 Variant 可以储存任何数据类型, 例如, 整数, 字符串, 日期时间, 甚至包括对象及数组。然而弹性是必须付出代价的, 因为指定 Variant 可能会比指定特殊数据类型所用到的内存来得多在 Variant 数据类型中还有两种很特殊的子类型 (Subtype): Empty 及 Null, 事实上称子类型可能不太恰当, 因为他们并不储存某些值, 当一个变量的资料子类型为 Empty 或 Null, 他们的值就是 Empty 或 Null

　　Empty
　　一个变量在被宣告后, 但在其被指定一个值之前, 这个变量的资料子类型就是 Empty, 换句话说, Empty 就相当于"尚未初始化", 我们来看看下面的例子
Dim varTest
Response.Write TypeName(varTest)
其执行结果应该为 Empty, 因此 Empty 可以说是一个变量的初始资料子类型及初始值, Empty 只是代表一个变量的状态, 试试下面的例子
Dim varTest
Response.Write CLng(varTest)
Response.Write CStr(varTest)
第一行的程序将显示 0, 因为 Empty 被表示为整数时就是 0, 第二行执行之结果将是什么都不显示, 因为当被表示为字符串时 Empty 就是 Empty, 或可说是长度为零的字符串
当一个变量被指定一个值后, 它便不再是 Empty, 它将是其它的子类型, 依资料的类型而有所不同, 当然, 你还是可以利用 Empty 这 个关键词将这变量变回 Empty 子类型
varTest = Empty
有两种方式你可以判断一个变量是否为 Empty
If varTest = Empty Then
Response.Write "The variable is empty."
End If
或是
If IsEmpty(varTest) Then
Response.Write "The variable is empty."
End If
Null
　　Null 这个资料子类型 和 Empty 很类似, 但不同点在于 Empty 代表一个变量尚未被初始化, 也就是还没有被赋予任何的值, 而一个变量为 Null 只有在你指定它为 Null 之后。最常遇到 Null 的机会应该是在处理数据库的时候, 当一个字段没有资料时, 便是 Null 指定和判断 Null 的方法与 Empty 很类似
varTest = Null
　　然而你只能使用 IsNull() 函数来判断 Null, 这是因为 Null 所代表的是不合法的资料, 你可以试试以下的例子
Dim varTest
varTest = Null
If varTest = Null Then
Response.Write "The variable has a Null value."
End If
执行的结果并不会显示 The variable has a Null value. 要判断一个变量是否为 Null 你应该使用 IsNull() 函数
Dim varTest
varTest = Null
If IsNull(varTest) Then
Response.Write "The variable has a Null value."
End If
　　当你在处理由数据库中所取出的 Null 的资料时, 你必须要很注意, 因为 Null 所代表的是不合法的资料, 当某些函数在处理数学运算时, Null 可能会制造一些麻烦, 例如
Dim varTest
varTest = Null
varTest = CLng(varTest)
　　执行结果你将看到 "Invalid Use of Null" 的错误讯息, 再看看下面的例子
Dim varTest
Dim lngTest
varTest = Null
lngTest = 2 + varTest
Response.Write TypeName(lngTest)
　　你会发现, Null 加上 2 还是 Null 因此, 当你从数据库取得资料后, 你应先用 IsNull() 来判断字段是否为 Null, 再做适当的处理, 例如
lngQty = ors("Quantuty")
If IsNull(lngQty) Then
lngQty = 0
End If