ラジオボタンの評価結果をデータベースに挿入する

Question

vb.netを使用してデータベースにラジオボタンを挿入するコードとは何ですか？私はこれを試しましたが、うまくいきませんでした。助けて。私の貧弱な文法には申し訳ありません。

Dim s As Boolean 

If optADD_A.Checked = True Then 
    s = True 
ElseIf optADD_B.Checked = True And optADD_C.Checked = True And optADD_D.Checked = True Then 
    s = False 
End If 

If optADD_B.Checked = True Then 
    s = True 
ElseIf optADD_A.Checked = True And optADD_C.Checked = True And optADD_D.Checked = True Then 
    s = False 
End If 

If optADD_C.Checked = True Then 
    s = True 
Else 
    s = False 
End If 

If optADD_D.Checked = True Then 
    s = True 
Else 
    s = False 
End If 

sql = "INSERT INTO tblAdd(Answer)VALUES('" & s & "')" 

Dim cmd As New OledbCommand(sql,con) 

cmd.ExecuteNonQuery() 

Answer 1

私はあなたのロジックに従いました。答えは、CとDの両方がチェックされ、AまたはBのどちらかがチェックされている場合に真です。また、コードを大幅に簡略化しました。

Dim s As Boolean = (optADD_A.Checked OrElse optADD_B.Checked) _ 
        AndAlso optADD_C.Checked _ 
        AndAlso optADD_D.Checked 

sql = "INSERT INTO tblAdd(Answer) VALUES('" & s & "')" 

Dim cmd As New OledbCommand(sql, con) 

cmd.ExecuteNonQuery()