1 2 3 4 5 6 7 8 9 10 11 12
| strSQL = "SELECT T_collaborateurs.Ag, T_collaborateurs.Mec, T_collaborateurs.Nom, T_Donnes.Naissance, T_Donnes.Entree, T_collaborateurs.GC, dbo.T_Donnes.Mail_b, dbo.T_Donnes.Tel1_b, dbo.T_Donnes.Tel2_b, dbo.T_Donnes.Contrat, dbo.T_Donnes.Sortie, T_Donnes.Adresse_p, dbo.T_Donnes.Adresse2_p, dbo.T_Donnes.CP_p, dbo.T_Donnes.Ville_p, dbo.T_Donnes.Sexe, dbo.T_Donnes.Tel1_p, T_Donnes.Tel2_p, dbo.T_Donnes.Mail_p " & _
"FROM T_collaborateurs LEFT OUTER JOIN T_Donnes ON T_collaborateurs.Mec = T_Donnes.Mec " & _
"WHERE T_collaborateurs.Mec='" & Me.lstCollaborateursComplete.SelectedItems.Item(0).SubItems(0).Text & "'"
ObjetConnection = New SqlConnection()
ObjetConnection.ConnectionString = DRHConn
ObjetConnection.Open()
ObjetCommand = New SqlCommand(strSQL)
ObjetCommand.CommandTimeout = 0
ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)
ObjetCommand.Connection() = ObjetConnection
ObjetDataAdapter.Fill(ObjetDataSet, "T_collaborateurs")
ObjetDataTable = ObjetDataSet.Tables("T_collaborateurs") |
Partager