Discussion :

[billinfopro]

Bonjour tout le monde
Je suis en train de développer une application de gestion de transaction en VB.NET avec Access comme BD. Cependant j'ai une erreur qui m'intrige depuis un certain temps lorsque je veux afficher l'etat financier. 'la conversion de type 'DbNull' en type 'Double' n'est pas valide'
Voici le code:

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
'Etat par Annee
                If rbannee.Checked = True Then
                    ' Calcul des recettes annuelles
                    Dim dba As New DataBase
 
                    dba.connection()
                    Dim rec As String = "select sum (RecetClient) from operations where Annee ='" + annee.Text + "'"
                    Dim drc As OleDbDataReader = dba.ExecuteVersDataReader(rec)
 
                    Dim recrec As String = ""
 
                    While drc.Read()
                        recrec = drc.GetValue(0).ToString
                    End While
 
                    If IsDBNull(recrec) Then
                        recettes.Text = "N" & " " & "F CFA"
                    Else
                        Dim recconv As Double = CType(recrec, Double)
                        recettes.Text = Math.Round(recconv, 2) & " " & "F CFA"
                    End If

Et pourtant si regardé bien j'ai effectué un test sur le champs pour voir si ça renvoit une valeur Null

[rv26t]

Bonjour,

Tu transformes la valeur en chaîne de caractère (.ToString) donc cela ne peux pas fonctionner, de plus il faudrait la mettre dans une variable "object" sans la transformer.
Il vaut mieux tester directement la valeur et agir en conséquence. (plus simple)
(Vu que tu ne récupère qu'une valeur inutile de faire une boucle)

Code :

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

1
2
3
4
5
6
7
8
9
        If drc.HasRows Then
            drc.Read()
            If Not IsDBNull(drc.GetValue(0)) Then
                Dim recconv As Double = CType(drc.GetValue(0).ToString, Double)
                recettes.Text = Math.Round(recconv, 2) & " " & "F CFA"
            Else
                recettes.Text = "N" & " " & "F CFA"
            End If
        End If

Pourquoi ne pas récupérer la valeur dans son type ?
La concaténation de chaîne en vb s'effectue avec le caractère & ; mais voir la remarque pour la requête.

Dernière remarque
Il faut utiliser les requêtes paramétrées. Voir Tuto ou Faq.

[billinfopro]

ça marche a merveille. Merci infiniement !!!!
Je vais me pencher sur les liens que vous m'avez indiqué