CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 03 22 02:08:53

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil > Forum >

probleme de tri dans mes requetes

Poser une question dans le forum ou lancer une discussion

probleme de tri dans mes requetes

lundi 10 octobre 2005 à 15:05:59 | probleme de tri dans mes requetes

tommie

35 msg

45 msg CS

bonjour a tous!
voila mon probleme je fais plusieurs requetes pour ramener diverses infos de différentes tables (je suis obligé de faire plusieurs requetes car le tout dans la meme ca merde)

et en fait a l'affichage je voudrais que mes donnees apparaissent a l'ecran triées pas libelleservice et non par matricule
pourriez vous me dire comment faire??
merci

je vous joins le code de ma page


<%Server.ScriptTimeOut = 5000%>
<%
Session.LCID = 1036 ' gestion des dates en francais
set conn = Application("connexion")
'e
' protège les &, ", < et > dans le code html
Function doinput(byRef ch)
 If (ch <> "") Then
 doinput = replace(ch, "&", "&")
 doinput = replace(doinput, """", """)
 doinput = replace(doinput, "<", "<")
 doinput = replace(doinput, ">", ">")
 Else
 doinput = ""
 End If
End Function

' paramètre : chaine date au format français 2/3/2004 ou 02/3/2004...
' retourne une chaine sous la forme lundi 7 février 2005
Function getDateFr(byRef uneDate)

  Dim dateFormatee
  Dim tab_date
  Dim n_jour
  Dim n_mois
  Dim n_annee
  Dim n_jour_semaine
  Dim nom_mois
  Dim nom_jour
  Dim dateang

' on sépare les éléments de la date sur les /
tab_date = split(uneDate, "/")

  ' récupération des valeurs
  n_jour = tab_date(0)
  n_mois = tab_date(1)
  n_annee = tab_date(2)

  ' transformation du numéro de mois en nom de mois
  Select Case n_mois
   Case 1  nom_mois = "janvier"
   Case 2  nom_mois = "février"
   Case 3  nom_mois = "mars"
   Case 4  nom_mois = "avril"
   Case 5  nom_mois = "mai"
   Case 6  nom_mois = "juin"
   Case 7  nom_mois = "juillet"
   Case 8  nom_mois = "août"
   Case 9  nom_mois = "septembre"
   Case 10  nom_mois = "octobre"
   Case 11  nom_mois = "novembre"
   Case 12  nom_mois = "décembre"
  End Select

' on met la date au format anglais afin de récupérer un numéro de jour semaine juste
dateang = n_mois & "/" & n_jour & "/" & n_annee

' récupération du numéro de jour dans la semaine : 1er jour -> lundi...
n_jour_semaine = weekday(dateang, vbMonday)

  ' transformation du numéro de jour de la semaine en nom de jour
  Select Case n_jour_semaine
   Case 1   nom_jour = "lundi"
   Case 2   nom_jour = "mardi"
   Case 3   nom_jour = "mercredi"
   Case 4   nom_jour = "jeudi"
   Case 5   nom_jour = "vendredi"
   Case 6   nom_jour = "samedi"
   Case 7   nom_jour = "dimanche"
  End Select

dateFormatee = n_jour & " " & nom_mois & " " & n_annee

getDateFr = dateFormatee

End Function

' transforme la ligne vide en paragraphe et remplace les caractères spéciaux
Function paragrapheFormate(byRef texte)

Dim texteTemp
Dim tab_para

tab_para = split(texte, VbCrLf & VbCrLf)

paragrapheFormate = ""

For i = 0 To UBound(tab_para)

paragrapheFormate = paragrapheFormate & "" & tab_para(i) & "" & VbCrLf
Next
End Function
%>

