一个诡异的错误 VBS 空变量判断

jessezappy

已于 2023-06-02 11:35:17 修改

阅读量380

点赞数

分类专栏：研究心得日记源码文章标签： VBS

于 2023-06-02 11:16:08 首次发布

本文链接：https://blog.csdn.net/jessezappy/article/details/131002947

版权

研究心得同时被 3 个专栏收录

36 篇文章 1 订阅

订阅专栏

日记

35 篇文章 2 订阅

订阅专栏

源码

20 篇文章 0 订阅

订阅专栏

文章讲述了在VBS中使用IsNothing判断空变量时遇到的问题，即变量未初始化为Nothing时会报错。作者通过一个简化代码示例展示了如何正确处理这个问题，强调了初始化变量为Nothing的重要性。此外，文章还提到在某些情况下，IsEmpty函数可用于空对象判断，但在需要多次判断的情况下，初始化为Nothing是更好的选择。

摘要由CSDN通过智能技术生成

今天将一个自己写的 VBA 函数放到 VBS 去运行，发现一个想不到的诡异错误：空变量判断报错！

代码简化如下：

Option Explicit
dim DB

If DB Is Nothing Then
		'--------------------------
		Set DB = CreateObject("ADODB.Connection")  '数据库引擎'New ADODB.Connection
		'-----------------
end if

Set DB = Nothing

本意是判断 DB 对象是否已初始化，可是在 Is Nothing 这里就报错了，查了下，发现是 Is Nothing 判断的话，需要初始化为对象，而之前在 VBA 里面没有报错是因为对变量进行了定义先： Public DB As Connection ，由此可见，需要培养变量初始化的好习惯。

以上代码初始化变量后即可正常运行：

Option Explicit
dim DB

Set DB = Nothing	' 必须初始化为 Nothing 才能用 is Nothing 判断。否则报错。

If DB Is Nothing Then
		'--------------------------
		Set DB = CreateObject("ADODB.Connection")  '数据库引擎'New ADODB.Connection
		'-----------------
end if

If DB Is Nothing Then
	msgbox "db Nothing"
else
	msgbox "db OK"
end if

Set DB = Nothing

由参考资料可见，VBS 中大部分情况下，初始判断还是使用 IsEmpty 适用。但是对于我这个用法来说，因为最后需要再次判断对象变量是否为空，所以还是只能使用初始化变量为 Nothing 的方法，否则， IsEmpty 判断空对象是返回 False ，这就没法用了。

‘------------------------------------参考资料

1、VBS - 空变量判断详解_weixin_30239339的博客-CSDN博客

2、https://www.cnblogs.com/wangn/p/3192192.html