如何将CHECKBOX的值用UPDATE SET 语句写入ACCESS数据表内的一个"是/否"类型的字段内,在线等待,立马给分!
解决方案 »
- 200分:高难!如何改变注册表项的所有者
- 怎样使鼠标移到MSHFlexGrid的某一个列时,鼠标手势由箭头改为手型?
- SQL语句直接拿数据到EXCEL
- 谁有最新VSFlexGrid8.0.2006版本的注册吗?
- 如何在水晶报表中使用DateDiff函数来获得130分钟是几天几小时几分钟啊!
- 招聘:要求在湖北襄樊上班,熟练运用VB与SQLSERVER,懂ASP或.NET网页编程最好!有时会出差到深圳工作.
- 请问如何在vb中将sql server表或查询导出到文本文件或EXCEL文件中?
- 谁有FTP程序的源代码,重谢!!!
- 谁来帮我解决这个VBA的简单问题!要是谁能在今天上午解决,我送500分!
- SOS SOS SOS 复合菜单
- 散分题!!!!
- 急需vb+sql2000编写c/s进销存管理系,人事统管理系
rs,open sqlstr,cn,3,3
if check1.value=1 then
tmp_value=true
else
tmp_value=false
end if
cn.execute " update tablename set 字段="& tmp_value &""
iif(Check1.Value=1,"true","false") 的意思是根据Check1的Value值来生一个值为"True"或"False" 的字符串。
所以将这两段加起来就是你需要的SQL语句了。如果你的是ADO,则:
Dim Conn As ADODB.Connection
Conn.open "你的连接字符串"
Conn.Execute "update 表名 set 字段名=" + iif(Check1.Value=1,"true","false")如果是DAO,则:
Dim Db As Database
Set Db=DbEngine.Opendatabase(.....)
Db.Execute "update 表名 set 字段名=" + iif(Check1.Value=1,"true","false")
SQL语句:"update 表名 set 字段名=" + iif(Check1.Value=1,"true","false") & chr$(34)
应该没有错吧ConnMDB.Execute "update ksotherinfo set DELETE=" + IIf(Check1.Value = 1, "true", "false")
Dim Conn As New ADODB.ConnectionConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\ctnexport\data\back\export.mdb;Persist Security Info=False"
Conn.Execute "update data set reload=" + IIf(Check1.Value = 1, "true", "false")Conn.Close
End SubPrivate Sub Command2_Click() '用DAO
Dim Db As DatabaseSet Db = DBEngine.OpenDatabase("D:\ctnexport\data\back\export.mdb")Db.Execute "update data set reload=" + IIf(Check1.Value = 1, "true", "false")Db.Close
End Sub
ConnMDB.Execute "update ksotherinfo set [DELETE]=" + IIf(Check1.Value = 1, "true", "false")
最终于有人搞正确了,我用的那个字段正好是SQL语句的保留字DELETE,呵呵
这个人就是 awfikthh(百无聊赖)
不过风之兄提供了方法,太好了
结帐我的信仰:有问题,在CSDN上请教!!!!!!!!!!!!!