关于几个代码

Jany

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

答：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

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

tz-chf

2楼答1有误，楼主有省略的代码，否则不会有这句话。看这个代码字体，我猜是哪儿复制来的。

Henry D. Sy

问题1的sql语句不完整，只有后半句。

ACMAIN_CHM

建议楼主
一 学会按F1
二 学会程序调试