5eme jours de Préparation TDI2

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

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

5eme jours de Préparation TDI2

Message par Mr.Hicham le Sam Juin 25, 2011 10:03 pm

Rappel du premier message :

Salut tt les TDIens et les TDiennes alors inchallah aujourd'hui on va commencé par EFM dial Asp.net lli daro le membre Csharp

Telecharger


Sans oublions 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: 5eme jours de Préparation TDI2

Message par adil555 le Dim Juin 26, 2011 12:14 am

nn ana dikchi li 5as basp ma9ritochi ado.net li mslkni Very Happy dsl



adil555
 
 

Nombre de messages : 31
Date d'inscription : 21/06/2011
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: 5eme jours de Préparation TDI2

Message par Mr.Hicham le Dim Juin 26, 2011 12:14 am

khoya had code kaydar f page cherche vehicule machi f page employé en+ tu doit chercher le nom de l'employé pas le nom de la mark



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: 5eme jours de Préparation TDI2

Message par Mr.Hicham le Dim Juin 26, 2011 12:17 am

khoya chof atten ghadi n3awdo à 0 bach hadchi maybach mkharba9 , chof ghadi nbdaw b kestion 1 ok ???

ana ghadi n7at les réponses hta kestion 7



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: 5eme jours de Préparation TDI2

Message par adil555 le Dim Juin 26, 2011 12:19 am

bnisba n question 5 MAj dya vehicule :

kayn les textbox +dropdownlist dyal remplissage
+ les buttons ajouter + modifier +supprimer +valider :
modifier wsupprimer 7ta kitlb mn utilisateur ydakhal le numero 3ad kiverifier wki3ti la possibilité pour modifier ou supprimer voila :

Protected Sub ajouter_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
con.Open()
cmd.CommandText = "insert into vehicule values('" & TextBox1.Text & " ', '" & TextBox2.Text & " ', ' " & TextBox3.Text & " ', ' " & DropDownList1.Text & " ')"
cmd.Connection = con
cmd.ExecuteNonQuery()
Beep()
Label1.Text = "Operation avec succés"
con.Close()
End Sub


Protected Sub modifier_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
pos = "m"
Dim row As DataRow
con.Open()
Dim a As Integer = InputBox("Taper le numero du serie Que V-V Modifier", "")
da = New SqlDataAdapter("select * from vehicule ", con)
da.Fill(ds, "vehicule")
dtveh = ds.Tables("vehicule")
For Each row In dtveh.Rows

If row(0) = a Then
TextBox1.Text = row(0)
TextBox2.Text = row(1)
TextBox3.Text = row(2)
DropDownList1.Text = row(3)
Exit Sub
End If
Next

MsgBox("n'exist pas cette numero Mr!!!")
con.Close()
End Sub

Protected Sub supprimer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
pos = "s"

Dim row As DataRow
con.Open()
Dim a As Integer = InputBox("Taper le numero du serie Que V-V Modifier", "")
da = New SqlDataAdapter("select * from vehicule ", con)
da.Fill(ds, "vehicule")
dtveh = ds.Tables("vehicule")
For Each row In dtveh.Rows

If row(0) = a Then
TextBox1.Text = row(0)
TextBox2.Text = row(1)
TextBox3.Text = row(2)
DropDownList1.Text = row(3)
Exit Sub
End If
Next
MsgBox("n'exist pas cette numero Mr!!!")
con.Close()
End Sub


Protected Sub valider_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
If pos = "m" Then
MsgBox("ok")
con.Open()
cmd.CommandText = "update vehicule set immatriculation='" & TextBox2.Text & " ',date_sortie='" & TextBox3.Text & " ', code_marque='" & DropDownList1.Text & " ' where numero_serie='" & TextBox1.Text & " '"
cmd.Connection = con
cmd.ExecuteNonQuery()
Beep()
Label1.Text = "Operation avec succés"
con.Close()
ElseIf pos = "s" Then
con.Open()
cmd.CommandText = "delete from vehicule where numero_serie='" & TextBox1.Text & " '"
cmd.Connection = con
cmd.ExecuteNonQuery()
Beep()
Label1.Text = "Operation avec succés"
con.Close()
End If
End Sub




adil555
 
 

Nombre de messages : 31
Date d'inscription : 21/06/2011
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: 5eme jours de Préparation TDI2

Message par Mr.Hicham le Dim Juin 26, 2011 12:22 am

safé manin tkamal nta golhali bach nbda ana !!!

wo dik pos="m" wala ="s" mafhmtekch mnin jibtiha ???



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 3 sur 10 Précédent  1, 2, 3, 4, 5, 6, 7, 8, 9, 10  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