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