Discussion :

[Aspic]

BOnjour,

voici ma fonction :

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
 Public Function Execute() As DataView
        Try
            Dim SourceConnect As String = "Provider=" & m_Provider & ";" & "Data Source=" & m_Mdb
            SourceOle = New OleDbConnection(SourceConnect)
 
            Select Case SourceOle.State
                Case ConnectionState.Closed
                    SourceOle.Open()
            End Select
 
            Dim DataA As New OleDbDataAdapter(m_SQL, SourceOle)
            Dim DataS As New DataSet
            DataA.Fill(DataS, "Obj")
 
            Return DataS.Tables("obj").DefaultView
 
        Catch ex As Exception
            MsgBox("Erreur de transaction avec la Base : " & ex.Message)
        Finally
            If m_Open = False And SourceOle.State = ConnectionState.Open Then SourceOle.Close()
        End Try
    End Function

EN vb.net 2003 pas d'erreur ! lol mais en VB.NET 2005 voici l'erreur que je comprends pas :
La fonction 'Execute' 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é.

Je ne comprends pas l'erreur et j'ai chercher sur MSDN en anglais mais je comprend toujours pas .

Merci

[notalp]

Juste une idée en passant ...
C"est pas juste parce que tu instancies tes objets dans le try et que tu les utilises dans le finally ???
Bonne chance

[Aspic]

je ne pense pas car

Code :

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

1
2
3
4
5
6
    Private Function ConvertLen(ByRef fileLen As Long) As String
        If fileLen < 1024 Then ConvertLen = fileLen & " octets"
        If fileLen > 1024 Then ConvertLen = Math.Round(fileLen / 1024) & " Ko"
        If fileLen > 1024000 Then ConvertLen = Math.Round(fileLen / (1024000), 2) & " Mo"
        If fileLen > 1024000000 Then ConvertLen = Math.Round(fileLen / (1024000000), 2) & " Go"
    End Function

cette fonction aussi me donne la meme erreur et y'a pas de try !!

HElp !! please

[The_badger_man]

tu crées des fonctions mais elles ne retournent rien. Il faut mettre un return comme derniere instruction.

[Aspic]

biensur que si je retourne une valeur : "ConverLen" de toute maniere, meme

Code :

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

1
2
3
4
5
6
   Private Function ConvertLen(ByRef fileLen As Long) As String
        If fileLen < 1024 Then Return fileLen & " octets"
        If fileLen > 1024 Then Return Math.Round(fileLen / 1024) & " Ko"
        If fileLen > 1024000 Then Return Math.Round(fileLen / (1024000), 2) & " Mo"
        If fileLen > 1024000000 Then Return Math.Round(fileLen / (1024000000), 2) & " Go"
    End Function

me crée la meme erreur !!

Donc c'est pas une question de return

[Kelpan]

Il suffit de bien lire le message, c'est clair pourtant !

Si fileLen = 1024 que retourne ta fonction ?

Ce genre de messages ne sont que des avertissements normalement, tu as une option pour éviter qu'elles génèrent une erreur de compilation.

[Aspic]

bah nothing... lol et ca plante ^^ (heureusement que cela m'est jamais arrivé encore)

Encore VS 2005 est relou, car il est pointilleux sur le code ^^ De plus, j'ai du désactiver les interceptions des controls appelés à partir d'un mauvais thread car sinon j'avais une erreur par procédure lol c'était ingérable...

Merci bye

[Kelpan]

En fait, l'erreur ne vient pas réellement du fait que FileLen = 1024 n'est pas géré.
En fait, pour ta méthode, le compilateur remarque que chaque Return est conditionné.
Que tu gères ou pas "FileLen = 1024", il te générera un avertissement car pour le compilateur, le 4 conditions peuvent retourner Faux et dans cas, rien n'est retourné pour la fonction

Pour bien faire, il faut procéder ainsi :

Code vb.net :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Function ConvertLen(ByRef fileLen As Long) As String
        If fileLen < 1024 Then Return fileLen & " octets"
        ' Commence par le plus grand, car si tu commences par le test sur  
        ' 1024, les tests suivants ne seront jamais atteints...
        If fileLen > 1024000000 Then Return Math.Round(fileLen / (1024000000), 2) & " Go"
        If fileLen > 1024000 Then Return Math.Round(fileLen / (1024000), 2) & " Mo"
        If fileLen > 1024 Then Return Math.Round(fileLen / 1024) & " Ko"
 
        ' Par défaut retourne chaine vide
        Return ""
End Function

[Aspic]

merci pour l'explication bye