版主!在acces中怎样把SQL语句组合。写好啦，按一个键，就全部执行??

lyz

下面语句中，我只能一个个执行，我已经搞有很多下面的语句，但是一个个执行，实在太麻烦。我对语言是一窍不通，请大家帮一下忙。 多谢！！多谢！！！！！！
在Acces中，有一个Visuail Basic 编辑器
1:
UPDATE 表1 SET 表1.字段1 = "AA"
WHERE (((表1.编号)>1 And (表1.编号)<5))
2:
UPDATE 表1 SET 表1.字段1 = "BB"
WHERE (((表1.编号)>5 And (表1.编号)<10))
3:
UPDATE 表1 SET 表1.字段1 = "CC"
WHERE (((表1.编号)>10 And (表1.编号)<20))
---------------

                                                  麻烦您拉。
                                   梁  2807747@163.com   qq 76995960


[em24][em24][em24]

[此贴子已经被作者于2002-11-23 10:13:01编辑过]

大熊

就是用那个docmd.runsql,可以在程序中运行ＳＱＬ语句
比如，　docmd.runsql "select * from PurchaseOrder;"

lyz

我是外行人,一点都看不懂.
我在Visuail Basic 编辑器中写:
DoCmd.RunSQL "select * from PurchaseOrder;"
UPDATE 表1 SET 表1.字段1 = "AA"
WHERE (((表1.编号) > 1 And (表1.编号) < 5))
UPDATE 表1 SET 表1.字段1 = "BB"
WHERE (((表1.编号) > 5 And (表1.编号) < 10))
UPDATE 表1 SET 表1.字段1 = "CC"
WHERE (((表1.编号) > 10 And (表1.编号) < 20))

可是不行 ,又在更新查询SQL视图中写同样的也不行.                                       
              
               麻烦您拉,在帮写详细点

zhengjialon

改成以下试试：（ACCESS的语法不支持你所写的）
DoCmd.RunSQL "select * from PurchaseOrder;"
DoCmd.RunSQL "UPDATE 表1 SET 表1.字段1 = 'AA' WHERE (((表1.编号) > 1 And (表1.编号) < 5))"
DoCmd.RunSQL "UPDATE 表1 SET 表1.字段1 = 'BB' WHERE (((表1.编号) > 5 And (表1.编号) < 10))"
DoCmd.RunSQL "UPDATE 表1 SET 表1.字段1 = 'CC' WHERE (((表1.编号) > 10 And (表1.编号) < 20))"

lyz

成功一大半了!!我得心情非常高兴!!!!
还是有点麻烦.因为:要在每个"DoCmd.RunSQL ----"后尾一个个按回车键才能完成.
请问有没有再简便的语句??????

yodong

在确认处打三个勾就行了

zhengjialon

也可以在VBA里用DoCmd.SetWarnings屏蔽

lyz

按您说的方法,光标在最后面时我按回车键,起作有的只有
DoCmd.RunSQL "UPDATE 表1 SET 表1.字段1 = 'CC' WHERE (((表1.编号) > 10 And (表1.编号) < 20))"
上面的都不起作用,难道要一个个按回车键????

lyz

我又简化了好多,因为我按上面内容写好后.把光标移到最前面.然后不停的按回车.
如有上百个内容,总按回车,时间也不久.

我深信,多来这里观顾,一定会有很大的帮助.以前我总想花钱去深造,可是外面教学都是简单的内容.

yahai

这的问题对偶满有启发……