在条件内部联接语句（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