初学SQL -----------做了个全连接的简单例子

jiminyanyan

姓名	数量1
张1	10
张2	20
张3	30

-------------------------
姓名        数量1
张4        20
张2        30
张3        40
--------------------------
合并成

姓名        数量1        数量1
张1        10        
张2        20        30
张3        30        40
张4                20

-------------------------------------

1. Private Sub CommandButton1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     Set cnn = CreateObject("adodb.connection")
   
4.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ActiveWorkbook.FullName
   
5.     sql1 = "SELECT B.姓名,A.数量1,B.数量1  FROM [Sheet1$e1:f4] B  LEFT JOIN [Sheet1$A1:B4] A ON A.姓名 = B.姓名 "
   
6.     sql2 = "SELECT A.姓名,A.数量1,B.数量1  FROM [Sheet1$e1:f4] B  right JOIN [Sheet1$A1:B4] A ON A.姓名 = B.姓名 "
   
7.     Sql = sql1 & "union  " & sql2
   
8.     Sheet1.Activate
   
9.     Range("i2:k1000").ClearContents
   
10.     [i2].CopyFromRecordset cnn.Execute(Sql)
    
11.     cnn.Close
    
12.     Set cnn = Nothing
    
13.     Application.ScreenUpdating = True
    
14. End Sub
    

复制代码

jiminyanyan

...............

jiminyanyan

字典解法

1. Sub test()
   
2.     Dim i&, Myr&, Arr1, arr2, brr(1 To 1000, 1 To 3)
   
3.     Dim d, k, t
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     Myr = Sheet1.[a65536].End(xlUp).Row
   
6.     Arr1 = Sheet1.Range("a1:b" & Myr)
   
7.     Myr = Sheet1.[a65536].End(xlUp).Row
   
8.     arr2 = Sheet1.Range("e1:f" & Myr)
   
9.     For i = 2 To UBound(Arr1)
   
10.         k = k + 1
    
11.         d(Arr1(i, 1)) = k
    
12.         brr(k, 1) = Arr1(i, 1)
    
13.         brr(k, 2) = Arr1(i, 2)
    
14.     Next
    
15.     For i = 2 To UBound(arr2)
    
16.         If d.exists(arr2(i, 1)) Then
    
17.             brr(d(arr2(i, 1)), 3) = arr2(i, 2)
    
18.         Else
    
19.             k = k + 1
    
20.             d(Arr1(i, 1)) = k
    
21.             brr(k, 1) = arr2(i, 1)
    
22.             brr(k, 3) = arr2(i, 2)
    
23.         End If
    
24.         
    
25.     Next
    
26.     Range("i2:k1000").ClearContents
    
27.     Range("i2").Resize(UBound(brr), 3) = brr
    
28.     Set d = Nothing
    
29. End Sub
    
30. 
    

复制代码

汉唐

好帖，顶一个

sangweidd

感谢楼主分享，学习了

xssl002

学习了，感谢楼主的心得！

yjjcm321

俺也要学习，学习

fantom-fighter

Sql = sql1 & "union  " & sql2，这样写比较繁琐！直接用full join不行吗？

zhaogang1960

fantom-fighter 发表于 2014-6-2 21:38
Sql = sql1 & "union  " & sql2，这样写比较繁琐！直接用full join不行吗？

用full join测试一下就知道了

随风而行lulu

jiminyanyan 发表于 2012-5-14 21:10
字典解法

        If d.exists(arr2(i, 1)) Then
            brr(d(arr2(i, 1)), 3) = arr2(i, 2)
        Else
            k = k + 1
            d(Arr1(i, 1)) = k '这句的作用是什么？