vb数据库开发中 字段是否设置为null的问题

Question

我们现在的一个系统,其中涉及到很多表,每个表都有很多字段
在vb中,使用adobc连接
先建立connection而后 进行rs.open 
获得rs记录集而后想将rs中的内容显示在文本框中txt中,用txtName.text=rs!name
但是遇到name为<NUll>时,就会出错
现在的解决办法是if isnull(rs!name) then
                     txtname.text=""
                else
                     txtname.text=rs!name
                end if 
但是在涉及到的表比较多的时候,就比较麻烦,不知是否有更好的办法

Answer 1

我一般这么写
txtname.text=iif( isnull(rs!name) ,"",rs!name)

Answer 2

做个函数：
Public Function myTrim(ByVal Value As Variant) As Variant
    If IsNull(Value) Then
        myTrim = ""
    Else
        myTrim = Trim(Value)
    End If
End Function

Answer 3

在txtName.text=rs!name后面添加 & "",即txtName.text=rs!name & ""应该就可以了!:)