Discussion :

[kojima]

j'ai une table eleve contenant nom prenom note1 note2 note 3
dans un formulaire dans vb.net j’écris le nom prénom de l’élevé dans deux zone de teste dédié a ça
j'appuie sur bonton calcul
les trois notes de cette élevés s'affichent dans des zones texte(requête sql)
dans le même bouton je calcul la moyenne de ces 3 notes
mais ces notes qui correspondent à cette eleves leurs affectent 0 alors que dans la base ils le sont pas
ils donnent une moyenne de 0 quelque soit les notes
les notes sont de types données float, j'utilse sql server 2008 avec vb.net
je sais pas d’où peut venir le problème.
merci pour l'aide

[shayw]

Bonjour

dans le même bouton je calcul la moyenne de ces 3 notes

montre ton code

[kojima]

bonsoir
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
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        cn.Open()
        If cn.State = ConnectionState.Open Then
            cm1.CommandText = "select * from eleve where nom = '" & txtnom.Text & "' AND prenom = '" & txtprenom.Text & "' "
            cm1.Connection = cn
            dr = cm1.ExecuteReader
            If dr.HasRows Then
                dr.Read()
                txnote1.Text = dr(2)
                txnote2.Text = dr(3)
                txnote3.Text = dr(4)
            End If
        End If
        lblmoy.Text = (Val(txnote1.Text) + Val(txnote1.Text) + Val(txnote1.Text)) / 3
        dr.Close()
 
    End Sub

[shayw]

Déja
1 Active option explicit on et option strict on (projet ->proprieté de ton projet > onglet compiler)
cela forcera de faire les conversions correctement

Si tu codes en vb.net alors évite l'utilisation des fonctions vb6
ex

Code :

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

 Val(txnote1.Text

on écrit

Code :

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

Convert.ToInt32(txnote1.Text)

Code :

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

(Val(txnote1.Text) + Val(txnote1.Text) + Val(txnote1.Text)) / 3

pourquoi 3 fois la même note

ce qui donne

Code :

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

1
2
3
Dim average As Double
        average = (Convert.ToInt32(txnote1.Text) + Convert.ToInt32(txnote2.Text)  + Convert.ToInt32(txnote3.Text))/3
        lblmoy.Text = average.tostring

il est recommandé d'utiliser des requetes paramétrées

[kojima]

j'ai cette erreur

[ACIVE_CS]

Pas bonjour non plus,
et si tu essayes comme ça:

Code :

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

1
2
3
4
5
 
        Dim average As Double
        MessageBox.Show(txnote1.Text & "-" & txnote2.Text & "-" & txnote3.Text)
        average = (Convert.ToInt32(txnote1.Text) + Convert.ToInt32(txnote2.Text) + Convert.ToInt32(txnote3.Text)) / 3
        lblmoy.Text = average.ToString

Qu'as-tu comme premier message?

[kojima]

shayw merci pour l'aide
je devais utilisé

Code :

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

1
2
3
Dim average As Double
        average = (Convert.ToDecimal(txnote1.Text) + Convert.ToDecimal(txnote2.Text)  + Convert.ToDecimal(txnote3.Text))/3
        lblmoy.Text = average.tostring

[ACIVE_CS]

Oui... mais pourquoi convertir un double en décimal?...

Code :

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

1
2
3
4
5
6
7
 
        txnote1.text = txnote1.text.Replace(".", ",")
        txnote2.text = txnote2.text.Replace(".", ",")
        txnote3.text = txnote3.text.Replace(".", ",")
        Dim average As Double
        average = (Convert.ToDouble(txnote1) + Convert.ToDouble(txnote2) + Convert.ToDouble(txnote3)) / 3
        lblmoy.Text = average.ToString

A+

[kojima]

les note ont de cette forme
8
13.5
et dans la base de donnée les sont pris pour des chaines de caractères même si je les ai déclaré float

[ACIVE_CS]

Eh oui... 13.5...

8
13.5
et dans la base de donnée les sont pris pour des chaines de caractères même si je les ai déclaré float

Alors soit tu les laisses en string soit en décimal mais ne mélange pas le tout.

A propos de ta valeur 13.5 (par exemple) a ton avis pourquoi je t'ai mis ça:

Code :

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

1
2
3
4
 
 txnote1.text = txnote1.text.Replace(".", ",")
 txnote2.text = txnote2.text.Replace(".", ",")
 txnote3.text = txnote3.text.Replace(".", ",")

[kojima]

je pense que tu veux dire que 13.5 chaine caractère et 13,5 un nombre

[Invité]

Code vb :

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

cm1.CommandText = "select * from eleve where nom = '" & txtnom.Text & "' AND prenom = '" & txtprenom.Text & "' "

Un conseil : dans une requête SELECT, évite au maximum de mettre un *, c'est très dangereux, met à la place les noms des colonnes qui t'intéresses.
Par ailleurs, je ne comprends pas pourquoi tu veux calculer la moyenne dans du code en VB, pourquoi ne le ferais tu pas justement dans ta requête SELECT?
Si dans ta table, les notes sont au format string, tu as la possibilité de faire une conversion en double, sql sait le gérer.

[ACIVE_CS]

Re:
On s'en fout, de toute façon on va le convertir en double
que la chaîne soit "13.5" ou "13,5" on lui dit de remplacer tous les "." par des "," sinon il y a erreur à la conversion

Code :

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

txnote1.text = txnote1.text.Replace(".", ",")

s'il est "13,5" rien ne se passe
s'il est "13.5" il devient "13,5" et comme ça la conversion peut se faire

[Invité]

Je ne me suis pas fait comprendre : au lieu de faire les calculs en VB, il est également possible de les faire en SQL. Ainsi, en VB, on ne fait que récupérer les valeurs ainsi retournées.

[Invité]

Bonjour,

Code :

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

select *,(select Avg([Note]) from eleve where nom = '" & txtnom.Text & "' AND prenom = '" & txtprenom.Text & "') as Moye from eleve where nom = '" & txtnom.Text & "' AND prenom = '" & txtprenom.Text & "' "