Fonction AVG et VB

Version imprimable

Fonction AVG et VB

slt !

j'ai une table sous SQL Server qui contient un champ de type "varchar(50)" et je veux à partir d'une application VBS Excel , calculer la moyenne. je suis obligé de mettre le type de ce champ "varchar" et je suis sûr qu'il contient une valeur réel.
Code:

1 2 3 4 5 6 7 With rsPubs .ActiveConnection = cnPubs .Open "SELECT AVG (RED_B) As RED_B FROM [table] WHERE [DATE] BETWEEN '" & (date_debut) & "' AND '" & (date_fin) & "' " Dim moyenne moyenne = rsPubs.GetString .Close End With
la valeur moyenne est toujours un champs vide
merci

12/04/2012, 07h57
KookieMonster

Avez vous pu tester votre requête directement dans SQL Server? J'imagine que le problème vient que votre champ n'est pas CASTé en numérique.
12/04/2012, 13h23
Swiss_GaGGy

Bonjour,

Citation:

Envoyé par KookieMonster

J'imagine que le problème vient que votre champ n'est pas CASTé en numérique.

Comme l'a dit KookieMonster, votre problème vient certainement de votre type de données.
Il faudra que vous procédiez à une conversion des données requises afin que celles-ci soit numériques sans quoi vous serez dans l'impossibilité d'obtenir une moyenne.

Dans le cadre de votre colonne Varchar, ça reviendrais presque à dire:
"j'ai 13 moutons, 4 chèvres, quel est l'âge du capitaine?"

J'image un peu, mais ça revient en gros à ça. SQL ne peux pas "deviner" que votre colonne Varchar ne contient que des valeurs numériques dont on peut faire une moyenne.

oui , il faut ajouter le CAST , et voici le nouveau code :

Code:

1
2
3
4
5
6
7
With rsPubs
        .ActiveConnection = cnPubs
        .Open "SELECT AVG (CAST (RED_B as float)) As RED_B FROM [table] WHERE [DATE] BETWEEN  '" & (date_debut) & "' AND '" & (date_fin) & "'  "
        Dim moyenne
        moyenne = rsPubs.GetString
        .Close
    End With

merci KookieMonster et Swiss_GaGGy