Discussion :

[oami89]

bonjour
j'ai pas trouvé une solution pour la deuxième cas le (else) bien sur elle m' affiche l'erreur suivant

(Aucune ligne à la position 0.)

Code :

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

1
2
3
4
5
6
 
 If (dst.Tables("table").Rows(0).Item(0)) Then
    MsgBox("il y a un valeur de retour")
            Else
                 MsgBox("il n y a pas un valeur de retour")
            End If

merci de m'aider

[getule]

je te propose ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
try
 If (dst.Tables("table").Rows(0).Item(0)) Then
    MsgBox("il y a un valeur de retour")
            Else
                 MsgBox("il n y a pas un valeur de retour")
   End If
 Catch ex As Exception
            MsgBox("il n y a pas un valeur de retour, puisqu'il n ya aucune ligne!!!")
  End Try

[Pol63]

s'il n'y a pas de rows, rows.count vaut 0 c'est donc rows.count qu'il faut tester avant de lire la ligne y

passer par une exception est une mauvaise idée, c'est très pénalisant niveau performances

au passage ca n'a rien à voir avec null (nothing en vb.net)

[getule]

ok pol! à ton service!

donc faisant un test sur les lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
try
If dst.Tables("table").rows.count -1 < 1 then
 MsgBox("il n y a pas de valeur de retour, puisqu'il n ya aucune  ligne!!!")
exit sub
end if 
   If (dst.Tables("table").Rows(0).Item(0)) Then
    MsgBox("il y a de valeur de retour")
            Else
                 MsgBox("il n y a pas de valeur de retour")
   End If
 Catch ex As Exception
           msgbox(ex.message)
  End Try

[BenoitM]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
try
If dst.Tables("table").rows.count = 0 then
 MsgBox("Aucune ligne!!!")
exit sub
end if 
   If (dst.Tables("table").Rows(0).Item(0)) Then
    MsgBox("il y a de valeur de retour")
            Else
                 MsgBox("il n y a pas de valeur de retour")
   End If
 Catch ex As Exception
           msgbox(ex.message)
  End Try

[Pol63]

je préfère le = 0, parce que le -1 < 1 ca fait vraiment tordu

[getule]

benoit!!!!!!!!!!!!!!!!
soit n un nombre Naturel ensemble N
si n <1 implique n=0


au fait!!! le Compteur row d'un dataset debute par 0 ou 1?

[Kropernic]

Vous vous compliquez la vie !!!

Si l'objectif est uniquement de savoir s'il y a des (une ou plusieurs) lignes retournées par la requête :

Code :

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

1
2
3
4
5
6
 
If dst.Tables(0).Rows.Count > 0 Then
    MsgBox("Il y a des lignes")
Else
    MsgBox("Il n'y a pas de lignes")
End IF

Mais attention !!! Cela ne fonctionne que si le remplissage du dataset se passe sans souci. Si votre requête sql (par exemple) contient une erreur et plante, il n'y aura pas de table dans le dataset et donc dst.Tables(0) renverra une erreur.

Pour contourner cela :

Code :

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

1
2
3
4
5
6
 
If dst.Tables.Count > 0 AndAlso dst.Tables(0).Rows.Count > 0 Then
    MsgBox("Il y a des lignes")
Else
    MsgBox("Il n'y a pas de lignes")
End IF

Dans ce cas, le membre à droite de l'opérateur AndAlso ne sera évalué que si le membre de gauche est vérifié. J'insiste sur l'opérateur AndAlso. Un simple And provoquerait un plantage en cas de dataset vide.

Griftou.