<head>
<title>Bourses d'études - Impression des questionnaires</title>
<link rel="stylesheet" type="text/css" media="all" href="mailing-questionnaire-impression-screen.css" />
<link rel="stylesheet" type="text/css" media="print" href="mailing-questionnaire-impression-print.css" />
</head>
<body>
<div id="infoImpression">
Pour l'impression, veuillez attendre la fin du chargement de la page, puis faites <tt>Fichier -> Mise en page</tt> Les entêtes et
les pieds de page doivent être vides. Ensuite, faites <tt>Fichier -> Imprimer</tt>. <a href="#" onclick="history.go(-1);">Retour à la page précédente</a>.


</div>
<center>
<%
requete_limite = "select T.* from tranchedecompte T"
set limite = conn.execute(requete_limite)
if not(limite.eof) then
agemin = limite("agemin")
agemax = limite("agemax")
end if

requete = "SELECT distinct S.matricule, S.nom, S.prenom, S.civilite, S.motifSorti, e.etudeterminee, e.nomEnfant, e.prenomEnfant, e.sexeEnfant, e.datenaissance, e.numenfant FROM enfant e, Salarie S WHERE S.matricule = e.matricule "
set resultat = conn.Execute(requete)

Dim datenaissance
            Dim dateMoisSuivant
            Dim moisAnciennete, anneeAnciennete
            Dim retour

datenaissance = resultat("datenaissance")
dateMoisSuivant = dateserial(year(dateadd("m", 1, now)), month(dateadd("m", 1, now)), 1)

moisAnciennete = DateDiff("m", datenaissance, dateMoisSuivant) mod 12
anneeAnciennete = DateDiff("yyyy", datenaissance, dateMoisSuivant)

retour = "" & anneeAnciennete

            If anneeAnciennete > 1 Then
                retour = retour
            Else
                retour = retour
            End If
If NOT resultat.EOF Then

' on affiche la première ligne

        If not isNull(resultat("nom")) Then

        numenfant = resultat("numenfant")
        nomenfant = resultat("nomenfant")
        prenomenfant= resultat("prenomenfant")
        matricule = resultat("matricule")
        etudeterminee = resultat("etudeterminee")
        motifSorti = resultat("motifSorti")
        nom = resultat("nom")
        prenom = resultat("prenom")
            If resultat("civilite") = "Madame" Then
                civilite = "Madame"
            Else
                civilite = "Monsieur"
            End If

End If

<%if (matricule <> "3827" or matricule <> "5150" or matricule <> "6778" or matricule <> "5948" or matricule <> "6887" or matricule <> "13405" or matricule <> "3879" or matricule <> "4865" or matricule <> "5114") then%>

<%if isNull(motifSorti) or motifSorti = "Retraite initiative employeur" or motifSorti = "Retraite initiative salarié" or motifSorti = "Retraite anticipée volontaire" or motifSorti = "Pré-retraite" or motifSorti = "Retraite normale" then %>

<%if (etudeterminee = "n" or etudeterminee= "N") then%>
<%if (Cint(agemin) <= Cint(retour) and Cint(agemax) >= Cint(retour)) then%>
<%Response.Write("<div class=""unCourier"">" & Vbcrlf)%>

 </center>
 <%

 requete_entete1= "SELECT entete1 FROM BE_questionnaire"
 set resultat_entete1 = conn.Execute(requete_entete1)

If NOT resultat_entete1.EOF Then
 Response.Write(doinput(resultat_entete1("entete1")))
 End If
 %> <%
 requete_entete2= "SELECT entete2 FROM BE_questionnaire"
 set resultat_entete2 = conn.Execute(requete_entete2)

If NOT resultat_entete2.EOF Then
 Response.Write(doinput(resultat_entete2("entete2")))
 End If
 %>
 <%
 requete_entete3= "SELECT entete3 FROM BE_questionnaire"
 set resultat_entete3 = conn.Execute(requete_entete3)

If NOT resultat_entete3.EOF Then
 Response.Write(doinput(resultat_entete3("entete3")) )
 End If
 %><center>
 
 <%
 response.write ("DEMANDE DE BOURSES D'ETUDES")
 %> 
 <%response.write ("(à adresser au Service du Personnel - Bourses d'Etudes)")%>
 

