2个回答
展开全部
设一个ISCHECK变量为布尔
VB2005:
ISCHECK = checkbox.check
VB6.0
ISCHECK = checkbox.Value
至于保存到数据库那要看你用的是什么数据库了
VB2005:
ISCHECK = checkbox.check
VB6.0
ISCHECK = checkbox.Value
至于保存到数据库那要看你用的是什么数据库了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
光点科技
2023-08-15 广告
通常情况下，我们会按照结构模型把系统产生的数据分为三种类型：结构化数据、半结构化数据和非结构化数据。结构化数据，即行数据，是存储在数据库里，可以用二维表结构来逻辑表达实现的数据。最常见的就是数字数据和文本数据，它们可以某种标准格式存在于文件...
点击进入详情页
本回答由光点科技提供
展开全部
我用ado 连接给你做个例子 先在窗体上添加Adodc 控件 (Microsoft ADO Data Control 6.0)
数据库是access2003
代码 :
Dim db As Connection
Dim rs As Recordset
Private Sub Command1_Click()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path + "/data.mdb;Persist Security Info=False" '建立连接
Set rs = New Recordset
rs.Open "select * from checkbox, db, adOpenStatic, adLockOptimistic '里面的checkbox是表名可以自己设置
rs.addnew
rs("Value") = checkbox1.Value 'value是表里的字段名 可以自己设置
msgbox "添加成功"
rs.close
End Sub
你如果只是想保存他的值的话 我觉得没有必要用数据库 太麻烦 用个记事本保存就可以了
Private Sub Command1_Click()
open app.path & "/value.txt" foroutput as #1
print #1,checkbox1.Value
close #1
这么样是不很简单吧
数据库是access2003
代码 :
Dim db As Connection
Dim rs As Recordset
Private Sub Command1_Click()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path + "/data.mdb;Persist Security Info=False" '建立连接
Set rs = New Recordset
rs.Open "select * from checkbox, db, adOpenStatic, adLockOptimistic '里面的checkbox是表名可以自己设置
rs.addnew
rs("Value") = checkbox1.Value 'value是表里的字段名 可以自己设置
msgbox "添加成功"
rs.close
End Sub
你如果只是想保存他的值的话 我觉得没有必要用数据库 太麻烦 用个记事本保存就可以了
Private Sub Command1_Click()
open app.path & "/value.txt" foroutput as #1
print #1,checkbox1.Value
close #1
这么样是不很简单吧
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
