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

Question

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

 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"

保存在我的数据库中的唯一字段是标签如果复选框被选中，我希望输出保存在数据库中 "OK" 如果没有则 "NOT OK"

Answer 1

如果您的 AMafter 字段被定义为布尔值（Yes/No 在 Access 中），您需要设置一个布尔值。尝试以下操作：

rs.Fields("AMafter").Value = (Check2.Value = vbChecked)

Answer 2

在您的 Check2_Click 中，使用 vbChecked 代替 True 并使用 vbUnchecked 代替 False。

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

rs.Fields("AMafter").Value = IIF(Check2.Value = vbChecked, "OK", "NOT OK")

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

How to save data from checkbox value to database using button

vb6