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
| '***************************************************
'Verification que le cour n'es pas déjà associer
'***********************************************
'AFICHER LE PRENOM DU PROFESSEUR SELECIONNE ::::
'Chaîne de connexion
Dim connectString As String = "Data Source=SRVSQL\SRVSQL;Initial Catalog=ecole;Integrated Security=True"
'Variable parametre d'entrée et de sortie pour la procédure
Dim paramNumCour As SqlClient.SqlParameter
Dim paramNumProf As SqlClient.SqlParameter
Dim paramResultat As SqlClient.SqlParameter
'Objet connection
Dim connection As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectString)
'Ouverture
Try
'Ouverture de la connexion à la BDD
connection.Open()
Catch
'Message d'erreur comme quoi la connexion n'a pas été effectuée
MessageBox.Show("erreur de connexion a la base")
End Try
'Déclaration de la commande Requete
Dim commande As SqlClient.SqlCommand
'Attribution connexion à commande
commande.Connection = connection
'Déclaration du Nom de la procédure à appeller
commande.CommandText = "verification_cour_prof"
'Précise que c'est une procédure stocké
commande.CommandType = CommandType.StoredProcedure
'Décalaration des paramètre
'Num_cours
paramNumCour = New SqlClient.SqlParameter("@num_cour", Me.num_cour.SelectedValue)
paramNumCour.Direction = ParameterDirection.Input
'Num_prof
paramNumProf = New SqlClient.SqlParameter("@num_prof", Me.num_prof.SelectedValue)
paramNumProf.Direction = ParameterDirection.Input
'Déclaration de la variable de récupération du résultat returns
paramResultat = New SqlClient.SqlParameter("RETURN_VALUE", SqlDbType.Int)
paramResultat.Direction = ParameterDirection.ReturnValue
'Allocation de la variable de sortie
commande.Parameters.Add(paramResultat)
'Execution de la requete
commande.ExecuteNonQuery()
'Vérification du traitement de la procédure
If paramResultat.Value = 1 Then
'Procédure bien executé : Matiere enseigné
MessageBox.Show("Le traitement c'est bien passé")
Else
'Erreur lors de l'execution : Matiere deja enseigné
MessageBox.Show("La matière a deja un enseignant")
End If |
Partager