<%requete_ad ="select A.* from Adresse A where A.matricule = '"& matricule &"' "
requete_ad = requete_ad & " and A.DateDebAdr = (SELECT MAX(A2.DateDebAdr) FROM Adresse A2 WHERE A.matricule=A2.matricule)"
set ad = conn.execute(requete_ad)%>

<%if (matricule <> "3827" and matricule <> "5150" and matricule <> "6778" and matricule <> "5948" and matricule <> "6887" and matricule <> "13405" and matricule <> "3879" and matricule <> "4865" and matricule <> "5114") then

requete_aff = "select Aff.*, SE.codeservice, SE.libelleservice, CH.codeservice, CH.idunitstruct from Affectation Aff, Service SE, CorrespondanceDSCH CH where Aff.matricule = '"& matricule &"' and SE.codeservice = CH.codeservice and Aff.idunitstruct = CH.idunitstruct "
requete_aff = requete_aff & " and Aff.DateDebchangement = (SELECT MAX(Aff2.DateDebchangement) FROM Affectation Aff2 WHERE Aff.matricule=Aff2.matricule) "
set aff = conn.execute(requete_aff)

else

requete_aff = "select Aff.* from Affectation Aff where Aff.matricule = '"& matricule &"' "
set aff = conn.execute(requete_aff)

end if%>

<%
 Response.Write("<address>" & Vbcrlf)
 response.write("Matricule :")%> <%response.write (doinput(matricule))%> 
 <%if aff("idunitstruct") <> "" then%>
 <%
 response.write("Service :")%> <%response.write (doinput(aff("libelleservice")))%> <%end if%><%
 Response.Write(doinput(resultat("civilite")) & " " & doinput(resultat("prenom")) & " " & doinput(resultat("nom")) & " " & Vbcrlf)
 If ad("chez") <> "" Then
 Response.Write("" & doinput(ad("chez")) & " " & Vbcrlf)
 End If

If ad("nomDeRue") <> "" Then
 Response.Write(doinput(ad("numeroRue")) & " " & doinput(ad("nomDeRue")) & " " & Vbcrlf)
 End If

If ad("complement") <> "" Then
 Response.Write("" & doinput(ad("complement")) & " " & Vbcrlf)
 End If

Response.Write(doinput(ad("codePostal")) & " " & doinput(ad("localite")) & Vbcrlf)

If (ad("pays") <> "" AND UCase(ad("pays")) <> "FRANCE") Then
 Response.Write(" " & Vbcrlf & doinput(ad("pays")) & "")
 End If

Response.Write("</address>" & Vbcrlf)

%> 
<%

on error resume next

requete_scolarite = "SELECT ET.idetablissementScolaire, SC.idetablissementscolaire, ET.libetablissementscolaire, SC.idregime, R.idregime, R.libregime, SC.idclassescolaire, C.idclassescolaire, C.libelleclasse, SC.idscolarite FROM Scolarite SC, ClasseScolaire C, RegimeScolaire R, EtablissementScolaire ET where SC.idetablissementscolaire = ET.idetablissementScolaire and SC.idclassescolaire = C.idclassescolaire and SC.idregime = R.idregime and SC.matricule = '"& matricule &"' and SC.numenfant = '"& numenfant &"' order by SC.idscolarite DESC"
set requete_scolarite = conn.execute(requete_scolarite)

if not requete_scolarite.eof then
libelleclasse = requete_scolarite("libelleclasse")
libetablissementscolaire = requete_scolarite("libetablissementscolaire")
libregime = requete_scolarite("libregime")
end if

%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="39">
<tr>
 <td width="101%" style="border-left-style: solid; border-left-width: 1; border-top-style: solid; border-top-width: 1; border-right-style:solid; border-right-width:1" colspan="3" height="17">
 Situation familiale du salarié :   O Marié(e)   
 O Vie Maritale    O Remarié(e)    O Séparé(e)    O Divorcé(e)    O Veuf(ve)    </td>
