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

par Mr.Hicham 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.

par ayoubtdi Mer Juin 22, 2011 6:16 pm

salam a tt Smile

par ayoubtdi Mer Juin 22, 2011 6:18 pm

fin wsltou a5outi

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

slm khoya

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

par Mr.Hicham 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

par Mr.Hicham 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

par Contenu sponsorisé

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

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

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

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

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

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

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

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