adodb update+select 语句提示 “操作必须使用一个可操作的查询”

kitoyang

adodb update+select 语句提示 “操作必须使用一个可操作的查询”，网上说是access 不支持update带select子查询，不只如何解决？还请大牛帮忙看一下：

以下是代码，代码的目的是根据子查询Sql1的结果，更新[20210604$]的“总库存”字段：

Sub kucun()

Dim cnn As Object, rst As Object

Dim Mypath$, Datapath$, Str_cnn$, Sql1$, Sql2$
Set cnn = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")
'绑定ADO

Mypath = ThisWorkbook.FullName
Datapath = ThisWorkbook.Path & "\库存.xlsx"

Str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & Mypath
cnn.Open = Str_cnn
'建立数据连接

Sql1 = "select 物料代码, sum(基本单位数量) as 总库存 from [Excel 12.0;DATABASE=" & Datapath & "].[即时库存$] group by 物料代码"

Sql2 = "update  [20210604$]a Left Join (" & Sql1 & ")b on a.料号=b.物料代码 set a.总库存=b.总库存"

cnn.Execute (Sql2)

cnn.Close
Set cnn = Nothing

End Sub

roych

1、如果我没记错的话，excel里是不能执行除了copyfromrecordset之外的记录集写入操作的。通常需要用excel.application，workbook，worksheet等等来处理。
2、带聚合函数的更新查询通常是不被支持的，跟select倒是没什么关系。
3、关系未定的情况下（即不属于一对一或者一对多的情况），更新查询是不能执行的。
4、跨工作簿的操作没处理过，暂时不发表意见。
原因分析完毕后，下面给出大致的解决思路。
a、不直接执行update，把两个记录集改成select的方式，然后嵌套循环，外循环用第一个，内循环用第二个，用rst.update处理。
b、相对简单一些，用access链接两个excel工作表，创建选择查询，然后导出excel，覆盖之前的工作表即可。

kitoyang

roych 发表于 2021-7-20 09:34
1、如果我没记错的话，excel里是不能执行除了copyfromrecordset之外的记录集写入操作的。通常需要用excel.a ...

赞！
1. 意思是说copyfromrecordset需要配合使用excel.application，workbook，worksheet等来处理是吧？
2. 我试了一下把聚合函数去掉，确实可以。但是我的这个需求需要使用聚合函数。。。
3. 这个我暂时没明白，不过我这个表是excel表格，不是access数据库；

给的两个解决思路感觉都比较麻烦，我还是想看看能不能用一句代码解决掉？

lingjiang

有点高深