Sub ExtractionOT
Dim cnn As ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "***********;" & "***********;" & "***********"
cmd.ActiveConnection = cnn
cmd.CommandType = ADODB.CommandTypeEnum.adCmdText
SqlString = "SELECT CARL_CS02.CSWO_WO.CODE, CARL_CS02.CSRE_TECHNICIAN.CODE, CARL_CS02.CSSY_ACTOR.FULLNAME, CARL_CS02.CSSY_DESCRIPTION.RAWDESCRIPTION, CARL_CS02.CSWO_OCCUPATION.OCCUPATIONDATE, CARL_CS02.CSWO_OCCUPATION.DURATION"
SqlString = SqlString & " FROM (((CARL_CS02.CSWO_OCCUPATION LEFT JOIN CARL_CS02.CSRE_TECHNICIAN ON CARL_CS02.CSWO_OCCUPATION.TECHNICIAN_ID = CARL_CS02.CSRE_TECHNICIAN.ID) LEFT JOIN CARL_CS02.CSSY_ACTOR ON CARL_CS02.CSRE_TECHNICIAN.ACTOR_ID = CARL_CS02.CSSY_ACTOR.ID) INNER JOIN CARL_CS02.CSWO_WO ON CARL_CS02.CSWO_OCCUPATION.WO_ID = CARL_CS02.CSWO_WO.ID) LEFT JOIN CARL_CS02.CSSY_DESCRIPTION ON CARL_CS02.CSWO_OCCUPATION.COMMENTS_ID = CARL_CS02.CSSY_DESCRIPTION.ID"
SqlString = SqlString & " WHERE (((CARL_CS02.CSWO_WO.CODE) = '" & Recherche_CodeOTOccupation & "'))"
SqlString = SqlString & " ORDER BY CARL_CS02.CSWO_OCCUPATION.OCCUPATIONDATE;"
cmd.CommandText = SqlString
Set rs = New ADODB.Recordset
Set rs = cmd.Execute
compteur = 0
Texte = ""
tc = ""
rs.MoveFirst
Do While Not rs.EOF
If rs(3) <> "" Then
compteur = compteur + 1
Texte = rs(4) & " - " & rs(2) & " - durée: " & rs(5) & "h" & Chr(10) & " " & rs(3).Value
If compteur = 1 Then
tc = Texte
Else
tc = tc & Chr(10) & Texte
End If
End If
rs.MoveNext
Loop
TXT_DescriptionOccupation.Value = tc
rs.Close
cnn.Close
End Sub