Question

Access字段输出错误，"无效使用Null"，怎么办?

VB,我用查询语句将Access中的表里的某些字段输出到文本框时，如果原来该字段对应的记录是空白的，则运行时，提示错误"无效使用Null"，应怎么办？表是用户信息表，其中的字段有“用户名”、“密码”、“电子邮箱”和其它内容。如果在表中，原来不填“电子邮箱”这一项，则在运行时就提示以上错误。
代码如下：
Private Sub Command1_Click() 'command1是确定键。
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.CursorLocation = adUseClient

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\vb6.0\data base\ddd.mdb" '打开数据库
SQL = "select * from 用户注册表 where 用户名= '" & Text1.Text & "' and 密码= '" & Text2.Text & "' "

rs.Open SQL, cn, 1, 1
If rs.RecordCount > 0 Then '根据关键字查找数据库是否有该记录,如果有
Text3.Text = rs("用户名")
Text4.Text = rs("密码")
Text5.Text = rs("电子邮箱")
Else
MsgBox "请输入正确的用户名和密码！"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End If
End Sub

Answer 1

不能将null值赋予文本框，因为会导致出错。
你的这条代码“Text5.Text = rs("电子邮箱")”改成如下写法：
Text5.Text = iif(isnull(rs("电子邮箱")),"",rs("电子邮箱"))
对于查询结果集中可能出现null值的字段，碰到这种情况时都可以这样处理。