la conversion de type 'DbNull' en type 'Double' n'est pas valide

Version imprimable

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:

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

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:

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.

28/09/2014, 01h29
billinfopro

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