저는 VBA / SQL을 처음 접했고 조건부 내부 조인을 실행하려고합니다.
공통 열 ( "CRM"및 "CodeCRM")이있는 두 개의 테이블이 있고 table1 ( "Flux")에서 무언가가 트리거되면 (CodeBlocage = 101) table2 ( "Desks")에서 전자 메일 주소를 얻고 싶습니다. 자동 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
이메일 주소에 대해 둘 이상의 값을 반환해야한다는 점을 제외하면 모든 것이 잘 작동합니다. 단서는?
감사합니다
레코드 세트를 읽을 때 레코드를 한 줄씩 반복해야합니다. 현재 코드에서는 첫 번째 줄만보고 있습니다.
다음과 같이 시도하십시오.
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
결과 변수는 고유 값 목록이됩니다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다