récupérer le maximum d'un champ

**Phiss** · 17/07/2006, 17h09

Envoyé par badboys206s16

ce que je ne comprend pas c'est que si après ma boucle pour remplir mon tableau je met un response.write de max_valeur

j'obtient une ligne au dessus de mon tableau avec ma date maximum donc je pense que ca allait marcher

Cela te met une ligne au dessus de ta table car ton response.write doit, dans ton code entre des balises <table> et </table> mais pas entre des balises <td> et </td>.
Du coup il interprete bien le response.write mais il l'affiche avant la table.

A part ça tu as toujours tes lignes rouge?

**badboys206s16** · 17/07/2006, 17h18

oui

comment je pourrai faire pour utiliser la valeur de max_valeur pour mettre en couleur l'intitulé de mon tableau ?

tu as une idée ?

merci

**Phiss** · 17/07/2006, 17h28

Le souci c'est que tu as ta valeur finale de max_valeur lorsque tua s affiché tout ton tableau.

C'est donc impossible que dans la suite de ton traitement tu puisses afficher quelques choses avant.

il y a deux possibilités ( du moins moi j'en vois deux...)

la première est de chercher ta valeur max avant l'affichage de ton tableau.

la seconde est, au lieu d'afficher tous de suite ta table lors de ta boucle, tu mets tous ça dans un buffer et tu l'affiches après.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
dim max_valeur
dim buf_tempo 
buf_tempo = ""
buf_tempo = "<table ....>"
max_valeur = 0
do while not rs1.EOF 
	if rs("date") > max_valeur then
		max_valeur = rs("date")
	else
		max_valeur = max_valeur
	end if
	urgence=DateDiff("n",max_valeur,date())
	if urgence > 10 then
		urg="#ff0000"
	else
		urg="#ffffff"
	end if
    	buf_tempo = buf_tempo & "<tr><td bgcolor=" & urg & "> ... </tr>"
	rs.movenext
loop
buf_tempo = buf_tempo  & "</table>"

à la suite de ça tu as toute ta table dans buf_tempo et ton max dans max_valeur. ensuite pour afficher ta table tu as pluqu'à faire un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

response.write (buf_tempo)

**badboys206s16** · 18/07/2006, 08h56

mais je ne vois pas trop ce que cela change

dans le code que tu me montre, c'est une case du tableau que tu veux mettre en couleur et moi c'est une case de l'intitulé donc une ligne qui n'est pas dans la boucle

**sofienems** · 18/07/2006, 09h14

slt .
je crois que tu peut faire select champ_name ..... order by champ_name DESC
et comme ca tu aura le maximum de ce champ dans le premier enregistrement de recordset .

**Phiss** · 18/07/2006, 09h17

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
dim max_valeur
dim buf_tempo 
buf_tempo = ""
buf_tempo = "<table ....>"
max_valeur = 0
do while not rs1.EOF 
	if rs("date") > max_valeur then
		max_valeur = rs("date")
	else
		max_valeur = max_valeur
	end if
    	buf_tempo = buf_tempo & "<tr><td> ... </tr>"
	rs.movenext
loop
buf_tempo = buf_tempo  & "</table>"
if DateDiff("n",max_valeur,date()) > 10 then
  ' tu affiches un truc qui est en rouge
else 
 ' soit tu mets rien soit tu mets en truc en blanc.
end if
'tu affiches ton tableau
 
response.write (buf_tempo)

**badboys206s16** · 18/07/2006, 09h31

et ma ligne que je veux mettre re rouge je la met où?

au début du tableau comme avant ou a la fin quand tu dis "tu affiches un truc qui est en rouge" ???

**Phiss** · 18/07/2006, 09h37

la ou je mets tu mets une ligne en rouge car de toute façon j'affiches le tableau après.

**badboys206s16** · 18/07/2006, 09h42

ok ca marche mais ma ligne en rouge est a la fin de mon tableau
comment je fais pour remettre les lignes dans l'ordre quand j'affiche mon tableau?

**Phiss** · 18/07/2006, 09h51

deux solutions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
dim max_valeur
dim buf_tempo 
buf_tempo = ""
buf_tempo = "<table ....>"
max_valeur = 0
do while not rs1.EOF 
	if rs("date") > max_valeur then
		max_valeur = rs("date")
	else
		max_valeur = max_valeur
	end if
    	buf_tempo = buf_tempo & "<tr><td> ... </tr>"
	rs.movenext
loop
buf_tempo = buf_tempo  & "</table>"
if DateDiff("n",max_valeur,date()) > 10 then
  ' tu affiches un truc qui est en rouge
 ' tu créais une autre table avec ta ligne rouge
else 
 ' soit tu mets rien soit tu mets en truc en blanc.
end if
'tu affiches ton tableau
response.write (buf_tempo)

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
dim max_valeur
dim buf_tempo 
buf_tempo = ""
max_valeur = 0
do while not rs1.EOF 
	if rs("date") > max_valeur then
		max_valeur = rs("date")
	else
		max_valeur = max_valeur
	end if
    	buf_tempo = buf_tempo & "<tr><td> ... </tr>"
	rs.movenext
loop
buf_tempo = buf_tempo  & "</table>"
if DateDiff("n",max_valeur,date()) > 10 then
  ' tu affiches un truc qui est en rouge
  ' tu mets la ton début de table 
  response.write("<table ... ><tr><td bgcolor = '#ff0000'>  </td></tr>")
else 
 ' soit tu mets rien soit tu mets en truc en blanc.
  response.write("<table ... ><tr><td>  </td></tr>")
end if
'tu affiches ton tableau
 
response.write (buf_tempo)

**badboys206s16** · 18/07/2006, 10h10

ok super
merci beaucoup

encore un petit truc

avant dans mon code j'avais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
response.write "<tr class=><td>..."
		if rs1("nb_zip_lecteur") = 0 then
		Response.write("&nbsp;") 
		else
		Response.write(rs1("nb_zip_lecteur"))
		end if 
response.write "</td><td> ..."

j'ai donc changé avec buf_tempo :

[CODE]
buf_tempo = buf_tempo & "<tr class=><td>..."
if rs1("nb_zip_lecteur") = 0 then
Response.write(" ")
else
Response.write(rs1("nb_zip_lecteur"))
end if
buf_tempo = buf_tempo & "</td><td> ..."

[CODE]

mais je ne sais pas comment changer le if au milieu

**Phiss** · 18/07/2006, 10h20

a la place du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

response.write

tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

buf_tempo = buf_tempo &

**badboys206s16** · 18/07/2006, 11h26

dis est ce que cette solution peut poser des problèmes au niveau de mon formulaire ?

maintenant des qu'un champ est vide, il me le prend comme NULL

donc les requêtes marchent plus

merci

**Phiss** · 18/07/2006, 11h52

il est ou ton formulaire et il fait quoi?

**badboys206s16** · 18/07/2006, 13h17

c'est un formulaire tout simple qui se trouve au dessus de mon tableau
ca marchait tres bien avant que je modifi tout
maintenant tous mes champs, s'ils sont vides sont considérés comme NULL

**Phiss** · 18/07/2006, 13h25

en même temps je ne vois pas le rapport entre le formulaire et l'affichage du tableau que je t'ai fait.

Il y a un lien ou pas?

**badboys206s16** · 18/07/2006, 13h26

oui je pense

puisque les valeurs que je récupére dans mon formulaire, je les fais passer dans l'url et ce sont des conditions de ma requête

**Phiss** · 18/07/2006, 14h07

si c'est en amont, il n'y a aucun rapport.

**badboys206s16** · 18/07/2006, 14h14

surement qu'il y a un petit rapport parce que ma page marchait avant et la j'ai une erreur de conversion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Erreur de conversion du type de données varchar en datetime.

et mes champs vides à NULL

alors qu'avant quand ils étaient vide, j'avais rien

**badboys206s16** · 18/07/2006, 14h23

en faite la première fois que j'entre mes valeurs dans le formulaire ca marche bien

quand elles sont dans l'url et que je veux les utiliser, il y a des ' ' qui se mettent autour et donc il y a une erreur

récupérer le maximum d'un champ

ASP

Discussions similaires

Partager

Partager