在條件內部聯接語句（VBA/SQL）上返回多個值

Question

對於VBA/SQL我很新，我試圖執行條件內部聯接。

我有兩個共同列（「CRM」和「CodeCRM」）的表，並且我想從table2（「服務檯」）獲取郵件地址，當table1中的某個事件被觸發（CodeBlocage = 101） Flux「）以將其添加到自動Outlook電子郵件中。

Dim StrDestinataire As String 
Select Case Strtable 
    Case "Flux", "GAFIJOUR" 

    Dim cn As ADODB.Connection 
    Dim rs As ADODB.Recordset 
    Dim Y As String 
    Dim sSql As String 

    Set cn = CurrentProject.Connection 


    sSql = "Select AddMailCRM from Desks Inner Join Flux on Desks.CODECRM = Flux.CRM WHERE Flux.CODEBLOCAGE = '101'" 

    Set rs = cn.Execute(sSql) 

    If Not rs.BOF And Not rs.EOF Then 
     Y = rs.Fields("AddMailCRM").Value 
    End If 


    StrDestinataire = Y 

    cn.Close 

一切工作很好，除了它應該返回多個值的電子郵件地址。任何線索？

謝謝

Answer 1

當讀出一個記錄集時，你必須逐行循環記錄。用你現在的代碼，你只看第一行。

嘗試這樣：

Dim results as New List(Of String) 

While Not rs.EOF 
    results.Add(rs.Fields("AddMailCRM").Value) 
    rs.MoveNext() 
End While 

results = results.Distinct().ToList 

結果變量將是唯一的值

Answer 2

解決的列表。

Dim StrDestinataire As String 
Select Case Strtable 
    Case "Flux", "GAFIJOUR" 
Dim cn As ADODB.Connection 
Dim rs As ADODB.Recordset 
Dim Y As String 
Dim sSql As String 

Set cn = CurrentProject.Connection 


sSql = "Select DISTINCT AddMailCRM from Desks Inner Join Flux on Desks.CODECRM = Flux.CRM WHERE Flux.CODEBLOCAGE = '101'" 

Set rs = cn.Execute(sSql) 

If Not rs.BOF And Not rs.EOF Then 
    Y = rs.GetString 
End If 


StrDestinataire = Y 

cn.Close