</tr>
<tr>
 <td width="37%" style="border-left-style: solid; border-left-width: 1; border-top-style: none; border-top-width: medium" height="17"><%response.write nomenfant%> <%response.write prenomenfant%></td>
 <td width="11%" style="border-top-style: none; border-top-width: medium" height="17">
 Né(e) le :</td>
 <td width="53%" style="border-right-style: solid; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" height="17"><%response.write datenaissance%></td>
</tr>
<tr>
 <td width="101%" style="border-left-style: solid; border-left-width: 1; border-top-style: none; border-top-width: medium; border-right-style:solid; border-right-width:1" height="18" colspan="3">
 Situation de l'enfant :     O Alternance         
 O Apprentissage          O
 Salarié</td>
</tr>
</table>

<% if not isnull(requete_scolarite("idscolarite")) or requete_scolarite("idscolarite") <> "" then%>
<% If not isnull(requete_scolarite("libelleclasse")) Or not isnull(requete_scolarite("libetablissementscolaire")) Or not isnull(requete_scolarite("libregime")) Or requete_scolarite("libelleclasse") <> "" Or requete_scolarite("libetablissementscolaire") <> "" Or requete_scolarite("libregime") <> "" Then%>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="10">
<tr>
 <td width="101%" style="border-style:solid; border-width:1; " colspan="4" height="16">
 Année : 
 <%response.write requete_scolarite("idscolarite")%> /
 <%temp = ""
 temp = requete_scolarite("idscolarite")
 temp = temp + 1%>
 <%response.write temp%>

 </td>
</tr>

<tr>
 <td width="100%" style="border-left-style: solid; border-left-width: 1; border-top-style:solid; border-top-width:1; border-right-style:solid; border-right-width:1" colspan="4" height="20">
 Nature des études suivies :
 <%response.write requete_scolarite("libetablissementscolaire")%>
 </td>
</tr>

<tr>
 <td width="59%" style="border-left-style: solid; border-left-width: 1; border-bottom-style:solid; border-bottom-width:1" colspan="2" height="20">
 Classe :
 <%response.write requete_scolarite("libelleclasse")%>
 </td>
 <td width="6%" style="border-right-style: none; border-right-width: medium; border-left-style:none; border-left-width:medium; border-bottom-style:solid; border-bottom-width:1" height="20">
 Régime :</td>
 <td width="36%" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium; border-bottom-style:solid; border-bottom-width:1" height="20">
  <%response.write requete_scolarite("libregime")%></td>
</tr>

<%end if%>
<%end if%>
<tr>
 <td width="37%" style="border-left-style: solid; border-left-width: 1; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20">
 Année en cours :</td>
 <td width="22%" style="border-right-style: none; border-right-width: medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20"> </td>
 <td width="6%" style="border-right-style: none; border-right-width: medium; border-left-style:none; border-left-width:medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20">
  </td>
 <td width="36%" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20"> </td>
</tr>

</table>

<%
requete_BasdePage = "SELECT BasdePage FROM BE_questionnaire"
set resultat_BasdePage = conn.Execute(requete_BasdePage)

If NOT resultat_BasdePage.EOF Then

Response.Write("<div class=""BasdePage"">" & doinput(resultat_BasdePage("BasdePage")) & "</div>" & Vbcrlf)
%><%
 End If%>

A                             le                             


<center>
 
                                                                  Signature,
TSVP F

<%Response.Write("</div>" & Vbcrlf)
end if
end if
end if
end if

