Message d'avertissement dans une fonction

Version imprimable

Message d'avertissement reçu la je vois pas

Un petit coup de main

Avertissement:La fonction 'LoadFullNameDisk' ne retourne pas une valeur pour tous les chemins de code. Une exception de référence null peut se produire au moment de l'exécution lorsque le résultat est utilisé. 8O

Code:

1
2
3
4
5
6
7
8
9
10
11
12
   CnxStaging.Open() ' Ouvre la connexion
        Dim StringSqlPartition As String = "SELECT * FROM TblDiskPartition WHERE OnUse='True' AND IdDiskPartition=" & IdDisk
        Dim CmdDiskPartition As New SqlCommand(StringSqlPartition, CnxStaging)
        Dim DrPartition As SqlDataReader = CmdDiskPartition.ExecuteReader
 
        If DrPartition.Read Then
            LoadFullNameDisk = DrPartition("DiskPartition").ToString() ' Retourne le nom complet de la partition
        End If
        DrPartition.Close() ' Ferme le DataReader
        CnxStaging.Close() ' Ferme la connexion
 
    End Function

29/10/2007, 09h43
lutecefalco

T'as pas de return.
Alors soit tu l'as oublié, soit t'en as pas besoin et faut utiliser Sub au lieu de Function.

Le message est qd meme clair
29/10/2007, 14h56
bossun
non ca veut dire que ta fonction ne sait pas quoi retourner si DrPartition.Read est faux

tu dois juste mettre un else
Code:

1 2 3 4 5 if DrPartition.Read then LoadFullNameDisk = DrPartition("DiskPartition").ToString() else LoadFullNameDisk = nothing end if
29/10/2007, 15h05
lutecefalco

Ah ouais, la syntaxe VB qui permet de ne pas avoir de return en utilisant une variable du meme nom que la fonction :aie: