4eme jours du Préparation TDI2 (sa commence)

Page 4 sur 9 Précédent  1, 2, 3, 4, 5, 6, 7, 8, 9  Suivant

Voir le sujet précédent Voir le sujet suivant Aller en bas

4eme jours du Préparation TDI2 (sa commence)

Message par Mr.Hicham le Mer Juin 22, 2011 12:20 pm

Rappel du premier message :

Salut tt les TDIens et les TDiennes alors inchallah aujourd'hui on va commencé pour de vrai pas justement blabla ....

Alors voila je vous pose Un exercice (Gestion des notes) en Asp.net avec une base de donné .

Telecharger

Les régles : pas plus de 2 exercices si le 1er ou bien le 2eme n'est pas fait.



Mr.Hicham
 
 

Nombre de messages : 464
Date d'inscription : 25/05/2010
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas


Re: 4eme jours du Préparation TDI2 (sa commence)

Message par ayoubtdi le Mer Juin 22, 2011 6:16 pm

salam a tt Smile



ayoubtdi
 
 

Nombre de messages : 2
Date d'inscription : 22/06/2011
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: 4eme jours du Préparation TDI2 (sa commence)

Message par ayoubtdi le Mer Juin 22, 2011 6:18 pm

fin wsltou a5outi



ayoubtdi
 
 

Nombre de messages : 2
Date d'inscription : 22/06/2011
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: 4eme jours du Préparation TDI2 (sa commence)

Message par Mr.Hicham le Mer Juin 22, 2011 9:46 pm

slm khoya

wash rak m3ana telechargiti dak pdf wo khdamtih wala mazal ??



Mr.Hicham
 
 

Nombre de messages : 464
Date d'inscription : 25/05/2010
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: 4eme jours du Préparation TDI2 (sa commence)

Message par Mr.Hicham le Mer Juin 22, 2011 10:49 pm

slt hada Corrigé dial Exercice 1 f PDF que jai posé wo li mtaba3 m3aya

Code:
Imports System.Data.SqlClient

Partial Class exo1
    Inherits System.Web.UI.Page

    Dim con As New SqlConnection("Data Source=*\H3LLSPY;Initial Catalog=DBeleves;Integrated Security=True")
    Dim cmd As New SqlCommand
    Dim dr As SqlDataReader

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        cmd = New SqlCommand("select * from CLASSES", con)

        con.Open()
        dr = cmd.ExecuteReader

        While dr.Read
            listclasse.Items.Add(dr(0) & " : " & dr(1))
        End While
        dr.Close()
        con.Close()
    End Sub

    Protected Sub aficheeleve_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles aficheeleve.Click
        listeleve.Items.Clear()
        Dim vv() As String
        vv = listclasse.Text.Split(New Char() {" : "})

        Try
            cmd = New SqlCommand("select ID,Nom,Prenom from ELEVES where ID_classe=@class", con)
            con.Open()
            cmd.Parameters.AddWithValue("@class", vv(0))


            dr = cmd.ExecuteReader

            While dr.Read
                listeleve.Items.Add(dr(0) & " : " & dr(1) & " " & dr(2))
            End While

            dr.Close()
            con.Close()
        Catch ex As Exception
            lblerreur.Text = ex.Message
        End Try

       
    End Sub
End Class



Mr.Hicham
 
 

Nombre de messages : 464
Date d'inscription : 25/05/2010
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: 4eme jours du Préparation TDI2 (sa commence)

Message par Mr.Hicham le Mer Juin 22, 2011 11:44 pm

wo hada Exercice 2 wo 3 , mai il reste kelke chose howa les moyennes wo note max wo min 3iyet m3ahom walo walakin mazal n7awal ila chi wahd 3raf comment sa marche yktab lina resultat

hahowa l7al Exercice 2
Code:

Imports System.Data.SqlClient

