主题：OptionButton控件的内容如何写入数据库
日月成星
[专家分：0] 发布于 2009-11-03 17:11:00
往SQL数据库中添加记录，其中一个字段A，是添加单选记录代码如下
If Option1.Value = True Then rs2.Fields("A") = 1
If Option2.Value = True Then rs2.Fields("A") = 2
If Option3.Value = True Then rs2.Fields("A") = 3
添加记录后，数据库中没反应，记录显示是NULL
哪里出错了？
回复列表 （共10个回复）
沙发
ptmwvbzf [专家分：0] 发布于 2009-11-03 17:24:00
没有update吧？
板凳
日月成星 [专家分：0] 发布于 2009-11-03 20:36:00
有的，在后面
rs.Update
rs.Close
3 楼
artless [专家分：1490] 发布于 2009-11-04 14:11:00
往SQL数据库中添加记录，其中一个字段A，是添加单选记录代码如下
If Option1.Value = True Then rs2.Fields("A") = 1
If Option2.Value = True Then rs2.Fields("A") = 2
If Option3.Value = True Then rs2.Fields("A") = 3
添加记录后，数据库中没反应，记录显示是NULL
哪里出错了？
有的，在后面
rs.Update
rs.Close
[/quote]
后面是那里？
4 楼
日月成星 [专家分：0] 发布于 2009-11-04 14:51:00
rs2.Fields("Name") = TxtName.Text
.’其它的信息
.。
If Option1.Value = True Then rs2.Fields("A") = 1
If Option2.Value = True Then rs2.Fields("A") = 2
If Option3.Value = True Then rs2.Fields("A") = 3
最后是下面的代码更新数据库
msg = MsgBox("添加信息吗？", vbYesNo + vbExclamation, "提示")
If msg = vbYes Then
rs2.Update
rs2.Close
Else
rs2.CancelUpdate
End If
其它的字段内容都添加进去了的，就A字段的内容显示是NULL
5 楼
artless [专家分：1490] 发布于 2009-11-05 09:50:00
[quote]rs2.Fields("Name") = TxtName.Text
.’其它的信息
.。
If Option1.Value = True Then rs2.Fields("A") = 1
If Option2.Value = True Then rs2.Fields("A") = 2
If Option3.Value = True Then rs2.Fields("A") = 3
最后是下面的代码更新数据库
msg = MsgBox("添加信息吗？", vbYesNo + vbExclamation, "提示")
If msg = vbYes Then
rs2.Update
rs2.Close
Else
rs2.CancelUpdate
End If
其它的字段内容都添加进去了的，就A字段的内容显示是NULL[/quote]
哦。
6 楼
rainmoon [专家分：40] 发布于 2009-11-05 09:59:00
会否IF条件设置模糊,判断不出究竟哪个OPTIONBUTTON都选中了
7 楼
日月成星 [专家分：0] 发布于 2009-11-05 15:37:00
不是哪个单选框选中就显示相应的内容吗，这也模糊？
8 楼
rainmoon [专家分：40] 发布于 2009-11-05 18:10:00
是有些奇怪,IF判断似乎对OPTIONBUTTON不起作用,试试改为单击事件
Private Sub Option1_Click()
rs2.Fields("A") = 1
End Sub
Private Sub Option2_Click()
rs2.Fields("A") = 2
End Sub
Private Sub Option3_Click()
rs2.Fields("A") = 3
End Sub
9 楼
日月成星 [专家分：0] 发布于 2009-11-06 15:40:00
楼上的方法不大可行啊，我是向数据库中添加记录，那这样写的话，不在单击事件中也要连接数据库然后添加记录？
10 楼
rainmoon [专家分：40] 发布于 2009-11-06 22:52:00
试试增加一个COMMAND按钮
以如下代码为例:
Private Sub Command1_Click()
If Option1.Value = True Then Label1.Caption = 1
If Option2.Value = True Then Label1.Caption = 2
If Option3.Value = True Then Label1.Caption = 3
End Sub
现在选择不同的OPTIONBUTTON,LABEL1会显示不同的值
以上只是我自己的一点见解,不知能否凑效,希望对楼主有所帮助~
我来回复
您所在位置：