resultat.MoveNext

        ' puis les suivantes en ajoutant un saut de page
        ' afin de ne pas sortir une page vierge à la fin

        While NOT resultat.EOF

            If not isNull(resultat("nom")) Then

            numenfant = resultat("numenfant")
            nomenfant = resultat("nomenfant")
            prenomenfant = resultat("prenomenfant")
            matricule = resultat("matricule")
            motifSorti = resultat("motifSorti")
            etudeterminee = resultat("etudeterminee")
            nom = resultat("nom")
          prenom = resultat("prenom")
                If resultat("civilite") = "Madame" Then
                    civilite = "Madame"
                Else
                    civilite = "Monsieur"
                End If

            End If


    datenaissance = resultat("datenaissance")
            dateMoisSuivant = dateserial(year(dateadd("m", 1, now)), month(dateadd("m", 1, now)), 1)

moisAnciennete = DateDiff("m", datenaissance, dateMoisSuivant) mod 12
anneeAnciennete = DateDiff("yyyy", datenaissance, dateMoisSuivant)

retour = "" & anneeAnciennete

            If anneeAnciennete > 1 Then
                retour = retour
            Else
                retour = retour
            End If

%>

<%if (etudeterminee = "n" or etudeterminee= "N") then%>
<%if (Cint(agemin) <= Cint(retour) and Cint(agemax) >= Cint(retour)) then
%>
<%Response.Write("<hr class=""separateur_page"" />" & Vbcrlf)%>
<%
 Response.Write("<div class=""unCourier"">" )
%>
 </center>
 <%

 requete_entete1= "SELECT entete1 FROM BE_questionnaire"
 set resultat_entete1 = conn.Execute(requete_entete1)

If NOT resultat_entete1.EOF Then
 Response.Write(doinput(resultat_entete1("entete1")))
 End If
%> <%
 requete_entete2= "SELECT entete2 FROM BE_questionnaire"
 set resultat_entete2 = conn.Execute(requete_entete2)

If NOT resultat_entete3.EOF Then
 Response.Write(doinput(resultat_entete3("entete3")) )
 End If
 %><center>

<%
 response.write ("DEMANDE DE BOURSES D'ETUDES")
 %> 
 <%response.write ("(à adresser au Service du Personnel - Bourses d'Etudes)")%>
 


<%requete_ad ="select A.* from Adresse A where A.matricule = '"& matricule &"' "
requete_ad = requete_ad & " and A.DateDebAdr = (SELECT MAX(A2.DateDebAdr) FROM Adresse A2 WHERE A.matricule=A2.matricule)"
set ad = conn.execute(requete_ad)%>

else

requete_aff = "select Aff.* from Affectation Aff where Aff.matricule = '"& matricule &"' "
set aff = conn.execute(requete_aff)

end if%>

 <%
 Response.Write("<address>" & Vbcrlf)
 response.write("Matricule :")%> <%response.write (doinput(matricule))%> 
 <%if aff("idunitstruct") <> "" then%>
 <%
 response.write("Service :")%> <%response.write (doinput(aff("libelleservice")))%> <%end if%><%
 Response.Write(doinput(civilite) & " " & doinput(prenom) & " " & doinput(nom) & " " & Vbcrlf)
 If ad("chez") <> "" Then
 Response.Write("" & doinput(ad("chez")) & " " & Vbcrlf)
 End If

If ad("nomDeRue") <> "" Then
 Response.Write(doinput(ad("numeroRue")) & " " & doinput(ad("nomDeRue")) & " " & Vbcrlf)
 End If

If ad("complement") <> "" Then
 Response.Write("" & doinput(ad("complement")) & " " & Vbcrlf)
 End If

Response.Write(ad("codePostal") & " " & ad("localite") & Vbcrlf)

If (ad("pays") <> "" AND UCase(ad("pays")) <> "FRANCE") Then
 Response.Write(" " & Vbcrlf & doinput(ad("pays")) & "")
 End If

Response.Write("</address>" & Vbcrlf)

%> 
<%

on error resume next

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="10">

<% if not isnull(requete_scolarite("idscolarite")) or requete_scolarite("idscolarite") <> "" then%>
<% If not isnull(requete_scolarite("libelleclasse")) Or not isnull(requete_scolarite("libetablissementscolaire")) Or not isnull(requete_scolarite("libregime")) Or requete_scolarite("libelleclasse") <> "" Or requete_scolarite("libetablissementscolaire") <> "" Or requete_scolarite("libregime") <> "" Then%>

