在二表间类似于VLOOKUP的SQL查询问题

ZHANGCP

根据材料采购号，用SQL将<到货记录表>中的材料到货数导入到总表的F列并累加，将到货时间也导入到G列，记录的是最近的一个日期，(相当于SUNIF函数和VLOOKUP函数,VLOOKUP有更新的问题和共享的问题，我想如果能SQL应该可以解决共享问题，建立简单数据库，不知是否可行！
第一次在SQL版块求助，望各位大侠帮忙！

[ 本帖最后由 ZHANGCP 于 2010-5-7 21:59 编辑 ]

Renco

我这里给你ACCESS的解决方法，请查看查询

alzeng

非Sql，字典+数组：

1. 
   
2. Sub UpdateData()
   
3.     Dim Arr, k%
   
4.     Dim Dic As Object
   
5.     Dim Wb As Workbook
   
6. 
   
7.     Set Dic = CreateObject("Scripting.Dictionary")
   
8.     Arr = Range("A4", [A65536].End(3)(1, 3))
   
9.     For k = 1 To UBound(Arr)
   
10.         If Not Dic.exists(Arr(k, 1)) Then
    
11.             Dic(Arr(k, 1)) = Array(Arr(k, 2), Arr(k, 3))
    
12.         Else
    
13.             Dic(Arr(k, 1)) = Array(Application.Index(Dic(Arr(k, 1)), 1) + Arr(k, 2), Arr(k, 3))
    
14.         End If
    
15.     Next
    
16. 
    
17.     Set Wb = Workbooks.Open(ThisWorkbook.Path & "\总表.xls")
    
18.     With Wb.ActiveSheet
    
19.         Arr = Range("E4", [E3].End(4)(1, 3))
    
20.         For k = 1 To UBound(Arr)
    
21.             If Dic.exists(Arr(k, 1)) Then
    
22.                 Arr(k, 2) = Dic(Arr(k, 1))(0)
    
23.                 Arr(k, 3) = Dic(Arr(k, 1))(1)
    
24.             End If
    
25.         Next
    
26.         .[E4].Resize(k - 1, 3) = Arr
    
27.     End With
    
28.    
    
29.     Dic.RemoveAll: Wb.Close True
    
30. End Sub
    

复制代码

ZHANGCP

谢谢二位，不知能在EXCEL里用SQL查询过来吗

alzeng

SQL+字典+数组：

1. 
   
2. Sub Getdata()
   
3.     Dim Cn As Object, Sqlstr$, Wb$
   
4.     Dim Arr, k%, Dic As Object
   
5. 
   
6.     Wb = Replace(ThisWorkbook.FullName, "总表", "到货记录表")
   
7.     Set Cn = CreateObject("Adodb.Connection")
   
8.     Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Wb
   
9.     Wb = Wb & "`.`Sheet1$]"
   
10. 
    
11.     Sqlstr = "Select T1.材料采购号,T1.A As A,T2.B As B " _
    
12.              & "From (Select 材料采购号,Sum(材料到货数) As A From [" & Wb & " Group By 材料采购号) T1," _
    
13.              & "(Select 材料采购号,Max(到货时间) As B From [" & Wb & " Group By 材料采购号) T2 " _
    
14.              & "Where T1.材料采购号=T2.材料采购号"
    
15. 
    
16.     Arr = Application.Transpose(Cn.Execute(Sqlstr).GetRows): Cn.Close: Set Cn = Nothing
    
17.     Set Dic = CreateObject("Scripting.Dictionary")
    
18.     For k = 1 To UBound(Arr): Dic(Arr(k, 1)) = Array(Arr(k, 2), Arr(k, 3)): Next
    
19. 
    
20.     Arr = Range("E4", [E65536].End(3)(1, 3))
    
21.     For k = 1 To UBound(Arr)
    
22.         If Dic.exists(Arr(k, 1)) Then Arr(k, 2) = Dic(Arr(k, 1))(0): Arr(k, 3) = Dic(Arr(k, 1))(1)
    
23.     Next
    
24.    
    
25.     [E4].Resize(k - 1, 3) = Arr: Dic.RemoveAll
    
26. End Sub
    

复制代码

ZHANGCP

感谢alzeng老师再次提供代码，不知能否再解释一下!
我做生产管理的，每天面对庞大的数据量，苦于没有系统性的解决方案

alzeng

纯SQL的方法：

1. 
   
2. Sub Getdata01()
   
3.     Dim Cn As Object, Sqlstr$, Str$, Wb$, rng As Range
   
4. 
   
5.     Wb = Replace(ThisWorkbook.FullName, "总表", "到货记录表")
   
6.     Set Cn = CreateObject("Adodb.Connection")
   
7.     Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Wb
   
8.     Wb = Wb & "`.`Sheet1$]"
   
9. 
   
10.     Str = "Select T1.材料采购号 As 材料采购号,T1.A As A,T2.B As B " _
    
11.           & "From (Select 材料采购号,Sum(材料到货数) As A From [" & Wb & " Group By 材料采购号) T1," _
    
12.           & "(Select 材料采购号,Max(到货时间) As B From [" & Wb & " Group By 材料采购号) T2 " _
    
13.           & "Where T1.材料采购号=T2.材料采购号"
    
14. 
    
15.     For Each rng In Range("E4", [E3].End(4))
    
16.         Sqlstr = "Select A,B " _
    
17.                  & "From (" & Str & ") T3 " _
    
18.                  & "Where 材料采购号='" & rng & "'"
    
19.         rng(1, 2).CopyFromRecordset Cn.Execute(Sqlstr):
    
20.     Next
    
21. 
    
22.     Cn.Close: Set Cn = Nothing
    
23. End Sub
    

复制代码

Renco

解决的先前条件，就是不要用EXCEL去做这类汇算，使用汇算的结果就行了

ziarat

非常不错，学习了

kszcs

学习了，收藏起来，正好需要