[pgsql-jp: 34359] Re: VB6でNULL の検出

[ISHIDA Akio]

こんにちは。石田@苫小牧市です。

今、vbの実行環境は手元に無いのでちょっとアヤシイですが、
以前vbをやっていた時には
こんな関数を作って対処していました。

Function escNull(v As Variant, Optional s As String = "") As String
' Function escNull(v As Variant, Optional s As Variant = "") As Variant
' とやっていたかもしれません
    If IsNull(v) Then
        escNull = s
    Else
        escNull = v
    End If
End Function

で、呼ぶ側は、
    a = escNull(rs("fieldName1").Value)
    b = escNull(rs("fieldName2").Value, 0) ' Nullの時に0が欲しい場合
という感じだったと思います。