チェックボックスに基づいてチェックボックスを使用してデータベースに「はい」または「いいえ」を追加する方法、または「はい」の場合はチェックを外し、その逆も同様です。
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
Dim dbprovider As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Taher\Documents\Visual Studio 2010\Projects\WindowsApplication1\WindowsApplication1\Database1.accdb;Persist Security Info=False;"
Me.con = New OleDb.OleDbConnection()
con.ConnectionString = dbprovider
con.Open()
Dim sqlquery As String = "INSERT INTO Company (dev)" + "VALUES ('" Yes "')
Dim sqlcommand As New OleDb.OleDbCommand(sqlquery)
End If
End Sub