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 |
Partager