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
| Private Sub BoutonEnregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoutonEnregistrer.Click
If TextBoxCodeModule.Text = "" Or TextBoxLibelleModule.Text = "" Then
MsgBox("Vous devez remplir tous les champs avant d'ajouter une ligne à la table module.", MsgBoxStyle.Critical, "Gestionnaire de stagiaires")
Else
Try
Connexion = New SqlConnection("Data Source=ordinateur;" _
& "Initial Catalog=GestionStagiaires;Integrated Security=True")
Connexion.Open()
Commande = New SqlCommand("SELECT CODEMODULE FROM MODULE WHERE CODEMODULE=" & _
TextBoxCodeModule.Text & "", Connexion)
DataReader = Commande.ExecuteReader()
If DataReader.HasRows Then
With LabelVerificateurDisponibiliteCodeModule
.ForeColor = Color.Red
.Text = "Le code saisi n'est pas disponible."
End With
Else
DataReader.Close()
With LabelVerificateurDisponibiliteCodeModule
.ForeColor = Color.Green
.Text = "Le code saisi est disponible."
End With
Commande.Dispose()
With Commande.Parameters
.Add(New SqlParameter("@CodeModule", SqlDbType.Int, 4))
.Add(New SqlParameter("@LibelleModule", SqlDbType.VarChar, 60))
End With
With Commande
.Parameters("@CodeModule").Value = CInt(TextBoxCodeModule.Text)
.Parameters("@LibelleModule").Value = TextBoxLibelleModule.Text
End With
Commande = New SqlCommand("INSERT INTO MODULE ([CodeModule],[LibelleModule]) " _
& "VALUES (@CodeModule,@LibelleModule)", Connexion)
Commande.ExecuteNonQuery()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Gestionnaire de stagiaires")
Finally
If Connexion.State = ConnectionState.Open Then
Connexion.Close()
End If
End Try
End If
End Sub |
Partager