使用SQL的Join处理三表a+b+c ，请问还有几种方法。

ning84

现在用的方法是 SQL + Left Join
[a$]a left join [b$]b on a.学号=b.学号)"
Sql = Sql & " left join [c$]c on a.学号=c.学号"



请问各位，还有几种方法实现图示目标。

1. Sub ll()
   
2.     Dim Cn As ADODB.Connection
   
3.     Dim Rs As ADODB.Recordset
   
4.     Dim Sql As String
   
5.     Dim oDate As Date
   
6.     Set Cn = New ADODB.Connection
   
7.     Set Rs = New Recordset
   
8.        Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
   
9.        Sql = "    select a.学号,b.期中成绩,c.期末 "
   
10.        Sql = Sql & " from ([a$]a  left join [b$]b on a.学号=b.学号)"
    
11.        Sql = Sql & " left join [c$]c on a.学号=c.学号"
    
12.        Debug.Print Sql
    
13.        Set Rs = Cn.Execute(Sql)
    
14.   
    
15.    
    
16.     Sheet4.Cells.Clear
    
17.     Sheet4.Cells(2, 1).CopyFromRecordset Rs
    
18.     Stop
    
19. End Sub
    

复制代码

ning84

用SQL LEFT JOIN方法，不会用 Where，问题如图。

       Sql = "    select a.学号,b.期中成绩,c.期末 "
       Sql = Sql & " from ([a$]a  left join [b$]b on a.学号=b.学号)"
       Sql = Sql & " left join [c$]c on a.学号=c.学号"
       Debug.Print Sql