5eme jours de Préparation TDI2

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

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

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

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

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

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