展开全部
设一个ISCHECK变量为布尔
VB2005:
ISCHECK = checkbox.check
VB6.0
ISCHECK = checkbox.Value
至于保存到数据库那要看你用的是什么数据库了
VB2005:
ISCHECK = checkbox.check
VB6.0
ISCHECK = checkbox.Value
至于保存到数据库那要看你用的是什么数据库了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
TableDI
2024-07-18 广告
VLOOKUP函数在Excel中用于匹配两个表格的数据。具体步骤如下：1. 确定查找值：在目标表格中选择要查找的单元格或数据。2. 确定查找范围：转到另一个表格（例如，工作表A），并指定包含查找值的范围。注意该范围的首列应包含要查找的值。3...
点击进入详情页
本回答由TableDI提供
展开全部
我用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
这么样是不很简单吧
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
