Yes/Noで回答可能な質問への選択回答をSQLserver2012にbit型データとして格納したい

Question

ASP.NET Webフォームアプリに関するご質問です（Visual Stdio 2010を使用、OSはWindows7）。
以下のようなフォームでなされた回答(ラジオボタンで選択された選択肢)をデータベース（SQLserver2012を使用）に格納したいです。

ただし、各質問に対する格納内容はそれぞれ、
「はい」を選択 → １
「いいえ」を選択 → ０
「回答しない」を選択 → NULL
です。

その場合、質問への回答一覧を格納する、VB側の配列のデータ型はどのようにすればよいのでしょうか。
当初String型としていたのですが、データベースへの格納処理がなされていなかったので、
Boolean型として試したところNULLは格納できないとのことでした。

※回答にてNULL許容型の使用をご指摘いただきましたが、
恥ずかしながら記載のSelect構文とあわせての記述の仕方がわかりません。
（Select構文のやり方でない別の方法が適切なんでしょうか・・・？）
その点も教えていただけるとありがたいです。

それとも、テーブルデザインでデータ型をbit型から別の型に改善したほうがよいのでしょうか。
（想定の回答選択肢がすべてYes/Noに未回答を加えたものでしたので、bit型としたのですが・・・）

格納先のテーブルの構成は以下のとおりです。

初級者ゆえそうしたデータ型の特性等にも詳しくないため、ぜひご回答いただきたいです。
よろしくお願いします。

Imports System.Data.SqlClient

Partial Class Self_list_testSub
    Inherits System.Web.UI.Page

    Protected Sub SelfFin_Btn_Click(sender As Object, e As System.EventArgs) Handles SelfFin_Btn.Click

        Dim count As Integer = 0
        Dim answer(4) As Boolean 'データ型はどうすれば？

        '繰り返し文の記載（不十分な点です）
        For count = 0 To 4
            Select Case RadioButtonList.SelectedValue
                Case 1
                    answer(count) = 1
                Case 0
                    answer(count) = 0
                Case Else
                    answer(count) = "NULL"
            End Select
        Next count
        
        Dim newid As Integer = GetNewID()

        Dim dtToday As DateTime = DateTime.Today

        '最後にtbl_testRgにデータを格納します
        Dim strSQL As String
        strSQL = "INSERT INTO tbl_testRg" &
            " (ID, result1, result2, result3, result4, result5, date)" &
            " VALUES(" & newid & "," & answer(0) & "," & answer(1) & "," & answer(2) & "," & answer(3) & "," & answer(4) & "," & answer(5) & "," & dtToday & ")"


        Dim cnStr As String = System.Configuration.ConfigurationManager.
           ConnectionStrings("○○○○○○ConnectionString").ConnectionString

        Using connection As New SqlConnection(cnStr)

            Dim command As New SqlCommand(strSQL, connection)

            connection.Open()

            Try
                command.ExecuteNonQuery()

            Catch ex As Exception
                lblMsg.Text = "エラー発生のため、処理を中止します！ </ br>" & ex.Message
            End Try
            connection.Close()
        End Using

    End Sub

    '格納用に新しいIDを取得します。
    Private Function GetNewID() As Integer

        '戻り値用定義（-1は失敗時用）
        Dim ret As Integer = -1

        Dim cnStr As String = System.Configuration.ConfigurationManager.
            ConnectionStrings("○○○○○○ConnectionString").ConnectionString

        Using connection As New SqlConnection(cnStr)

            Dim SQL As String
            SQL = "SELECT ISNULL(MAX(Self_ID),0)+1 FROM tbl_testRg"

            Dim command As New SqlCommand(SQL, connection)

            Try

                connection.Open()

                Dim result As Object = Nothing
                result = command.ExecuteScalar()

                If result IsNot Nothing Then ret = CInt(result)

                connection.Close()

            Catch ex As Exception

            End Try

        End Using

        Return ret
    End Function

End Class

Answer 1

Null許容型のBoolean型を使ってみてはどうでしょうか？

' 宣言方法
Dim  i As Boolean?
Dim j? As Boolean
Dim k As Nullable(Of Boolean)


If i.HasValue Then
    ' 値がNull(VBではNothing)でない場合

    Dim l = i.Value    ' こうするとBoolean型として取り出せる
End If

上記回答は見当違いなので忘れて下さい。

---

今気づいたんですが、
配列のインデックス指定がそもそもの原因ではないでしょうか？
下のように変更したらどうなりますか？

' ソース引用一部修正

        'Dim answer(4) As Boolean
        Dim answer(4) As String

        '繰り返し文の記載（不十分な点です）
        'For count = 0 To 4
        For count = 0 To answer.Length - 1  '配列などのループ処理上限は要素数(LengthやCount)から取得する方が変更に強い
            Select Case RadioButtonList.SelectedValue
                Case 1
                    answer(count) = "1"
                Case 0
                    answer(count) = "0"
                Case Else
                    answer(count) = "NULL"
            End Select
        Next count

'中略

'最後にtbl_testRgにデータを格納します
        Dim strSQL As String

' 下記SQLのanswer(5)は余計では？
'        strSQL = "INSERT INTO tbl_testRg" &
'            " (ID, result1, result2, result3, result4, result5, date)" &
'            " VALUES(" & newid & "," & answer(0) & "," & answer(1) & "," & answer(2') & "," & answer(3) & "," & answer(4) & "," & answer(5) & "," & dtToday & ")"
 
       strSQL = "INSERT INTO tbl_testRg" &
            " (ID, result1, result2, result3, result4, result5, date)" &
            " VALUES(" & newid & "," & answer(0) & "," & answer(1) & "," & answer(2) & "," & answer(3) & "," & answer(4) & "," & "," & dtToday & ")"

Comments

[taketake221]

ご回答いただきありがとうございます。

Dim answer(4) As Nullable(Of Boolean)
のように宣言するとして、

Select Case RadioButtonList.SelectedValue
Case 1
answer(count) = 1
Case 0
answer(count) = 0
Case Else
answer(count) = "NULL"
End Select

のSelect構文にあわせて記述するとどのようになるのでしょうか・・・。

[Panzer_vor]

> taketake221さん
Null許容型のBooleanに入れることができる値はTrue、False、またはNothingとなります。

ただコードを読み返してみましたが、INSERT部でうまくいってないんですね。

むしろSQLを組み立てる際に使ってるのでString型の方がやり易い気がしてきたのですが、元々のString型の時はINSERTが動かなかったということでしょうか？
「0」、「1」、または「NULL」を設定したら動きそうな気がしたのですが^^;

[Panzer_vor]

回答追記してみました。
確認お願いします。

[taketake221]

丁寧に返信をいただきありがとうございます。

配列のインデックスは確かにミスでした。修正いたしました。

また、いただいているコードのようにBoolean型でなくString型として
格納する値を"1"、"0"、"NULL"として試しているとすんなりデータベースに格納されたので、Stringu型の方で進めたいと思います。

ありがとうございます。