|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 gzmcw65 于 2011-12-30 15:22 编辑
表mmst011 表mmst0112
Rec_011 order_type Rec_011 Mtr_Amt
Y001 0 Y001 20
Y002 0 Y002 25
Y003 0 Y003 100
要求:
当mmst0112表中的Rec_011对应的Mtr_Amt值小于或等于30时,将mmst011表中的order_type由0更改为A001
更改结果为:
表mmst011
Rec_011 order_type
Y001 A001
Y002 A001
Y003 0
我的问题是,以下代码在SQL数据库可以执行但是会提示"查询设计器不支持 Optional FROM clause SQL 构造。"
在excel vba则不通过(没有任何错误提示,但不执行结果),请高手帮看看如何解决?
Private Sub CommandButton2_Click()
sql = "UPDATE mmst011 " _
& "SET mmst011.order_type = 'A001' " _
& "FROM mmst011 LEFT OUTER JOIN " _
& "Mmst0112 ON mmst011.Rec_011 = mmst0112.Rec_011 " _
& "WHERE mmst011.Rec_011 = mmst0112.Rec_011 And mmst0112.Mtr_Amt <= n '30' * 1"
End Sub
|
|