在查询中做好的SQL语句移到VBA中要怎样修改?

一杯绿茶　发表于：2009-05-25 18:06:20 　

这个是我查询中的SQL语句:UPDATE tblzcfybzxs SET tblzcfybzxs.Fybz = forms!frmzcfykz_child_Add!fybz, tblzcfybzxs.Sfkz = forms!frmzcfykz_child_Add!sfqy, tblzcfybzxs.czid = forms!frmzcfykz_child_Add!czid
WHERE (((tblzcfybzxs.Xxid)=[forms]![frmzcfykz_child_Add].[xxid]) AND ((tblzcfybzxs.Njid)=[forms]![frmzcfykz_child_Add].[njid]));
我把它移到VBA中要怎样修改?谢谢

Top

铜风铃铃发表于：2009-05-25 21:38:37

Dim Temp as string

Temp="UPDATE tblzcfybzxs SET tblzcfybzxs.Fybz = forms!frmzcfykz_child_Add!fybz,"

Temp=Temp & " tblzcfybzxs.Sfkz = forms!frmzcfykz_child_Add!sfqy, tblzcfybzxs.czid = forms!frmzcfykz_child_Add!czid "
Temp=Temp & " WHERE (((tblzcfybzxs.Xxid)=[forms]![frmzcfykz_child_Add].[xxid]) "

Temp=Temp & " AND ((tblzcfybzxs.Njid)=[forms]![frmzcfykz_child_Add].[njid]));"

Docmd.RunSQL Temp

注意1、字符串太长，用 & 号连接

2、" 与字符间的空格要注意

Top

沈军发表于：2009-05-26 11:48:19

通过SQL编辑好的查询语句存在着不同的节（SQL语句中是用换行的方法来区分不同的节），对于没有超出VBA行字数限制的语句来说需要进行手工处理一下：

在你的代码中要将所有的代码合并到一行，并需要在不同节代码中加一个空格

修改之前的

UPDATE tblzcfybzxs SET tblzcfybzxs.Fybz = forms!frmzcfykz_child_Add!fybz, tblzcfybzxs.Sfkz = forms!frmzcfykz_child_Add!sfqy, tblzcfybzxs.czid = forms!frmzcfykz_child_Add!czid
WHERE (((tblzcfybzxs.Xxid)=[forms]![frmzcfykz_child_Add].[xxid]) AND ((tblzcfybzxs.Njid)=[forms]![frmzcfykz_child_Add].[njid]));

修改之后的

UPDATE tblzcfybzxs SET tblzcfybzxs.Fybz = forms!frmzcfykz_child_Add!fybz, tblzcfybzxs.Sfkz = forms!frmzcfykz_child_Add!sfqy, tblzcfybzxs.czid = forms!frmzcfykz_child_Add!czid WHERE (((tblzcfybzxs.Xxid)=[forms]![frmzcfykz_child_Add].[xxid]) AND ((tblzcfybzxs.Njid)=[forms]![frmzcfykz_child_Add].[njid]));

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

[5分]在查询中做好的SQL语句移到VBA中要怎样修改?