通过excel在vba中使用sql的update功能更新来源于另一sheet的汇总数据

icedragonking

这个问题困扰了我很久，寻求大神帮忙答惑解疑！
情景灰常简单：一共有两张sheet。其中一张名为[区域优先级定义] b表，另一张名为[可用货位] a表。目的是想通过sql的update功能将a表的Storage Bin字段按照区域优先级字段分类计数，然后更新到b表相对应的可用货位数字段中。（a表中的区域优先级字段和b表中的优先级字段为关联字段）
具体代码如下：
Sub 可用货位排序()

Dim adoconn As New ADODB.Connection
Dim strconn As String
Dim strsql As String

adoconn.Mode = adModeReadWrite
strconn = "Provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=yes;imex=0"";"

'统计各区域可用货位数量
adoconn.Open strconn
strsql = "update [区域优先级定义$] b left join (select a.区域优先级,count(*) as c from [可用货位$] a group by a.区域优先级) d on d.区域优先级=b.优先级 set b.可用货位数 = d.c"
adoconn.Execute (strsql)
adoconn.Close
Set adoconn = Nothing

End Sub

运行中途报错如下：

ly

子查询不可更新，匹配关键字不要有空值

1. strsql = "UPDATE [区域优先级定义$] AS b SET b.可用货位数 = DCount('[Storage Bin]','[可用货位$]','区域优先级=' & [b].[优先级]) WHERE b.优先级 Is Not Null"

复制代码

icedragonking

ly 发表于 2020-5-21 08:15
子查询不可更新，匹配关键字不要有空值

太感谢大神指点了，再向您请教个问题，更新的可用货位数字段为何是文本格式？

ly

icedragonking 发表于 2020-5-24 09:03
太感谢大神指点了，再向您请教个问题，更新的可用货位数字段为何是文本格式？

可以预先设置这个C列位置的格式设置为“数值”，或vba设置这列为自己所需的格式。

icedragonking

ly 发表于 2020-5-24 22:51
可以预先设置这个C列位置的格式设置为“数值”，或vba设置这列为自己所需的格式。

好的，再次感谢！