Bonjour,
j'ai une procédure stocké qui me permet de vérifier si un cours n'est pas déja enseigné par un professeur.
Si il est déja enseigné la procédure retourne juste 0 si ce n'est pas le cas le couple professeur, cours est associé et la procédure retourne 1.

Voici mon code d'exploitation de ma procédure :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
C'est ici qu'il y a une erreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
        'Attribution connexion à commande
        commande.Connection = connection
ça me dis :
La référence d'objet n'est pas définie à une instance d'un objet.
Auriez-vous une idée?
Merci,
.Matthieu