Office中国论坛/Access中国论坛

标题: 请问这三条语句在VBA中应如保写 [打印本页]

作者: nisg 时间: 2005-9-28 19:47
标题: 请问这三条语句在VBA中应如保写
UPDATE (造价明细 INNER JOIN 样品 ON 造价明细.款号 = 样品.款号) INNER JOIN 造价汇总表 ON 样品.款号 = 造价汇总表.款号 SET 样品.总造价 = 造价汇总表![金额之 Sum];

UPDATE 造价明细 SET 造价明细.单价 = b12([金额]/[数量]);

SELECT DISTINCTROW 造价明细.款号, Sum(造价明细.金额) AS [金额之 Sum] INTO 造价汇总表

FROM 造价明细

GROUP BY 造价明细.款号;

作者: LucasLynn 时间: 2005-9-28 19:56
UPDATE指令和SELECT INTO均不需要返回数据集，因此用CurrentProject.Connection.Execute（ADO方法）或者CurrentDB.Execute（DAO方法）均可直接执行。如何写，在Access帮助的Jet SQL部分，SELECT INTO语句和UPDATE语句帮助中均有示例。

作者: nisg 时间: 2005-9-29 00:59
版主老兄试了不行，能不能帮一下忙[em02]

作者: LucasLynn 时间: 2005-9-29 01:01

以下是引用nisg在2005-9-28 16:59:00的发言：

版主老兄试了不行，能不能帮一下忙[em02]

不行你也描述一下怎么个不行，最好把出错信息截屏下来。就一句不行，莫非我是神仙，能猜到你为什么不行？

作者: nisg 时间: 2005-9-29 01:44
语句错误

作者: nisg 时间: 2005-9-29 01:51

UPDATE 造价明细 SET 造价明细.单价 = b12([金额]/[数量]);可以了，其他两条。。。。。

作者: nisg 时间: 2005-9-29 01:54
第一条是这样写的，但在有链接表时，其他表会出错Private Sub Command0_Click()

Dim dbs As Database

Dim qdf As QueryDef

Set dbs = OpenDatabase("C:\Documents and Settings\nzy1\桌面\1.mdb")

dbs.Execute "Update 造价明细 " _

& "Set 造价明细.单价 = ([金额]/[数量]) "

dbs.Close

End Sub

作者: LucasLynn 时间: 2005-9-29 02:11
你先放到查询的SQL视图中去测试一下语法是否正确。

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