Office中国论坛/Access中国论坛

标题: 求助：这个UpDate语句如何写 [打印本页]

作者: yhf 时间: 2012-4-16 22:02
标题: 求助：这个UpDate语句如何写
本帖最后由 yhf 于 2012-4-16 22:07 编辑

现需将表1中字段(数字类型)1、字段2......字段11内容按条件更新到录入窗体的录入1、录入2......录入11：
Dim i As Integer
for i =1 to 11
if me("录入" & i)>0 then
DoCmd.RunSQL "update 表1 set '字段' & i = '" & Me("录入" & i) & "' “
else
end if
next i ，以上语句语法错误，求各位指点。万分感谢！！！

作者: zyp 时间: 2012-4-16 23:06
本帖最后由 zyp 于 2012-4-16 23:07 编辑

Dim i As Integer ,mySQL as string
for i =1 to 11
if me("录入" & i)>0 then
mySQL="UPDATE 表1 SET 字段"& i &"="& Me.Controls("录入"& i)
CurrentProject.Connection.Execute (MySQL)
else
end if
next i

作者: yhf 时间: 2012-4-17 06:59

zyp 发表于 2012-4-16 23:06
Dim i As Integer ,mySQL as string
for i =1 to 11
if me("录入" & i)>0 then

谢谢ZYP！若update再加个条件 where ID=‘“& me.ID &”’ 应如何写？谢谢！！！

作者: aslxt 时间: 2012-4-17 14:04
mySQL="UPDATE 表1 SET 字段"& i &"="& Me.Controls("录入"& i) & " WHERE where ID=" & me.ID ‘id字段为数字的情况
mySQL="UPDATE 表1 SET 字段"& i &"="& Me.Controls("录入"& i) & " WHERE where ID='" & me.ID & "'" ‘id字段为文本的情况
mySQL="UPDATE 表1 SET 字段"& i &"="& Me.Controls("录入"& i) & " WHERE where ID=#" & me.ID & "#" ‘id字段为日期的情况

作者: yhf 时间: 2012-4-17 20:21

aslxt 发表于 2012-4-17 14:04
mySQL="UPDATE 表1 SET 字段"& i &"="& Me.Controls("录入"& i) & " WHERE where ID=" & me.ID ‘id字段为 ...

谢谢 aslxt ，谢谢zyp ！！！

作者: jj7769640 时间: 2012-4-18 11:23
我来看看先～～支持你

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