VB提示 实时错误94 无效使用null 如果不修改数据库要怎么解决

如果数据库中的某个字段值是空值（即null，注意不是空字符串），而你又想将这个值直接参与运算或者进行字符串 *** 作，或者把它赋值给一个已指定类型的变量，就会提示“无效使用null”了。

你可以在使用这个字段值之前先检测其是否为null：

If IsNull(rs("字段名")) Then

'字段值不是null，可以 *** 作

Else

'字段值为null，不能 *** 作

End If

或者强制把字段值转化为非null值：

如果字段类型是字符串，则：

x = rs("字段名") & ""

如果字段类型是数值，则：

x = 0 & rs("ziduan")

自己用ACCESS做的一个出卷系统的代码，在查看试卷这部分的代码出现了无效使用NULL 错误 不知道怎么改，高手指导一下。

代码如下：Private Sub cmdSave_Click()

Dim fso As New FileSystemObject, fil As TextStream

CommonDialog1DialogTitle = "选择试卷文件路径/指定文件名"

CommonDialog1Filter = "试卷文件（txt）|txt"

CommonDialog1FileName = ApplicationCurrentProjectPath & "\我的试卷txt"

Do

CommonDialog1ShowSave

If fsoFileExists(CommonDialog1FileName) Then

n = MsgBox(CommonDialog1FileName & vbCrLf _

& "已存在，是否覆盖该文件？", vbCritical + vbYesNo)

If n = vbYes Then Exit Do

Else

Exit Do

End If

Loop

'将生成的试卷和答案写入文件

Set fil = fsoCreateTextFile(CommonDialog1FileName)

filWriteLine txtTest

filClose

MsgBox "试卷已成功保存到<" & CommonDialog1FileName _

& ">中！", vbInformation

isSaved = True

End Sub

这一句出的错误： filWriteLine txtTest

先处理null的情况,要么你就写一个函数返回默认值比如

elseif

isnull(rs("changes"))

then

'null的情况在此处理

elseif

cint(rs("changes"))=1

then

'排除了null的情况以后就不会出错了

在与数据库打交道的时候，常常要从库里取数据显示在窗体或其他地方，如果你没有处理NULL值的话，经常会产生NULL值错，轻者回蹦出一个错误框，严重的话还会将你的程序搞死。有的人为了这个问题将所有的可能是NULL值的地方都加上一个IF来判断ISNULL，这样无形中增加了不少工作量，也增加了出错的可能。其实一个简单的方法就是在你的变量后面加一个 ""空字符串就全部解决了。

请按照下列步骤 *** 作：

1、依次单击开始→程序→Microsoft SQL Server,单击选择企业管理器（Sql server 2000）或Management Studio（Sql server 2005或Sql server 2008）；

2、依次双击展开local→数据库,右键单击KDAcctDB，依次单击选择所有任务→分离数据库，单击确定；

3、依次单击开始→程序→金蝶K3，再依次单击金蝶K3服务器配置工具→账套管理；

4、输入“账套管理”用户名和密码，单击确定；

5、此时账套列表为空，需要将所有账套重新注册

参考：注册账套安装方法可参照8888 8888

以上就是关于VB提示 实时错误94 无效使用null 如果不修改数据库要怎么解决全部的内容，包括:VB提示 实时错误94 无效使用null 如果不修改数据库要怎么解决、上传文件时出现“无效使用 Null ”是什么原因、Microsoft VBScript 运行时错误 '800a005e' 无效使用 Null等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！