Discussion :

[lionel256]

Bonjour, j'ai un petit problème

Code :

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

1
2
3
4
5
6
 
                If (IsDBNull(lecteur("SAUT"))) Then
                Label9.Text = " "
                Else
                    Label9.Text = lecteur("SAUT")
                End If

voila mon code, ce code normalement devrait m'afficher un blanc si le champ de ma base de données est vide sauf que si j'enlève la ligne qui concerne l'espace il me laisse toujours le blanc et j'aimerais mettre autre chose.
merci d'avance.

[quentincabo]

Salut, essaye ceci

Code :

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

1
2
3
4
5
6
 
If (lecteur("SAUT") = "") Then
                Label9.Text = " "
                Else
                    Label9.Text = lecteur("SAUT")
                End If

[lionel256]

il ne reconnait pas mon "="

[quentincabo]

Pardon, ton lecteur("Saut") est censé te donner quoi?
Le contenu de la case Saut dans ta BDD?

[robri]

salut,

je ne sais pas si c'est à ca que pense quentincabo, mais si tu affiche directement le champ de ta base, il est préférable d'utiliser une fonction dans ta requete qui remplace les valeurs nulles par une valeur que tu choisi.

par exemple pour SQL Server :

SELECT ISNULL(Saut, 'valeur de remplacement') FROM LaTable


ou encore pour Oracle :

SELECT NVL(Saut, 'valeur de remplacement') FROM LaTable

[lionel256]

une balise html
<br>
ou des chiffres sa dépend des labels.
J' arrive à mettre la condition de plusieurs façon différentes mais il ne prend jamais mon Label7.text = "Inconnu"

[lionel256]

je passe par des "textbox" pour récupérer mes données et les lire par après.

[quentincabo]

Re,
tu ne mettrai pas ton code ou une partie

[lionel256]

Voila mon code de ma requête "select" jusqu'à mes lecteurs et il ne tiens pas compte de mes conditions dans mon "while"

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 vReq As String = "SELECT NOM,ADRESSE,TELEPHONE,SITE_INTERNET,ADRESSE_E_MAIL,TELEFAX,TVA,denomination,SAUT,Lat,Lon,moduleID FROM ENTREPRISES,T_activite,ESSAI1 WHERE UPPER(ENTREPRISES.NOM) LIKE UPPER('" & recuperationcom & "%') AND ESSAI1.KeyID LIKE (" & 24 & ") AND ENTREPRISES.id_activite=T_activite.id_activite AND (ENTREPRISES.Lat) <> 0 AND (ENTREPRISES.Lon) <> 0;"
            Dim comm2 As SqlCommand
            comm2 = New SqlCommand
            comm2.Connection = conn2
            comm2.CommandText = vReq
 
 
            Dim lecteur As SqlDataReader
            lecteur = comm2.ExecuteReader()
 
            While (lecteur.Read())
 
                If (IsDBNull(lecteur("ADRESSE"))) Then
                    Label1.Text = " "
                Else
                    Label1.Text = lecteur("ADRESSE")
                End If
                If (IsDBNull(lecteur("NOM"))) Then
                    Label2.Text = " "
                Else
                    Label2.Text = lecteur("NOM")
                End If
...

[quentincabo]

Quel erreur te met-il avec le = ?

[lionel256]

Une erreur critique s'est produite.
Opérateur "=" n'est pas définie pour le type 'DBNull "et" "


donc je suis obliger de mettre 'DBNull'