Question

如何使用基于选中或取消选中的复选框在数据库中添加“是”或“否” 如果检查然后是，反之亦然。？

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

Answer 1

使用这种方式

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

    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

    sqlquery = "Insert into Company (dev) values ('" + IIf(CheckBox1.Checked, "yes", "no") + "')"

    Dim sqlcommand As New OleDb.OleDbCommand(sqlquery)
    sqlcommand.executeNonQuery()

End Sub

Answer 2

使用sql类型BIT表示False（0）或True（1）。您可以使用单词TRUE和FALSE来插入数据。

Answer 3

复选框本质上是布尔输入。您可以使用相当多的方法将它们的值存储在数据库中，这些是最常见的： - 布尔字段（true / false） - 数字字段（1表示true，0表示false）

使用布尔关键字TRUE和FALSE

TRUE等于是 FALSE等于否

UPDATE tablename SET field1 = TRUE, field2 = FALSE;

INSERT INTO tablename SET field1 = TRUE, field2 = FALSE ;

希望这有帮助

如何根据选中或未选中的复选框插入是/或在数据库中

3 个答案: