VB程序出现Object cannot be cast from DBNull to other types错误，删除数据库空数据后仍未解决求助

别着急，我来帮你一步步排查这个问题——虽然你已经删除了数据库里的测试空值，但程序还是报错，大概率是数据读取逻辑或缓存类的小问题，咱们慢慢理清楚：

1. 先确认数据库返回的结果真的没有空值 #

你说已经用SQL脚本检查过数据库，但建议再做一步验证：

• 把VB程序里执行的SQL查询语句完整复制出来，直接在SQL Server管理工具（比如SSMS）里运行，查看结果集的第3列（因为myReader(2)是索引从0开始的第3列），确认是不是真的没有NULL值。
• 另外检查一下表结构：对应的日期列是不是设置了允许NULL？如果是的话，哪怕你删了旧数据，有没有可能新的操作又不小心插入了空值？

2. 给代码加空值防御（最关键的一步） #

哪怕数据库里没有空值，作为新手也要养成防御性编程的习惯——Convert.ToDateTime遇到DBNull（数据库空值）会直接抛出异常，你可以修改代码先判断字段是否为空：

' 先判断myReader的第3列是不是数据库空值
If Not myReader.IsDBNull(2) Then
    Dim targetDate As DateTime = Convert.ToDateTime(myReader(2))
    If Date.Now.AddDays(LoadsFilter * -1) > targetDate Then
        ShowLoad = 0
    End If
Else
    ' 这里可以根据你的业务需求处理空值情况，比如给ShowLoad设默认值
    ShowLoad = 0 ' 或者跳过这个判断，根据实际场景调整
End If

解释一下：myReader.IsDBNull(2)是专门用来检查数据库返回值是否为空的方法，比直接判断myReader(2) Is Nothing更准确，因为数据库空值在VB里是DBNull类型，不是普通的Nothing。

3. 排查缓存或连接池问题 #

有时候SQL Server的连接池会缓存旧的连接状态，或者程序本身有数据缓存：

• 先完全关闭VB程序再重新启动，确保没有残留的缓存数据。
• 如果方便的话，可以重启一下SQL Server服务，清空连接池里的旧连接（这个步骤可选，优先重启程序）。

4. 用调试工具确认问题根源 #

你可以在报错的代码行前面加个断点，运行程序时暂停，然后在调试窗口里查看myReader(2)的实际值：

• 如果显示{DBNull}，那说明数据库还是返回了空值，你需要再检查SQL查询语句；
• 如果是正常的日期值，那可能是其他逻辑导致的问题，但这种情况概率很低。

内容的提问来源于stack exchange，提问作者delx