Question

おはようございます。私は以下のコードで助けが必要です。新しいのMemoryStreamとして

薄暗いストリーム（）私はそれがエラーキャストの前にはnullかどう識別するために、メッセージボックスを置きたい

 connect() 
     Dim command As New SqlCommand("SELECT image FROM tblHouseholdMembers WHERE id= '" & lvmem.FocusedItem.Text & "'", cn) 
     Dim image As Byte() = DirectCast(command.ExecuteScalar(), Byte()) --> 'Error message of null image 
     stream.Write(image, 0, image.Length) 
     cn.Close() 
     Dim bitmap As New Bitmap(stream) 
     pbProfilePic.Image = bitmap 

。

Answer 1

の代わりにDirectCastメソッドを使用して、TryCastを使用して、鋳造結果は何もありませんかどうかを確認：

Dim image As Byte() = TryCast(command.ExecuteScalar(), Byte()) 
if image isnot nothing then 
    stream.Write(image, 0, image.Length) 
    cn.Close() 
    Dim bitmap As New Bitmap(stream) 
    pbProfilePic.Image = bitmap 
else 
    'Error message here 
end if 

Answer 2

バックデータベースからのフィールドがnullの場合、直接テストする方法は次のとおりです。

if ValueFromDb is System.DbNull.Value then 
    ' whatever you want to do in that case 

私がVBを最初に学習していたときに私が本当に混乱していたことは、DB読み込みのnull値がNothingと等しくないことです。これはNothingではなく、System.DbNull.Valueです。

public shared function denull(value as object, defalt as object) 
    if value is system.dbnull.value then 
    return defalt 
    else 
    return value 
end function 

その後、私は、私はこの機能でDBから読み込んすべての値をラップ：

私のプロジェクトのほとんどは、これらの日は、私のような何かが言う私は「denull」と呼ぶ小さな関数を記述します。これにより、多くのコードを節約できます。

for each row in mydataset.tables(0).rows 
    foo=denull(row("foo"),"") 
    bar=denull(row("bar"),0) 
    plugh=denull(row("plugh"),nothing) 
    ... etc ...