Partial Class exo2
    Inherits System.Web.UI.Page

    Dim con As New SqlConnection("Data Source=*\H3LLSPY;Initial Catalog=DBeleves;Integrated Security=True")
    Dim cmd As New SqlCommand
    Dim dr As SqlDataReader


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then
            Try
                cmd = New SqlCommand("select * from CLASSES", con)
                con.Open()

                dr = cmd.ExecuteReader
                While dr.Read
                    listclasse.Items.Add(dr(0) & " : " & dr(1))
                End While
                dr.Close()


                cmd = New SqlCommand("select ID,Nom from MATIERES", con)

                dr = cmd.ExecuteReader
                While dr.Read
                    listmatiere.Items.Add(dr(0) & " : " & dr(1))
                End While
                dr.Close()
                con.Close()
            Catch ex As Exception
                lblerreur.Text = ex.Message
            End Try
        End If
    End Sub

    Protected Sub affichenote_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles affichenote.Click

        listnote.Items.Clear()

        Dim vv(), tt() As String
        vv = listclasse.Text.Split(New Char() {" : "})
        tt = listmatiere.Text.Split(New Char() {" : "})

        Try
            cmd = New SqlCommand _
            ("select distinct Nom,Prenom,Note from ELEVES,NOTES where ELEVES.ID_Classe=@elev and NOTES.ID_matiere=@matr and NOTES.ID_eleve=ELEVES.ID", con)

            con.Open()
            cmd.Parameters.AddWithValue("@elev", vv(0))
            cmd.Parameters.AddWithValue("@matr", tt(0))

            dr = cmd.ExecuteReader
            While dr.Read
                listnote.Items.Add(dr(0) & " " & dr(1) & " : " & dr(2))
            End While

            Dim t() As String
            t = listnote.Text.Split(New Char() {" : "})

            Dim moyc As Single = 0

            For i As Integer = 0 To listnote.Items.Count - 1
                moyc = moyc + Val(listnote.Items.Item(t(i)))
            Next

            lblmoy.Text = moyc
            dr.Close()
            con.Close()
        Catch ex As Exception
            lblerreur.Text = ex.Message
        End Try
    End Sub
End Class

wo hada Exercice 3

Code:

Imports System.Data.SqlClient

Partial Class exo3
    Inherits System.Web.UI.Page

    Dim con As New SqlConnection("Data Source=*\H3LLSPY;Initial Catalog=DBeleves;Integrated Security=True")
    Dim cmd As New SqlCommand
    Dim dr As SqlDataReader

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        cmd = New SqlCommand("select * from CLASSES", con)

        con.Open()

        dr = cmd.ExecuteReader
        While dr.Read
            listclasse.Items.Add(dr(0) & " : " & dr(1))
        End While
        dr.Close()
        con.Close()
    End Sub

    Protected Sub afficheeleve_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles afficheeleve.Click

        listeleve.Items.Clear()

        Dim tt() As String
        tt = listclasse.Text.Split(New Char() {" : "})

        cmd = New SqlCommand("select ID,Nom,Prenom from ELEVES where ID_Classe=@class", con)

        con.Open()

        cmd.Parameters.AddWithValue("@class", tt(0))

        dr = cmd.ExecuteReader

        While dr.Read
            listeleve.Items.Add(dr(0) & " : " & dr(1) & dr(2))
        End While
        dr.Close()
        con.Close()
    End Sub

    Protected Sub affichenote_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles affichenote.Click

        listnote.Items.Clear()

        Dim cc() As String
        cc = listeleve.Text.Split(New Char() {" : "})

        cmd = New SqlCommand("select Nom,Note from MATIERES,NOTES where MATIERES.ID=NOTES.ID_matiere and NOTES.ID_eleve=@id", con)

        con.Open()
        cmd.Parameters.AddWithValue("@id", cc(0))

        dr = cmd.ExecuteReader
        While dr.Read
            listnote.Items.Add(dr(0) & " : " & dr(1))
        End While

        dr.Close()
        con.Close()
    End Sub
End Class



Mr.Hicham
 
 

Nombre de messages : 464
Date d'inscription : 25/05/2010
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Page 4 sur 9 Précédent  1, 2, 3, 4, 5, 6, 7, 8, 9  Suivant

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum