请教如何用SQL UPDATE更新工作表数据

xing18b

下面代码总是提示操作符丢失：请帮忙呀。想把汇总的单位成本赋值到5月份出仓明细的各个规格,注意是2015-5-1至2015-5-31指定的日期段（是可以自由选择的时间段，可以用between吗？因为不会写把下面的代码没加上）
Sql = "update [出仓明细$] set [出仓明细$].单位成本=[成本核算$].本期单位成本 from [成本核算$], [出仓明细$] " & _
"where [出仓明细$].编码 =(select 编码 from [成本核算$]) "

zhaogang1960

请参考：

1. conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
   
2. Sql = "update [出仓明细$] A,[成本核算$] B set A.单位成本=CStr(B.本期单位成本) where CStr(A.编码)=B.编码"
   

复制代码

zhaogang1960

请测试附件
单位成本赋值.rar (25.71 KB, 下载次数: 333)

2015-6-11 16:59 上传

点击文件名下载附件

zhaogang1960

考虑日期条件：

1. Sql = "update [出仓明细$] A,[成本核算$] B set A.单位成本=CStr(B.本期单位成本) where CStr(A.编码)=B.编码 and A.日期 between #2015-5-1# and #2015-5-31#"
   

复制代码

xing18b

zhaogang1960 发表于 2015-6-11 16:57
请参考：

运行的时候要求对象，能上传个附件

xing18b

zhaogang1960 发表于 2015-6-11 17:02
考虑日期条件：

太棒了，非常完美。谢谢了。

zhaogang1960

update只修改符合条件的记录，如果想同时清除不符合条件的记录，试试下面左连接语句：

1. Private Sub CommandButton2_Click() '查询
   
2. icount2 = Sheets("出仓明细").[A65535].End(xlUp).Row '统计出仓明细第一列行数
   
3. CBicount = Sheets("成本核算").[A65535].End(xlUp).Row '统计成本核算第一列行数
   
4. Set conn = CreateObject("ADODB.Connection")
   
5. 
   
6. conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
   
7. Sql = "select iif(A.日期 between #2015-5-1# and #2015-5-31#,本期单位成本,null) from [出仓明细$] A left join [成本核算$] B on CStr(A.编码)=B.编码"
   
8. 
   
9. Set rsup = conn.Execute(Sql)
   
10. Range("M2").CopyFromRecordset rsup
    
11. 
    
12. conn.Close: Set conn = Nothing
    
13. 
    
14. MsgBox ("查询成功")
    
15. End Sub
    

复制代码

xing18b

zhaogang1960 发表于 2015-6-11 17:19
update只修改符合条件的记录，如果想同时清除不符合条件的记录，试试下面左连接语句：

嗯，太感谢了，请问有没有这方面的书籍关于EXCEL SQL的，就是只是对EXCEL表进行SQL处理的。另外再帮忙一下下面这个问题http://club.excelhome.net/thread-1211056-1-1.html请再帮忙指导一下

zhaogang1960

xing18b 发表于 2015-6-12 11:55
嗯，太感谢了，请问有没有这方面的书籍关于EXCEL SQL的，就是只是对EXCEL表进行SQL处理的。另外再帮忙一 ...

ExcelVBA整合数据库应用从基础到实践
ExcelVBA与数据库整合应用范例精讲

xing18b

zhaogang1960 发表于 2015-6-11 17:19
update只修改符合条件的记录，如果想同时清除不符合条件的记录，试试下面左连接语句：

再帮我看看这个，打开工作簿，成本核算表的红色字，期初数量和余额都为空，进仓有数，结果算出来为空值