1 2 3 4 5 6 7 8 9 10 11 12 13
| Dim cmd2 As SqlCommand = con.CreateCommand()
'Le début commun à tout le monde de la requête
cmd2.CommandText = "SELECT tiers.nom, contacts.nom AS Expr1, demandes.dateIntervention, demandes.dateDemande, CAST(demandes.libelle As Varchar(300)) As libelle, contrats.idContratExterne,coalesce(demandes.niveauUrgence,'') As niveauUrgence, relances.dateRelance, domaine_concerne.domaineCode, demandes.dateResultatSouhaiteParTiers, aspnet_Users.UserName, demandes.dateFin, satisfaction_client.code, demandes.indicateurPrive, demandes.indicateurBrouillon, demandes.idDemande, demandes.statutDemande, statut_demande.code FROM demandes RIGHT OUTER JOIN aspnet_Users ON demandes.acteurDemandeAdressee = aspnet_Users.UserId LEFT OUTER JOIN domaine_concerne ON demandes.domaineConcerne = domaine_concerne.idDomaineConcerne LEFT OUTER JOIN niveau_urgence ON demandes.niveauUrgence = niveau_urgence.idUrgence LEFT OUTER JOIN tiers ON demandes.idTiers = tiers.idTiers LEFT OUTER JOIN satisfaction_client ON demandes.satisfactionClient = satisfaction_client.idSatisfaction LEFT OUTER JOIN contacts ON demandes.idContactTiers = contacts.idContact LEFT OUTER JOIN contrats ON demandes.idContrat = contrats.idContratInterne LEFT OUTER JOIN relances ON demandes.idDemande = relances.idDemande LEFT OUTER JOIN statut_demande ON statut_demande.idStatut = demandes.statutDemande WHERE demandes.idTiers = '" + TiersID + "' ORDER BY demandes.dateDemande DESC "
con.Open()
Dim dt As DataTable = New DataTable()
Dim sda As SqlDataAdapter = New SqlDataAdapter(cmd2)
sda.Fill(dt)
mesDemandesAdressees.AutoGenerateColumns = False
mesDemandesAdressees.DataSourceID = ""
mesDemandesAdressees.DataSource = dt
mesDemandesAdressees.DataBind() |
Partager