Office中国论坛/Access中国论坛

标题: 关于几个代码 [打印本页]

作者: Jany 时间: 2009-6-4 16:47
标题: 关于几个代码
Dim sql As String

sql = sql & "values ('" & Me.Combo0 & "','" & Me.combo1 & "','" & Me.Text12 & "','" & Me.Combo2 & "')"

DoCmd.RunSQL sql

sql = "update 员工信息 set 离职=yes,离开单位时间=" & Me.Text12 & " where 员工编号='" & Me.combo1 & "'"

DoCmd.RunSQL sql

各位高手，我想问2个问题，关于上述代码。

1. sql = sql & "values 这一句是什么意思？

2.“RunSQL sql” 是什么作用的？

作者: todaynew 时间: 2009-6-4 17:22
本帖最后由 todaynew 于 2009-6-4 17:24 编辑

答：1、以上代码稍有点问题。
（1）可以改为：sql="values ('" & Me.Combo0 & "','" & Me.combo1 & "','" & Me.Text12 & "','" & Me.Combo2 & "')"
（2）有时候在一个循环前或者其他情况条件下，需要将sql置空，这是倒是可以：
sql="“
。。。
sql=sql & "values ('" & Me.Combo0 & "','" & Me.combo1 & "','" & Me.Text12 & "','" & Me.Combo2 & "')"

（3）sql=sql & "一串字符" 表示将字符串连接起来，&(或者+)为字符串连接符。

2、DoCmd.RunSQL sql 是执行查询命令。其中DoCmd是对象，runsql是docmd的方法，sql是参数。

作者: Jany 时间: 2009-6-4 18:15

万分感激，我学到东西了。谢谢~~ 2# todaynew

作者: tz-chf 时间: 2009-6-4 21:25
2楼答1有误，楼主有省略的代码，否则不会有这句话。看这个代码字体，我猜是哪儿复制来的。

作者: Henry D. Sy 时间: 2009-6-5 00:12
问题1的sql语句不完整，只有后半句。

作者: ACMAIN_CHM 时间: 2009-6-5 08:15
建议楼主
一学会按F1
二学会程序调试

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)