vb6 - 我如何处理 vb6 ResultSet 中的空值

Question

我有一个数据库的返回值，但我无法过滤空值。

With rs_receita
    Do Until .EOF
        Set noaux2 = xml.createElement("Superavit")
        noaux2.Text = IIf(IsEmpty(!Superavit), "", CStr(!Superavit))
        Call noaux.appendChild(noaux2)
      .MoveNext
    Loop
End With
Set rs_receita = Nothing

Answer 1

在这种情况下避免IIf。 IIf 总是计算两个表达式。所以当!Superavit为null时，这会导致错误。

另一方面，单行 If 语句只会计算要执行的表达式。将其与 IsNull() 函数结合使用，以可靠地将数据库值分配给不为 null 的变量:

If IsNull(!Superavit) Then noaux2.Text = "" Else noaux2.Text = CStr(!Superavit)