[Procédure stocké] Erreur d'execution VB.

Version imprimable

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:

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:

1
2
3
 
        'Attribution connexion à commande
        commande.Connection = connection

ça me dis :

Citation:

La référence d'objet n'est pas définie à une instance d'un objet.

Auriez-vous une idée?
Merci,
.Matthieu

J'ai essayé une autre méthode :

Code:

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
    '***************************************************
        '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
        'Varaible d'accueil de la chain procedure
        Dim StrProcedure As String = "verification_cour_prof"
 
        '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 New SqlClient.SqlCommand(StrProcedure, connection)
 
        '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

Et là ça me dis que la procédure est introuvable sur le serveur.

27/07/2007, 12h12
nikoko34

Bonjour,
Pour le premier pépin, effectivement, il fallait instancier ta classe de connection.

Pour le second problème que tu cites, il faudrait que tu précises l'endroit où l'erreur survient puis vérifier la cohérence avec ta base de données (SQL Server je suppose ?) : emplacement, respect des noms et de la structure de la connectionstring...

Le forum doit fourmiller d'exemples d'appels de procédure stockées par paramètre et d'exploitation du retour...

alors d'abord une tite modification:
Code:

1 2 3 4 5 6 7 Try 'Ouverture de la connexion à la BDD connection.Open() Catch connection.close() connection.open End Try
mais je ne sais pas commetnf aire si ça ne fonctionne pas.

Après, pour ton dernier problème

Citation:

Envoyé par GarsDuCalvados

Et là ça me dis que la procédure est introuvable sur le serveur.

car il faut faire:
Code:

1 2 Dim commande As New SqlClient.SqlCommand(StrProcedure, connection) commande.commandetype = storedprocedure, ou un truc comme ça.

L'erreur dans le 1er code : l'objet commande n'est pas instancié

Code:

1 2 3 'Déclaration de la commande Requete Dim commande As New SqlClient.SqlCommand

Dans le 2ème code : comme le dis "poulain", il te manque l'indication que tu executes une procédure stockée (tu l'avais très bien indiqué dans le 1er code)

Code:

1 2 3 4 'Précise que c'est une procédure stocké commande.CommandType = CommandType.StoredProcedure

Sinon, si je peux me permettre, il y a un p'tit truc auquel j'aimerais attiré ton attention, (je pense que c'est ce que voulais t'indiquer "Poulain") dans la gestion de ton bloc try/catch :
Une fois ton bloc Try/Catch traité, le code suivant va être traité et tu risques de rencontrer des exceptions non gérées si la connexion n'est pas ouverte.

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 '... '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") ' Ici, il faut sortie de la procédure car sans connexion ' on ne peut rien faire Exit Sub End Try '... Code après Try/Catch qui utilise connection

Bonne continuation