Discussion :

[Pau]

Bonjour,

je fais afficher une liste d'information dans un tableau (qui viennent de ma base de données access), à côté du nom de cette info, l'étiquette en quelque sorte. Mais je voudrais que ces étiquettes et ces infos ne s'affichent que si le champs correspondant de la base n'est rempli. Je dois pouvoir faire ça avec un if quelquechose, non?
Merci

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
26
<% 
...
SQL = " SELECT * ...
 
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, conn
if rs.eof = false then
rs.MoveFirst
 
 %>
 
 
<tr><td >Nom</td>
       <td> <%=rs("Etablissement.Nom")%></td></tr>
<tr><td>Adresse</td>
       <td> <%=rs("Adresse")%></td></tr>
       ...</td></tr>
 
<%
Do while Not rs.EOF 
rs.MoveNext
Loop
 
end if
...
%>

[roots_man]

Est-ce que ton code fonctionne ? celui ke tu nous as donné ci-dessus ?

Paske pour moi il a pas l'air correcte. il devrais t'afficher que le premier enregistrement.

A+

[Pau]

Bein j'ai un peu triché... en fait c'est normal que ça n'affiche que le premier résultat, c'est ce que je voulais.
C'est quand même possible je pense de n'avoir que les infos qui sont remplies dans la base, non?

[Gwenn]

Oui c'est possible, le SQL gére ce genre de critere :
http://brouardf.club.fr/SQL_AZ_2.html

[Pau]

Et c'est pas possible avec un if.
Quelque chose comme if différent de 0...?

[Gwenn]

Oui c'est possible en parcourant ton recordset de vérifier le contenu avant de l'afficher. Quel est l'interet de charger en memoire des lignes que tu n'affichera pas ?

[roots_man]

ta boucle do while au fond de ton code ne sert a rien du tout.

pis pour le test tu fais un boucle if

Code :

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

1
2
3
4
5
if rs("NomChamps") <> "" Then 'si différent de vide
      'Affiche
Else
      'Affiche pas
End if

[Pau]

C'est vrai, mais par curiosité je voudrais bien savoir le faire.
En fait, avant chaque affichage, tu mets "if rs != 0 then" ?
Moi ça ne marche pas...

[roots_man]

C'est normal si tu sais pas copié comme il faut ce que je t'ai donné

[Pau]

J'ai ça, mais ça ne marche pas...

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
if rs.eof = false then
rs.MoveFirst
 
 %>
 
 
        <% if rs("PersonneConc") <> "" then %>
          <tr><td>Personne contact </td>
                <td><%=rs("PersonneConc")%></td></tr>
        <% end if %>
        <% if rs("MailPersonne") <> "" then %>
        <tr><td>Mail de la personne contact </td>
              <td><%=rs("MailPersonne")%></td></tr>
        <% end if %>
 
 
<%
else
Response.write ("<b>Il n'y a pas de résultat à votre recherche</b>")
end if

[roots_man]

ben alors dis-nous pe etre quel erreur ton navigateur te renvoie !!!

[Gwenn]

Essayes ca :

Code :

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

1
2
3
4
5
6
 
if len(rs("PersonneConc")) = 0 or IsNull(rs("PersonneConc")) then
		'N'affiche pas
	else
		'Affiche
	End If

[Pau]

Ca ne marche toujours pas, je n'ai pas d'erreur, c'est juste que ça s'affiche toujours.

[roots_man]

ben alors l'enregistrement que tu essaie d'afficher contient qqch.

Au pire essaie ca :

Code :

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

<% if rs("PersonneConc") & "*" <> "*" then %>

A+

[roots_man]

Je vois que le problème est Résolu.. je suis curieux de savoir quelle méthode tu as utilisé et qu'est-ce qui marchais pas ?

Merci

[Pau]

LA première méthode a marché quand j'ai réssayé, je sais pas quelle erreur j'avais la première fois :

if rs("NomChamps") <> "" Then

Merci pour l'aide