Discussion :

[ecureuilmasque]

Bonjour,

Ce code ne fonctionne pas (et je ne comprends pas vraiment pourquoi), aucune erreur, juste il ne se passe rien (SQL Profiler ne voit rien passé)

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
 
'  ****** Déclaration des variables de connexion
            Dim DBConn As New SqlConnection
            Dim cmd As New SqlCommand()
 
            ' ******  initialisation de la chaine de connexion dans le cas d une authentification sql server
            DBConn.ConnectionString = System.Configuration.ConfigurationManager.ConnectionStrings("ConnectionString1").ToString
 
            ' ******  ouverture de la connexion
            DBConn.Open()
 
            ' ****** Initialisation de la commande
            cmd.Connection = DBConn
 
            cmd.CommandText = "dbo.[p_APPSRV_PWD_insert]"
            cmd.CommandType = System.Data.CommandType.StoredProcedure
 
            cmd.Parameters.Add("@nom", Data.SqlDbType.NVarChar).Value = TextBox_Serveur.Text
            cmd.Parameters.Add("@detail", Data.SqlDbType.Int).Value = TextBox_Detail.Text
            cmd.Parameters.Add("@observation", Data.SqlDbType.Int).Value = TextBox_Observation.Text
            cmd.Parameters.Add("@createlogin", Data.SqlDbType.NVarChar).Value = (Mid(LCase(User.Identity.Name), (InStr(LCase(User.Identity.Name), "\")) + 1))
            cmd.Parameters.Add("@login", Data.SqlDbType.NVarChar).Value = TextBox_login.Text
            cmd.Parameters.Add("@mdp", Data.SqlDbType.NVarChar).Value = TextBox_mdp.Text
            cmd.Parameters.Add("@observation_pwd", Data.SqlDbType.NVarChar).Value = Textbox_observation_mdp.Text
            cmd.Parameters.Add("@auteur_maj", Data.SqlDbType.NVarChar).Value = (Mid(LCase(User.Identity.Name), (InStr(LCase(User.Identity.Name), "\")) + 1))
            cmd.Parameters.Add("@id_referent", Data.SqlDbType.Int).Value = DropDownList4.Text
            cmd.Parameters.Add("@id_type", Data.SqlDbType.Int).Value = id_type
 
            cmd.ExecuteNonQuery()

La procédure stockée, elle fonctionne correctement.

Merci de m'aider.

[topolino]

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cmd.CommandText = "p_APPSRV_PWD_insert"

et enleve tous les @ de tes variables

[ecureuilmasque]

Désolé j'avais supprimé l'affichage de mon catch et du coups je n'ai pas vu que j'avais un type incompatible (Nvarchar vers INT)

Merci du coups de main