VB 値がNullであるか確認する

値がNullであるか確認する

以下の例では変数Valueの値がNullであるか確認する。

Dim Value As Object

Value = SQLCm.ExecuteScalar 'SQLCmはたとえばSQLCommandクラスなど

If IsDBNull(Value) Then
    'Nullの場合
    MsgBox("ValueはNullです。")
Else
    'Nullではない場合
    MsgBox("Valueは'" & Value & "'です。")
End If

メモ：NullとNothingが異なることに注意してください。

使用例：mdbに接続して、取得した値がNullであるか調べる例

'データベースの接続設定は環境によって異なります。
Dim Cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\Animals.mdb")
Dim SQLCm As OleDb.OleDbCommand = Cn.CreateCommand

SQLCm.CommandText = "SELECT 説明 FROM T_門マスタ WHERE 門ID = 2"

Cn.Open()

Dim Value As Object
Value = SQLCm.ExecuteScalar 'SQLCmはたとえばSQLCommandクラスなど

If IsDBNull(Value) Then
    'Nullの場合
    MsgBox("ValueはNullです。")
Else
    'Nullではない場合
    MsgBox("Valueは'" & Value & "'です。")
End If

Cn.Close()

VB6ではIsNull関数を使用して値がNullであるかどうか確認できます。