1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
Public Class FicheJoueur
Private maCommandeUpdate As New SqlClient.SqlCommand
Private maCommandeInsert As New SqlClient.SqlCommand
Private maCommandeDelete As New SqlClient.SqlCommand
Private maCommandeSelect As New SqlClient.SqlCommand
Private Sub FicheJoueur_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With maCommandeUpdate
.CommandType = CommandType.StoredProcedure
.CommandText = "Joueurs_UPDATE"
.Parameters.Add("@Joueur_Id", SqlDbType.VarChar, 50)
.Parameters.Add("@Joueur_Nom", SqlDbType.VarChar, 50)
.Parameters.Add("@Joueur_Prenom", SqlDbType.VarChar, 50)
.Parameters.Add("@Joueur_Date", SqlDbType.DateTime)
.Parameters.Add("@Joueur_Classement", SqlDbType.VarChar)
.Parameters.Add("@Joueur_Notes", SqlDbType.VarChar, 255)
End With
'
With maCommandeInsert
.CommandType = CommandType.StoredProcedure
.CommandText = "Joueurs_INSERT"
.Parameters.Add("@Joueur_Id", SqlDbType.VarChar, 50)
.Parameters.Add("@Joueur_Nom", SqlDbType.VarChar, 50)
.Parameters.Add("@Joueur_Prenom", SqlDbType.VarChar, 50)
.Parameters.Add("@Joueur_Date", SqlDbType.DateTime)
.Parameters.Add("@Joueur_Classement", SqlDbType.VarChar)
.Parameters.Add("@Joueur_Notes", SqlDbType.VarChar, 255)
End With
'
With maCommandeDelete
.CommandType = CommandType.StoredProcedure
.CommandText = "Joueurs_DELETE"
.Parameters.Add("@Joueur_Id", SqlDbType.VarChar, 50)
End With
'
With maCommandeSelect
.CommandType = CommandType.StoredProcedure
.CommandText = "Joueurs_SELECT ORDER BY Joueur_Nom"
End With
Me.JoueursTableAdapter.Adapter.SelectCommand = maCommandeSelect
Me.JoueursTableAdapter.Adapter.InsertCommand = maCommandeInsert
Me.JoueursTableAdapter.Adapter.UpdateCommand = maCommandeUpdate
Me.JoueursTableAdapter.Adapter.DeleteCommand = maCommandeDelete
'
'TODO: This line of code loads data into the 'DstTennisPerfs.Joueurs' table. You can move, or remove it, as needed.
Me.JoueursTableAdapter.Fill(Me.DstTennisPerfs.Joueurs)
End Sub
Private Sub JoueursBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JoueursBindingNavigatorSaveItem.Click
'
'On attribue aux paramètres des requêtes SQL leurs valeurs
maCommandeInsert.Parameters("@Joueur_Id").Value = lblJoueurID.Text
maCommandeInsert.Parameters("@Joueur_Nom").Value = txtNom.Text
maCommandeInsert.Parameters("@Joueur_Prenom").Value = txtPrenom.Text
maCommandeInsert.Parameters("@Joueur_Notes").Value = txtNotes.Text
maCommandeInsert.Parameters("@Joueur_Classement").Value = txtClassement.Text
maCommandeInsert.Parameters("@Joueur_Date").Value = CDate(dtpDateNaissance.Value)
'
maCommandeDelete.Parameters("@Joueur_Id").Value = lblJoueurID.Text
'
maCommandeUpdate.Parameters("@Joueur_Id").Value = lblJoueurID.Text
maCommandeUpdate.Parameters("@Joueur_Nom").Value = txtNom.Text
maCommandeUpdate.Parameters("@Joueur_Prenom").Value = txtPrenom.Text
maCommandeUpdate.Parameters("@Joueur_Notes").Value = txtNotes.Text
maCommandeUpdate.Parameters("@Joueur_Classement").Value = txtClassement.Text
maCommandeUpdate.Parameters("@Joueur_Date").Value = CDate(dtpDateNaissance.Value)
'
Try
Me.Validate()
Me.JoueursBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DstTennisPerfs)
Catch ex As Exception
MsgBox(ex.ToString, MsgBoxStyle.OkOnly)
End Try
End Sub
Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click
Dim monID As System.Guid = System.Guid.NewGuid()
Me.DstTennisPerfs.Tables("Joueurs").Columns("Joueur_ID").DefaultValue = monID.ToString
Me.txtNom.Focus()
End Sub
End Class |
