重构代码(2)-处理空字符串

最近发现一段代码在处理空值上不是很好,分别写了2段代码,一个是我的,一个是兄弟的,哪个好点呢?

'<summary>将空字段转换为空串</summary>
'
<param name="Field">字段实例</param>
'
<return>字段内容</return>
Public Function ConvertNull2String(Field As ADODB.Field) As Variant
    Require Me.IsInstance(Field), Me, 
"ConvertNull2String""Field必须实例化"
    
If Field.Type = adVarWChar Or Field.Type = adChar Then
        ConvertNull2String 
= Field.Value & ""
    
Else
        ConvertNull2String 
= Field.Value
    
End If
End Function

'取得指定字段得值内容
Public Function GetFieldValue(Field As Field, Optional IsNumeric As Boolean = FalseAs Variant
On Error GoTo e
    
If Not Field Is Nothing Then
        
If IsNull(Field.Value) Then
            
If IsNumeric Then
                GetFieldValue 
= 0
            
Else
                GetFieldValue 
= ""
            
End If
        
Else
            GetFieldValue 
= Field.Value
        
End If
    
Else
        GetFieldValue 
= ""
    
End If
    
    
Exit Function
e:
    GetFieldValue 
= ""
End Function 

当然如果在Sql语句里边处理好了,就更棒了,向下边这样:

SELECT A, ISNULL(B, '0') AS B FROM tNulls

相关文章:
http://www.access-cn.com/Article/Class5/Class28/Class30/200508/1744.html
http://www.zdnet.com.cn/developer/database/story/0,3800066906,39412365,00.htm
http://unruledboy.cnblogs.com/archive/2004/06/27/18988.aspx

posted on 2006-03-24 11:35  Duiker  阅读(632)  评论(4编辑  收藏  举报

导航