我的SQL学习贴

autumnalRain

魂断蓝桥 发表于 2016-2-17 15:06
这样试一下

采购表 定义名称ttt

多谢老师！但有个问题，因为采购是个长期存续的工作，所以存在这种情况，比如A销售后还在继续采购，上面的语句会得到最后日期的价格，而这个日期大于销售日期。如aaa表中t1列a单价应该为10，而不是12。请再指导下吧
ttt

日期	名称	单价
2016/1/1	A	11
2016/1/2	C	12
2016/1/3	B	47
2016/1/4	A	10
2016/1/5	D	43
2016/1/6	C	20
2016/1/7	D	50
2016/1/8	E	18
2016/1/9	E	20
2016/1/10	A	12
2016/1/11	E	22

aaa

日期	名称	t1	采购单价
2016/1/7	A	12	10
2016/1/9	C	20	20
2016/1/10	D	50	50
2016/1/12	E	22	22
2016/1/13	B	47	47

zhaogang1960

这类问题我一般用字典处理，用SQL语句处理wuxiang_123版主比较在行
下面可能是最笨的SQL方法了，请参考：
Sub 宏1()
    Dim cnn As Object, SQL$, t1$, t2$, t3$, t4$
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
    t1 = "[出库表$" & Sheets("出库表").Range("A1").CurrentRegion.Address(0, 0) & "]"
    t2 = "[采购价格表$" & Sheets("采购价格表").Range("b4").CurrentRegion.Address(0, 0) & "]"
    t3 = "(Select b.* from " & t1 & " a," & t2 & " b where a.名称=b.名称 and a.日期>=b.日期)"
    t4 = "Select x.* from " & t3 & " x inner join (select 名称,max(日期) as max_date from " & t3 & " group by 名称) y on x.名称=y.名称 and x.日期=y.max_date"
    SQL = "select 单价 from " & t1 & " m left join (" & t4 & ") n on m.名称=n.名称"
    [c2].CopyFromRecordset cnn.Execute(SQL)
    cnn.Close
    Set cnn = Nothing
End Sub

zhaogang1960

请测试附件
后进先出法如何用SQL语句获取单价.rar (20.73 KB, 下载次数: 78)

2016-2-17 15:47 上传

点击文件名下载附件

autumnalRain

zhaogang1960 发表于 2016-2-17 15:45
这类问题我一般用字典处理，用SQL语句处理wuxiang_123版主比较在行
下面可能是最笨的SQL方法了，请参考：
...

多谢zhaogang1960大师！。一直想求得能简单些的语句，今天赵老师解答了，看来这个SQL语句真得这么复杂了！所以这个问题看似简单，用SQL却要复杂得多！

zhaogang1960

autumnalRain 发表于 2016-2-17 15:51
多谢zhaogang1960大师！。一直想求得能简单些的语句，今天赵老师解答了，看来这个SQL语句真得这么复杂了 ...

求助wuxiang_123版主吧
我没有研究过这类SQL语句，只是当数组、字典法实在不方便解决时才用SQL

autumnalRain

zhaogang1960 发表于 2016-2-17 15:54
求助wuxiang_123版主吧
我没有研究过这类SQL语句，只是当数组、字典法实在不方便解决时才用SQL

再次感谢大师了！

苏阳湖wzy

向楼主和版主致敬！学习了

lzqmsy

留个记号,好贴!!!

aficio700

感谢汇总，先收藏

jiminyanyan

autumnalRain 发表于 2016-2-17 15:54
再次感谢大师了！

老师：期待更新．．．．