<tr>
 <td width="101%" style="border-style:solid; border-width:1; " colspan="4" height="16">
 Année : 
 <%response.write requete_scolarite("idscolarite")%> /
 <%temp = ""
 temp = requete_scolarite("idscolarite")
 temp = temp + 1%>
 <%response.write temp%>

 </td>
</tr>

</td>
 <td width="6%" style="border-right-style: none; border-right-width: medium; border-left-style:none; border-left-width:medium; border-bottom-style:solid; border-bottom-width:1" height="20">
 Régime :</td>
 <td width="36%" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium; border-bottom-style:solid; border-bottom-width:1" height="20">
  <%response.write requete_scolarite("libregime")%></td>
</tr>
<%end if%>
<%end if%>
<tr>
 <td width="37%" style="border-left-style: solid; border-left-width: 1; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20">
 Année en cours :</td>
 <td width="22%" style="border-right-style: none; border-right-width: medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20"> </td>
 <td width="6%" style="border-right-style: none; border-right-width: medium; border-left-style:none; border-left-width:medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20">
  </td>
 <td width="36%" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20"> </td>
</tr>

</table>

<%
 requete_BasdePage = "SELECT BasdePage FROM BE_questionnaire"
 set resultat_BasdePage = conn.Execute(requete_BasdePage)
 If NOT resultat_BasdePage.EOF Then
 Response.Write("<div class=""BasdePage"">" & doinput(resultat_BasdePage("BasdePage")) & "</div>" & Vbcrlf)
%><%
 End If%>

<% Response.Write("</div>" & Vbcrlf)
end if
end if
end if
end if

resultat.MoveNext
Wend
End If%>
</center>
</body>
</html>

lundi 10 octobre 2005 à 20:37:43 | Re : probleme de tri dans mes requetes

tikrimi

175 msg

178 msg CS

Bonsoir,

Je suis désolé, mais je n'ai pas vraiment le courage de toutlire.
As tu par hasard dans ta requete SQL utilisé une clause Order By ?

D'une manière plus générale, quand tu poses une question dans une forum, essaye d'isoler ton problème au maximum, les personnes qui prennent le temps de lire les posts et d'y répondre ne peuvent pas nom plus passer 1 heure pour lire un post.

TiK

[ Lien ]

lundi 10 octobre 2005 à 21:03:47 | Re : probleme de tri dans mes requetes

Nurgle

1244 msg

1616 msg CS

Salut,

Je crois avoir réussi à tout lire

, et je ne vois qu'un "order by SC.idscolarite DESC" à deux endroits.

Quels sont les requêtes qui doivent être triées par libelleservice ? Où est ce que tu les tries par matricule ?

Et essaye de virer de la page tout ce qui n'est pas necessaire (le code html, les fonctions au début...etc)

A+++

Nurgle
Il est plus aisé d'être sage pour les autres que pour soi-même ! (La Rochefoucauld)

mardi 11 octobre 2005 à 08:52:22 | Re : probleme de tri dans mes requetes

tommie

35 msg

45 msg CS

ok j'ai bien compris le message et je vais faire le tri dans ma page!
donc en fait j'ai une requete principale qui est celle nommée requete
et ensuite en fonction de celle la je fais d'autre requete dont requete_aff celle ci ou j'ai mon libelleservice
par contre ca me tri suivant la premiere requete et non celle que je veux.
en fait je voudrais que la totalité soit trié par libelleservice
merci de votre aide

<%
Session.LCID = 1036 ' gestion des dates en francais
set conn = Application("connexion") %>

<body>
<%
requete_limite = "select T.* from tranchedecompte T"
set limite = conn.execute(requete_limite)
if not(limite.eof) then
agemin = limite("agemin")
agemax = limite("agemax")
end if

Dim datenaissance
            Dim dateMoisSuivant
            Dim moisAnciennete, anneeAnciennete
            Dim retour

