Discussion :

[santic19]

Bonjour ,
J'utilise un langage Visual Basic 2010 dont je suis tout débutant . J'aimerais bien vouloir connaître le problème de mon code énoncé ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Dim s As Double
        Dim r As Double
        Dim m As Double
        Dim avg As Double
        s = 0
 
        cnx.Open()
        cmd.Connection = cnx
 
        cmd.CommandText = "select  SUM(Entree*Entree)  from statistique"
        s = cmd.ExecuteScalar()

En fait ça me génére cette erreur au niveau de la commandtext : conversion from dbnull to double is not valid
J'ai besoin de votre précieux aide pour trouver la solution , merci d'avance.

[François M.]

Bonjour

Deux problème :

- ExecuteScalar renvoie un object, donc tu dois caster en "double" le retour.

- Ici la table est vide visiblement, donc SUM retourne null.

Donc stocker le résultat de ExecuteScalar dans un objet, tester si la valeur est DBNull et si ce n'est pas le cas, caster vers le double.

[santic19]

Bonjour François.M et merci pour votre réponse
Je crois comprendre votre solution mais SVP pouvez-vous m'expliquer comment caster en double apres avoir testé la condition Dbnull ? c'est le mot "cast" qui me paraît incompréhensible .
Merci encore une fois .

[François M.]

Bonjour François.M et merci pour votre réponse
Je crois comprendre votre solution mais SVP pouvez-vous m'expliquer comment caster en double apres avoir testé la condition Dbnull ? c'est le mot "cast" qui me paraît incompréhensible .
Merci encore une fois .

Je ne connais pas Visual Basic, mais il me semble qu'il faut utiliser la fonction CType.

[My Family]

La requete select sum ne fonctionne pas si le champ a été declaré caratére ou chaine de caractére ou date etc dans la base de donnée
solution de votre probleme

Code VB.NET :

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
// cn c'est le nom de votre string de connexion 
// dr une variable de type SqlDataReader
 
 
cn.open
cmd.commandText="select nom_champ1, nom_champ2 from nom_table"
cmd.connexion =cn
cmd.executeReader()
while dr.read
  if isDbNull(dr(0)) or  isDbNull(dr(1)) then
      Somme =somme + 0
   else 
      Somme =some + dr(0)* dr(1)
end if
end while
cn.close

[François M.]

La requete select sum ne fonctionne pas si le champ a été declaré caratére ou chaine de caractére ou date etc dans la base de donnée

Ben, c'est logique non.
Mais comme il n'a pas posté de DDL de la table, on n'a pas de raison de penser a priori que le schéma est aberrant.

Donc votre solution ne rime pas à grand chose (d'autant que même si la table était mal fichue, il serait dans ce cas préférable de faire un SUM(CAST( Col1 AS INT) * CAST(COl2 as INT)) directement dans la requête SQL).

[Pol63]

Code :

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

1
2
3
4
5
6
7
cmd.CommandText = "select  SUM(Entree*Entree)  from statistique"
dim resultat = cmd.ExecuteScalar()
if resultat is system.dbnull.Value then
  msgbox ("la requete retourne null, null n'est pas un nombre donc pas un double")
  exit sub
end if
s = cdbl(resultat)

au passage, les types single et double sont réservés pour des calculs scientifiques car ils sont peu précis (ca convient peut etre dans ton cas quand même)
pour des nombres décimaux sans perte lors de calculs il faut utiliser le type Decimal et donc cdec( valeur à transformer) pour transformer en décimal