Vb6 如何使用按钮将数据从复选框值保存到数据库

我正在尝试将数据从复选框保存到数据库

 Private Sub Check2_Click()
 If Check2.Value = True Then
  Check2.Caption = "OK"
  ElseIf Check2.Value = False Then
   Check2.Caption = "not ok"
  End If
 End Sub

    Private Sub Form_Load()
   con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source 
   =C:\Users\MIS02\Documents\checkstrial.accdb;Persist Security Info = false"
   rs.Open "Select * from tableCheck", con, adOpenDynamic, adLockPessimistic
   DTPicker1.Value = Date
   End Sub

 Private Sub addBtn_Click()

  rs.AddNew
  rs.Fields("CheckItem").Value = Label2.Caption
  rs.Fields("Itemno").Value = Label17.Caption
  rs.Fields("Criteria").Value = Label38.Caption
  rs.Fields("AMafter").Value = Check2.Caption

  rs.Update
  MsgBox "Data add successfully"

数据库中保存的唯一字段是标签

---

如果复选框被选中“确定”，我希望将输出保存在数据库中，如果复选框未被选中，则选择“不确定”

如果

之后的
字段被定义为布尔值（Access中的“是/否”），则需要设置布尔值。请尝试以下操作：

rs.Fields（“AMafter”）.Value=（Check2.Value=vbChecked）
在您的
Check2\u单击
，使用
vbChecked
而不是
True
和
vbUnchecked
而不是
False

您还可以在更新记录时添加IIF语句：

rs.Fields（“AMafter”）.Value=IIF（Check2.Value=vbChecked，“OK”，“NOT OK”）
我的数据库中没有保存任何数据。您的数据库中的
AMafter
字段的数据类型是什么？很高兴听到这个消息，当您有编程问题时，请返回堆栈溢出。
复选框.State
变量的值不仅仅是
vbChecked
和
vbUnchecked
，还可以是
vbGrayed
。这就是为什么它不仅仅是真/假，以及为什么您的原始代码不能像使用单选按钮那样工作。