Discussion :

[sleeg]

Bonjour,

Sur ma page d'artistes dans la colonne de gauche, je voudrais afficher des dates en relation avec des artistes enregistrés auparavant dans ma BD, il y a une table pour les artistes et les dates sont dans la table event. Lorsque j'ai enregistré l'artiste et que je met une plusieurs dates, aucun problème, la page s'affiche. Mais lorsque j'enregistre seulement un artiste sans dates, la page plante.
J'ai fait une jointure pour avoir les dates en relation avec les artistes. Donc si la page plante c'est certainement pcq je n'ai qu'un artiste et que l'event en relation n'existe pas.

Et je ne vois pas comment je peux faire pour que ma page s'affiche quand même...

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
 
IF pagename = "artistes.asp" THEN
	IF Request.QueryString("id") <> "" THEN
		Set rsX = Server.CreateObject("ADODB.Recordset")
		stmtX= "SELECT * FROM Artistes JOIN Events ON EventArtiste = ArtisteID WHERE ArtisteID = '"& Request.QueryString("id") &"';"
		rsX.Open stmtX, Application("ConnMsi"),3,1,1
			IF rsX("EventDate") <> "" THEN
				Response.Write "<tr><td style=""padding-bottom:25px;padding-top:5px;"">"
				Response.Write "<table border=""0"" cellpadding=""2"" cellspacing=""0"" width=""90%"" align=""center"">"
				Response.Write "<tr><td style=""padding-bottom:10px;""><b>"
				IF rsX.recordcount > 1 THEN Response.Write Application("tNextDate2"& Session("lang") &"") ELSE Response.Write Application("tNextDate1"& Session("lang") &"") END IF
				Response.Write " :</b></td></tr>"
				DO UNTIL rsX.EOF
					Response.Write "<tr>"
					Response.Write "<td align=center><a href=""event.asp?id="& rsX("EventID") &""" style=""color:#FFFFFF;text-decoration:underline;"">"& Application("tLe"& Session("lang") &"") &" "& rsX("EventDate") &" "& Application("tA"& Session("lang") &"") &" "& rsX("EventLieu") &"</a></td>"
					Response.Write "</tr>"
					rsX.MoveNext
				LOOP
				Response.Write "</table></td></tr>"
			END IF
		rsX.Close
		set rsX=Nothing
	END IF
END IF

L'erreur est à la ligne suivante :

IF rsX("EventDate") <> "" THEN

[tumoo]

salut

quel est le message d'erreur ?

tu as essayé avec isNull(rsX("EventDate"))au lieu de rsX("EventDate")<>"" ?

[sleeg]

Arf bien sur pourquoi je n'y avait pas pensé plus tot! merci tumoo.

[sleeg]

Mais en fait cela rend ma condition IF rsX("EventDate") <> "" THEN inutile puisque je voulais que ma table avec les dates ne s'affiche plus et la elle s'affiche quand même mais sans dates.

Une idée?

[tumoo]

Tu veux que si un enregistrement ne possède pas de date, la ligne ne s'affiche pas et quand elle possède une date, elle s'affiche ?

[sleeg]

la table, oui (celle qui est dans le code que j'ai joint).

Puisque maintenant j'ai "prochaines dates" qui s'affiche et puis plus rien s'il n'y pas d'évènement donc inutile

[tumoo]

Je ne suis pas sûr de bien saisir ton problème

enfin d'après ce que j'ai compris, je te dirais de faire

Code :

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

stmtX= "SELECT * FROM Artistes JOIN Events ON EventArtiste = ArtisteID WHERE ArtisteID = '"& Request.QueryString("id") &" AND EventDate IS NOT NULL "&"';"

ça devrait te donner le même résultat sans les lignes où la date est null
c'est ce que tu cherchais ?

[sleeg]

Oui c'est ce que je cherche...

J'avais essayé plus tôt ce que tu m'as indiqué au niveau de la requête SQL mais ça me donne la même erreur qu'au début :

error '80020009'

[tumoo]

quel message d'erreur ?

[sleeg]

Pas de message d'erreur... juste ça et l'erreur renvoyée à la ligne :

IF rsX("EventDate") <> "" THEN

[tumoo]

La requête te renvoie bien un résultat si tu l’exécutes directement dans ton SGBD ?

Logiquement, tu n'as plus besoin de tester IF rsX("EventDate") <> "" THEN avec la requête,

[sleeg]

Non la requête ne me renvoie pas de résultat, normal puisque la table jointe (event) dans le cas de cet artiste qui n'a pas encore de date n'existe pas...

J'ai essayé cela :

Code :

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

1
2
3
4
 
stmtX= "SELECT * FROM Artistes JOIN Events ON EventArtiste = ArtisteID WHERE ArtisteID = '"& Request.QueryString("id") &"' AND EventDate IS NOT NULL;"
		rsX.Open stmtX, Application("ConnMsi"),3,1,1
			IF rsX("EventDate") Is Not Null THEN

En me disant que ça n'afficherait pas la table (html cette fois) si la valeur était nulle. Mais ça me donne l'erreur suivante :

Microsoft VBScript runtime error '800a01a8'

Object required

[tumoo]

Je ne suis pas sûr que is not null existe en ASP
plutôt isNull()

Si la requête ne renvoie pas de résultat, c'est normal que ça ne fonctionne pas derrière

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
stmtX= "SELECT * FROM Artistes JOIN Events ON EventArtiste = ArtisteID WHERE ArtisteID = '"& Request.QueryString("id") &"' AND EventDate IS NOT NULL;"
rsX.Open stmtX, Application("ConnMsi"),3,1,1
IF rsX.RecordCount<>"" THEN
    rsX.MoveFirst
        do while not rsX.EOF
              if rsX("tonchamp") then
                  ton traitement
              end if
         rsX.MoveNext
         loop
else
     Response.Write "rsX est vide"
end if

essaye de t'inspirer d'un code de ce genre, si c'est pas ça, je comprends vraiment pas ton problème

[sleeg]

La solution, j'ai changé ma condition :

Code :

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

IF rsX.RecordCount > 0 THEN

Merci je n'y aurait pas pensé sans ce que tu viens de mettre. Comme quoi lorsque les idées sont mises en commun...