|
ｿｽ@ｿｽｿｽIsDBNULLｿｽﾖ撰ｿｽｿｽｿｽDBNULLｿｽ^ｿｽﾌ意厄ｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽﾞらちｿｽｿｽｿｽ 2004/08/16(ｿｽｿｽ) 14:43:44
IsDBNullｿｽﾖ撰ｿｽｿｽﾉつゑｿｽｿｽﾄでゑｿｽｿｽB
IsDBNULLｿｽﾖ撰ｿｽｿｽｿｽMSDNｿｽIｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽﾅ抵ｿｽｿｽﾗゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽ
ｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽ
If IsDBNULL(wk_DBData) = false Then
ｿｽ@ｿｽ`ｿｽ`ｿｽ`ｿｽ`
EndIf
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾉ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
Ifｿｽｿｽｿｽﾌ費ｿｽｿｽfｿｽﾉ搾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ@IsDBNull(wk)ｿｽﾆゑｿｽｿｽｿｽｿｽ
ｿｽﾇゑｿｽﾈとゑｿｽｿｽﾉ true/falseｿｽﾌ値ｿｽｿｽﾔゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽPｿｽｿｽｿｽﾉ NULLｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽfｿｽﾅはなゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽ謔ｭｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽADBNullｿｽ^ｿｽﾆは会ｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ISDBNULLｿｽﾖ撰ｿｽ
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vblr7/html/vafctisnull.asp
DBNullｿｽNｿｽｿｽｿｽX
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemdbnullclasstopic.asp
ｿｽｿｽﾏ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽUｿｽｿｽｿｽｿｽﾜゑｿｽ驍､ 2004/08/16(ｿｽｿｽ) 15:30:40
>1. IsDBNull(wk)ｿｽﾆゑｿｽｿｽｿｽｿｽ
>ｿｽﾇゑｿｽﾈとゑｿｽｿｽﾉ true/falseｿｽﾌ値ｿｽｿｽﾔゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽPｿｽﾔ目のｿｽｿｽｿｽｿｽNｿｽｿｽ(IsDBNull ｿｽﾖ撰ｿｽ)ｿｽﾌ暦ｿｽﾌままでゑｿｽｿｽ蛯､ｿｽc
[ｿｽｿｽｿｽ]ｿｽﾌ通ゑｿｽﾌ暦ｿｽﾅゑｿｽｿｽﾋ。
>Dim MyVar As Object
>im MyCheck As Boolean
ｿｽﾏ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ Nothing ｿｽﾆは異なゑｿｽﾜゑｿｽｿｽB
>yCheck = IsDBNull(MyVar) ' Returns False.
NULL ｿｽｿｽｿｽｿｽｿｽｿｽﾆ呼ばゑｿｽ髓ｷｿｽｿｽ 0 ｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽ ("") ｿｽﾆゑｿｽﾙなゑｿｽﾜゑｿｽｿｽB
>yVar = ""
>yCheck = IsDBNull(MyVar) ' Returns False.
System.DBNull ｿｽlｿｽﾍ、ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽ^ (Object) ｿｽﾌ趣ｿｽｿｽｿｽｿｽQｿｽﾆ不ｿｽﾂ能ｿｽﾈデｿｽ[ｿｽ^ｿｽﾜゑｿｽｿｽﾍ托ｿｽｿｽﾝゑｿｽｿｽﾈゑｿｽｿｽfｿｽ[ｿｽ^ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>yVar = System.DBNull.Value
>yCheck = IsDBNull(MyVar) ' Returns True.
>sgBox(MyCheck)
>2. DBNullｿｽ^ｿｽﾆは会ｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽQｿｽﾔ目のｿｽｿｽｿｽｿｽNｿｽｿｽ(DBNull ｿｽNｿｽｿｽｿｽX)ｿｽｿｽ[ｿｽｿｽｿｽ]ｿｽﾌままでゑｿｽｿｽ蛯､ｿｽc
ｿｽyｿｽ[ｿｽWｿｽﾌ難ｿｽｿｽｿｽ
>DBNull ｿｽNｿｽｿｽｿｽX
>null ｿｽlｿｽｿｽ¥ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽc
>ｿｽPｿｽｿｽｿｽﾉ NULLｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽfｿｽﾅはなゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
>ｿｽ謔ｭｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽPｿｽｿｽｿｽｿｽ NULL ｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽfｿｽﾈんじゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH(ｿｽOｿｽOｿｽG)
ｿｽﾞらちｿｽｿｽさゑｿｽﾌ鯉ｿｽｿｽｿｽ NULL ｿｽｿｽｿｽﾄどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔのゑｿｽｿｽﾆゑｿｽ
ｿｽwｿｽｿｽｿｽﾄゑｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2004/08/16(ｿｽｿｽ) 15:37:59
ｿｽﾇゑｿｽｿｽﾜで暦ｿｽｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾇみ趣ｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾌで、ｿｽTｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
> (1) IsDBNull(wk)ｿｽﾆゑｿｽｿｽｿｽｿｽ
> ｿｽﾇゑｿｽﾈとゑｿｽｿｽﾉ true/falseｿｽﾌ値ｿｽｿｽﾔゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
SDKｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽeｿｽAｿｽｿｽｿｽﾌままでゑｿｽｿｽｿｽB
wk ｿｽｿｽ System.DBNullｿｽNｿｽｿｽｿｽXｿｽﾌイｿｽｿｽｿｽXｿｽ^ｿｽｿｽｿｽXｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉ、True ｿｽﾆなゑｿｽﾜゑｿｽｿｽB
ｿｽﾈゑｿｽｿｽAMicrosoft.VisualBasic.Information.IsDBNull() ｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ、VBｿｽIｿｽﾉ表ｿｽｿｽｿｽｿｽ
Public Shared Function IsDBNull(ByVal Expression As Object) As Boolean
If (Expression Is Nothing) Then
Return False
End If
If TypeOf Expression Is DBNull Then
Return True
End If
Return False
End Function
ｿｽﾌようｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽﾄの通ゑｿｽAｿｽPｿｽｿｽｿｽｿｽ DBNull ｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽ判断ｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｾｿｽｿｽｿｽﾅゑｿｽｿｽB
> ｿｽPｿｽｿｽｿｽﾉ NULLｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾌ費ｿｽｿｽfｿｽﾅはなゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾌ場合ｿｽﾉ費ｿｽｿｽfｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌは、ｿｽuNULLｿｽvｿｽﾅはなゑｿｽｿｽuDBNullｿｽvｿｽﾅゑｿｽｿｽB
ｿｽﾈゑｿｽ DBNull ｿｽﾍ、C#ｿｽﾅゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽ null ｿｽLｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽﾆは全ｿｽｿｽｿｽﾖ係ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB(C# ｿｽｿｽ null ｿｽﾍ、VB ｿｽﾅゑｿｽ Nothing ｿｽﾉ托ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ)
> (2) DBNullｿｽ^ｿｽﾆは会ｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽuｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾉゑｿｽｿｽｿｽｿｽｿｽ Nullｿｽlｿｽvｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽVｿｽｿｽｿｽOｿｽｿｽｿｽgｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽﾅゑｿｽｿｽB
VB6/VBAｿｽﾅゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ Null ｿｽLｿｽ[ｿｽｿｽｿｽ[ｿｽhｿｽﾉ近ゑｿｽｿｽｿｽｿｽﾝでゑｿｽｿｽB
# ｿｽfｿｽ[ｿｽ^ｿｽxｿｽ[ｿｽXｿｽﾅは、ｿｽwｿｽｿｽｿｽｿｽﾈゑｿｽｿｽlｿｽxｿｽｿｽwｿｽsｿｽｿｽｿｽﾈ値ｿｽxｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽ驍ｽｿｽﾟに、
# NULL ｿｽﾆゑｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽpｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB(ｿｽ文趣ｿｽｿｽｿｽ ｿｽｿｽ ｿｽｿｽｿｽlｿｽｿｽ0ｿｽﾆは、ｿｽﾓ厄ｿｽｿｽｿｽｿｽﾙなゑｿｽﾜゑｿｽ)
