VB6 中的“Null”和“Nothing”有什么区别？

Question

我有一个这样的记录集：

Dim rs as Recordset
Set rs as New Recordset

'... a lot of coding ...

if Err.Number <> 0 Then ' oops, something gone wrong!
    If rs.State <> adStateClosed Then rs.Close
    Set rs = Nothing
end if

' I want to evaluate if rs is Nothing, or Null

if rs is Nothing then 
' this doesn't throw errors, and works well :D
end if

if rs is Null then
' this throws an error of "types not compatible"
end if

if rs = Null then
' this throws an error of "types not compatible"
end if

if isNull(rs) then
' never enters here, isNull(rs) evaluates to False
end if

我发现在 VB6 中我很少使用“Null”（我用它来评估空记录集模式名称），但我使用“Nothing”来表示图像、adodb.connections 或记录集等内容。 对于字符串，我有 vbNullString。 我读到它是一个指向空字符串的指针。

“Null”是否像“未知变量值”而“Nothing”是真正的空值？

Answer 1

Null 是 Variant 的特定子类型。 它在 Variant 类型之外不存在，创建它是为了允许 Variant 为数据库空值建模。

什么都不是对象变量的值。 它本质上与空指针相同，即没有对象。

以下会引发错误，因为“Is”只能与对象变量一起使用：

if rs is Null then
' this throws an error of "types not compatible"
end if

以下会引发错误，因为 Object 变量永远不能为 Null：

if rs = Null then
' this throws an error of "types not compatible"
end if

以下计算结果为 False，因为 IsNull() 采用 Variant 参数。

if isNull(rs) then
' never enters here, isNull(rs) evaluates to False
end if

它相当于：

VarType(rs) = vbNull

Answer 2

下表说明了如何使用 VBScript 关键字。

• 空的

  Empty 关键字用于指示未初始化的变量值。 这与 Null 不同。

• 错误的

  False 关键字的值等于 0。

• 没有

  VBScript 中的 Nothing 关键字用于将对象变量与任何实际对象分离。 使用 Set 语句将 Nothing 分配给对象变量。 例如：

Set MyObject = Nothing

多个对象变量可以引用同一个实际对象。 当 Nothing 分配给对象变量时，该变量不再指代任何实际对象。 当多个对象变量引用同一个对象时，与变量引用的对象相关联的内存和系统资源只有在所有变量都设置为 Nothing 后才会被释放，要么显式使用 Set，要么在最后一个对象变量设置为隐式之后没有什么超出范围。

• 空值

  Null 关键字用于指示变量不包含有效数据。 这与 Empty 不同。

• 真的

  True 关键字的值等于 -1。

Answer 3

您可以尝试如下：

a = "SELECT SBio.biosrno,YearlyCharges.adnum,Name,sName
FROM SBio RIGHT JOIN YearlyCharges ON SBio.biosrno=YearlyCharges.adnum
WHERE  (SBio.biosrno IS  NULL );"