变量失去价值

Question

我有以下 vbscript 代码：

hemisphereConnectionString = "Driver={MySQL ODBC 5.1 Driver};" & _
                             "Server=" & hemisphereServer & ";" & _
                             "Database=" & hemisphereDatabase & ";" & _
                             "User=" & hemisphereUsername & ";" & _
                             "Password=" & hemispherePassword & ";"

Set hemisphereConnection = CreateObject("adodb.connection")
hemisphereConnection.Open(hemisphereConnectionString)

hem_sql = "SELECT * FROM hei_vision_update WHERE id IN (SELECT MAX(id) FROM hei_vision_update WHERE done = 'N' GROUP BY name)"

Set hemisphereResult = hemisphereConnection.Execute(hem_sql)

if hemisphereResult.EOF = false then
    hemisphereResult.MoveFirst()
end if
msgbox isnull(hemisphereResult("home_publish").value)
msgbox hemisphereResult("home_publish").value

它是一个更大的脚本的一部分（太大，无法在此处发布，但这些是关键行） 我的消息框显示为 false（即该字段的值不为空）并且下一个消息框崩溃说“无效使用 Null”

有人有什么想法吗？？

我已将我的代码修改为上述内容，仅此而已（服务器和密码详细信息除外）。现在没有 OERN/OEG0 线路。我从数据库中获取的行在 home_publish 字段中有一个“Y”，因此第一个显示 false 的消息框是正确的。只有第二个显示“无效使用 Null”是个谜。我开始怀疑 MySQL 驱动程序是否存在问题？

现在越来越傻了：

我把最后两行改成了这三行：

msgbox hemisphereResult("home_publish").value
msgbox isnull(hemisphereResult("home_publish").value)
msgbox hemisphereResult("home_publish").value

第一个消息框显示我的值“Y”。
现在第二个消息框显示为真（显然不是）。
最后，我的第三个消息框给出了“无效使用 null”错误。

还有其他人经历过仅仅因为你使用过变量而失去价值的经历吗？

Answer 1

如果hemisphereResult 是ADODB.Recordset，那么hemisphereResult("home_publish") 是ADODB.Field，此时会发生以下情况。

IsNull 不会尝试进一步调查传递的对象并返回False，因为该字段本身作为记录集中的对象存在。

相反，MsgBox 不能对对象做有意义的事情，所以它调用该对象的默认属性（Field 对象）来显示它。默认属性是.Value，那个是Null。

因此，尽管 IsNull 和 MsgBox 的参数在代码中看起来相同，但它们实际上并不相同。

您可能希望明确提出您的要求：

msgbox isnull(hemisphereResult("home_publish").value)

---

虽然上述情况属实，但您也可能受到 MySQL 错误的影响（44831、42385 等）

建议的解决方法是使用客户端光标：

set hemisphereResult = CreateObject("ADODB.Recordset")
hemisphereResult.CursorLocation = 3 'adUseClient
hemisphereResult.open "select ...", hemisphereConnection