Discussion :

[thierry007]

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é.

Code :

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

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

[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

[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 :

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

1
2
3
4
5
if DrPartition.Read  then
LoadFullNameDisk = DrPartition("DiskPartition").ToString() 
else
LoadFullNameDisk = nothing
end if

[lutecefalco]

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