datenaissance = resultat("datenaissance")
dateMoisSuivant = dateserial(year(dateadd("m", 1, now)), month(dateadd("m", 1, now)), 1)

moisAnciennete = DateDiff("m", datenaissance, dateMoisSuivant) mod 12
anneeAnciennete = DateDiff("yyyy", datenaissance, dateMoisSuivant)

retour = "" & anneeAnciennete

            If anneeAnciennete > 1 Then
                retour = retour
            Else
                retour = retour
            End If
If NOT resultat.EOF Then

' on affiche la première ligne

End If

<%Response.Write("<div class=""unCourier"">" & Vbcrlf)%>
 <%
 response.write ("DEMANDE DE BOURSES D'ETUDES")%>

<%requete_ad ="select A.* from Adresse A where A.matricule = '"& matricule &"' "
requete_ad = requete_ad & " and A.DateDebAdr = (SELECT MAX(A2.DateDebAdr) FROM Adresse A2 WHERE A.matricule=A2.matricule)"
set ad = conn.execute(requete_ad)%>

else

requete_aff = "select Aff.* from Affectation Aff where Aff.matricule = '"& matricule &"' "
set aff = conn.execute(requete_aff)

end if%>

%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="39">
<tr>
 <td width="37%" style="border-left-style: solid; border-left-width: 1; border-top-style: none; border-top-width: medium" height="17"><%response.write nomenfant%> <%response.write prenomenfant%></td>
 <td width="11%" style="border-top-style: none; border-top-width: medium" height="17">
 Né(e) le :</td>
 <td width="53%" style="border-right-style: solid; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" height="17"><%response.write datenaissance%></td>
</tr>
</table>

<%end if%>
<%end if%>

</table>

<%Response.Write("</div>" & Vbcrlf)

resultat.MoveNext

            End If


    datenaissance = resultat("datenaissance")
            dateMoisSuivant = dateserial(year(dateadd("m", 1, now)), month(dateadd("m", 1, now)), 1)

moisAnciennete = DateDiff("m", datenaissance, dateMoisSuivant) mod 12
anneeAnciennete = DateDiff("yyyy", datenaissance, dateMoisSuivant)

retour = "" & anneeAnciennete

            If anneeAnciennete > 1 Then
                retour = retour
            Else
                retour = retour
            End If

%>

%>
<%Response.Write("<hr class=""separateur_page"" />" & Vbcrlf)%>
<%
 Response.Write("<div class=""unCourier"">" )
%>
 <%
 response.write ("DEMANDE DE BOURSES D'ETUDES")
 %>

<%requete_ad ="select A.* from Adresse A where A.matricule = '"& matricule &"' "
requete_ad = requete_ad & " and A.DateDebAdr = (SELECT MAX(A2.DateDebAdr) FROM Adresse A2 WHERE A.matricule=A2.matricule)"
set ad = conn.execute(requete_ad)%>

else

requete_aff = "select Aff.* from Affectation Aff where Aff.matricule = '"& matricule &"' "
set aff = conn.execute(requete_aff)

end if%>

 <%
 Response.Write("<address>" & Vbcrlf)
 response.write("Matricule :")%> <%response.write (doinput(matricule))%> 
 <%if aff("idunitstruct") <> "" then%>
 <%
 response.write("Service :")%> <%response.write (doinput(aff("libelleservice")))%> <%end if%><%
 Response.Write(doinput(civilite) & " " & doinput(prenom) & " " & doinput(nom) & " " & Vbcrlf)
 Response.Write("</address>" & Vbcrlf)

%> 
<%

<%end if%>
<%end if%>

</table>

<% Response.Write("</div>" & Vbcrlf)

resultat.MoveNext
Wend
End If%>
</center>
</body>
</html>

Cette discussion est classée dans : requete, resultat, matricule, nbsp, doinput

Répondre à ce message

Sujets en rapport avec ce message

resultat d'une requete dans une variable [ par chelouasp ] helloje voudrais juste savoir comment on pourrait mettre le resultat d'un select dans une variable VAR. voici la requete en question:select id where Recuperer le resultat d'une requete [ par poussmouss ] Bon alors la en fait c'est un truc tout bete, tellement bete ,que j'en ai honte.Bref voila, je fait une requete du type : SELECT MAX(num) FROM matable [ASP.NET][C#]Enregistrer le resultat d'un requete ??? [ par EvilDef ] Bonjour a tous, j'aimerai savoir dans quel type de variable on peut stocker le resultat d'une requetej'avais pensé a un tableau mais pour le créé, je resultat d'une requete avec un ordre aléatoire [ par hgozlan ] Je cherche a faire une requête qui à l’air toute simple : exemple select * from nom_de_ma_table Mais je veux que mes champs apparaissent de manière Tester le resultat d'une requete [ par mjcra ] Bonjour,Je souhaite tester la requete SQL ci-dessous pour afficher un message si la requete ne revoie aucun résultat? ?Mais je bloque?Merci d?avance< Afficher le resultat d'une requete SQL dans un label en ASP.NET C# [ par DigigtalDJ ] Salut a tous!Voila je debut dans le milieu C# et ASP.NET et j'ai des base une peu coton . J'aurai aimer savoir comment on retourne le resultat d'une r Requete d'Absence [ par lamziouaq2 ] Salut tout le monde je programme une Page d'absence et j'ai besoin d'afficher pour un mois donné, le matricule le nom é le nombre d'absence pour chaqu Remplissage personnalisé d'une colonne selon le resultat d'une requete [ par Echizen_R ] Bonjour,J'ai un datagrid qui est lié à un dataset, le dataset est rempli par une requête. Une des colonnes de ma requête renvoie 0 ou 1 et je voudrais help aide requete !!! [ par tommie ] bonjour j'ai un petit soucis avec une requete sous oracle, je vous explique le probleme:j'ai trois tables de la forme:-- TABLE SALARIE: CREATE TABLE S aide code asp urgent ! [ par tommie ] bonjour a tous,Dans une page je vais afficher les questionnaires des enfants a impimerEt pour chaque questionnaire je met des infos les concernantMais

Livres en rapport

JavaScript

WiFi

Internet pour les nuls (version mini référence)

Architecture et technologie des ordinateurs

Tous les livres pour Requete, Resultat, Matricule, Nbsp, Doinput

Nos sponsors

Derniers Blogs

[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE par Audrey

ZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATION par ROMELARD Fabrice

PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE

APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit

ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2 par ROMELARD Fabrice

Forum

VIDEO DE SURVEILLANCE par allex1

CONNEXION D'UNE APPLICATION WEB AVEC UNE BDD SQL SERVER 2005 par wislam2007

RE : URGENT :UN PLUGIN DE DéTECTION DE MATéRIEL POUR UNE WEB APPLICATION SOUS ASP. NET par Nurgle

UTILISATEUR par zaydounhlel

RE : EDITCOMMANDCOLUMN ET TEXTBOX par ggtry

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Logiciels

Academy System (10.9.4.0)
ACADEMY SYSTEM (10.9.4.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)
XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)

Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise...

Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate
Xilisoft DVD Ripper Ultimate (5.0.64.0304)
XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)

Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ...

Cliquez pour télécharger Xilisoft DVD Ripper Ultimate
Axalot, logiciel de sauvegarde de données en ligne (1.10.108.1)
AXALOT, LOGICIEL DE SAUVEGARDE DE DONNéES EN LIGNE (1.10.108.1)

Perdre tout le contenu de votre disque dur, vous imaginez ? Vos photos, vos musiques, votre compt...

Cliquez pour télécharger Axalot, logiciel de sauvegarde de données en ligne
Rigs of Rods (63.3)
RIGS OF RODS (63.3)

c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo...

Cliquez pour télécharger Rigs of Rods