Accueil > > > ASP.NET - EXÉCUTER UNE PROCÉDURE STOCKÉE AVEC PASSAGE DE PARAMÈTRES
ASP.NET - EXÉCUTER UNE PROCÉDURE STOCKÉE AVEC PASSAGE DE PARAMÈTRES
Information sur la source
Description
A partir de cette source, il était intéressant de la compléter afin de permettre l'utilisation des Procédures Stockées qui nécessite un passage de paramètres dans l'utilisation. - http://www.aspfr.com/code.aspx?ID=8953 Voici donc deux exemple, une en mode Insert/Update et l'autre en mode Select.
Source
- ' Deux exemples pour une utilisation des Procédure Stockées avec paramètres
-
- ' -------------------------------------------------------------------------
- Public Function ExecuteNonQueryProcStock(ByVal MachaineDeConnexion As String, ByVal MonInteger As Integer, ByVal MaDate As DateTime, ByVal MonTexte As String) as Integer
- ' Exécution d'une Procédure Stockée de type Insertion ou Update
-
- Dim Maconnexion As SqlConnection = New SqlConnection(MachaineDeConnexion)
- Dim MonResultat As Integer = -1
- Dim MaCommande As New SqlCommand()
-
- MaCommande = New SqlCommand("MaProcStockExecute", Maconnexion)
- MaCommande.CommandType = CommandType.StoredProcedure
-
- ' Déclaration pour mon premier paramètre de ma Proc stock en Int
- Dim ParamInteger As SqlParameter = MaCommande.Parameters.Add("@MonIntProcStock", SqlDbType.Int)
- ParamInteger.Value = MonInteger
-
- ' Déclaration pour mon second paramètre de ma Proc stock en DateTime
- Dim ParamDateTime As SqlParameter = MaCommande.Parameters.Add("@MaDateProcStock", SqlDbType.DateTime)
- ParamDateTime.Value = MaDate
-
- ' Déclaration pour mon second paramètre de ma Proc stock en NVarChar (2000 char)
- Dim ParamNVarChar As SqlParameter = MaCommande.Parameters.Add("@MonTextProcStock", SqlDbType.NVarChar, 2000)
- ParamNVarChar.Value = MonTexte
-
- Try
- Maconnexion.Open()
- MonResultat = MaCommande.ExecuteNonQuery
- Finally
- If Not (Maconnexion Is Nothing) Then Maconnexion.Close()
- End Try
-
- ' On récupère une valeur qui indique si la procédure stockée s'est bien déroulée.
- Return MonResultat
-
- End Function
-
- ' -------------------------------------------------------------------------
- Public Function RecupDataSetProcStock(ByVal MachaineDeConnexion As String, ByVal MonInteger As Integer, ByVal MaDate As DateTime, ByVal MonTexte As String) As Dataset
- ' Exécution d'une Procédure Stockée de type Sélection
-
- Dim Maconnexion As SqlConnection = New SqlConnection(MachaineDeConnexion)
- Dim MaCommande As New SqlCommand()
-
- MaCommande = New SqlCommand("MaProcStockRenvoieDataSet", Maconnexion)
- MaCommande.CommandType = CommandType.StoredProcedure
-
- Dim MonAdapter As SqlDataAdapter = New SqlDataAdapter()
- MonAdapter.SelectCommand = MaCommande
-
- ' Déclaration pour mon premier paramètre de ma Proc stock en Int
- Dim ParamInteger As SqlParameter = MaCommande.Parameters.Add("@MonIntProcStock", SqlDbType.Int)
- ParamInteger.Value = MonInteger
-
- ' Déclaration pour mon second paramètre de ma Proc stock en DateTime
- Dim ParamDateTime As SqlParameter = MaCommande.Parameters.Add("@MaDateProcStock", SqlDbType.DateTime)
- ParamDateTime.Value = MaDate
-
- ' Déclaration pour mon second paramètre de ma Proc stock en NVarChar (2000 char)
- Dim ParamNVarChar As SqlParameter = MaCommande.Parameters.Add("@MonTextProcStock", SqlDbType.NVarChar, 2000)
- ParamNVarChar.Value = MonTexte
-
- Dim MonResultat As New DataSet()
-
- Try
- Maconnexion.Open()
- MonAdapter.Fill(MonResultat)
- Finally
- If Not (Maconnexion Is Nothing) Then Maconnexion.Close()
- End Try
-
- ' On récupère le DataSet avec comme premier DataTable le résultat du SELECT
- Return MonResultat
-
- End Function
-
- ' -------------------------------------------------------------------------
' Deux exemples pour une utilisation des Procédure Stockées avec paramètres
' -------------------------------------------------------------------------
Public Function ExecuteNonQueryProcStock(ByVal MachaineDeConnexion As String, ByVal MonInteger As Integer, ByVal MaDate As DateTime, ByVal MonTexte As String) as Integer
' Exécution d'une Procédure Stockée de type Insertion ou Update
Dim Maconnexion As SqlConnection = New SqlConnection(MachaineDeConnexion)
Dim MonResultat As Integer = -1
Dim MaCommande As New SqlCommand()
MaCommande = New SqlCommand("MaProcStockExecute", Maconnexion)
MaCommande.CommandType = CommandType.StoredProcedure
' Déclaration pour mon premier paramètre de ma Proc stock en Int
Dim ParamInteger As SqlParameter = MaCommande.Parameters.Add("@MonIntProcStock", SqlDbType.Int)
ParamInteger.Value = MonInteger
' Déclaration pour mon second paramètre de ma Proc stock en DateTime
Dim ParamDateTime As SqlParameter = MaCommande.Parameters.Add("@MaDateProcStock", SqlDbType.DateTime)
ParamDateTime.Value = MaDate
' Déclaration pour mon second paramètre de ma Proc stock en NVarChar (2000 char)
Dim ParamNVarChar As SqlParameter = MaCommande.Parameters.Add("@MonTextProcStock", SqlDbType.NVarChar, 2000)
ParamNVarChar.Value = MonTexte
Try
Maconnexion.Open()
MonResultat = MaCommande.ExecuteNonQuery
Finally
If Not (Maconnexion Is Nothing) Then Maconnexion.Close()
End Try
' On récupère une valeur qui indique si la procédure stockée s'est bien déroulée.
Return MonResultat
End Function
' -------------------------------------------------------------------------
Public Function RecupDataSetProcStock(ByVal MachaineDeConnexion As String, ByVal MonInteger As Integer, ByVal MaDate As DateTime, ByVal MonTexte As String) As Dataset
' Exécution d'une Procédure Stockée de type Sélection
Dim Maconnexion As SqlConnection = New SqlConnection(MachaineDeConnexion)
Dim MaCommande As New SqlCommand()
MaCommande = New SqlCommand("MaProcStockRenvoieDataSet", Maconnexion)
MaCommande.CommandType = CommandType.StoredProcedure
Dim MonAdapter As SqlDataAdapter = New SqlDataAdapter()
MonAdapter.SelectCommand = MaCommande
' Déclaration pour mon premier paramètre de ma Proc stock en Int
Dim ParamInteger As SqlParameter = MaCommande.Parameters.Add("@MonIntProcStock", SqlDbType.Int)
ParamInteger.Value = MonInteger
' Déclaration pour mon second paramètre de ma Proc stock en DateTime
Dim ParamDateTime As SqlParameter = MaCommande.Parameters.Add("@MaDateProcStock", SqlDbType.DateTime)
ParamDateTime.Value = MaDate
' Déclaration pour mon second paramètre de ma Proc stock en NVarChar (2000 char)
Dim ParamNVarChar As SqlParameter = MaCommande.Parameters.Add("@MonTextProcStock", SqlDbType.NVarChar, 2000)
ParamNVarChar.Value = MonTexte
Dim MonResultat As New DataSet()
Try
Maconnexion.Open()
MonAdapter.Fill(MonResultat)
Finally
If Not (Maconnexion Is Nothing) Then Maconnexion.Close()
End Try
' On récupère le DataSet avec comme premier DataTable le résultat du SELECT
Return MonResultat
End Function
' -------------------------------------------------------------------------
Conclusion
Bon Coding.
Romelard Fabrice (Alias F___)
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
WP7 5K BELGIUM CHALLENGEWP7 5K BELGIUM CHALLENGE par junarnoalg
Microsoft Belgique a le plaisir de vous annoncer le lancement du
Challenge Windows Phone 7
. Celui-ci se déroule du 12 juillet au 30 novembre 2010 et vous donne l'opportunit...
Cliquez pour lire la suite de l'article par junarnoalg LES MONADES POUR LES NULSLES MONADES POUR LES NULS par mdufourneaudravel
Avec l'annonce de F#, je me suis intéressé de plus en plus à la programmation fonctionnelle, je suis donc rapidement tombé sur les " monades ", mais malgré la lecture de plusieurs articles, j'étais resté perméable à leur concept. C'est désormais fini, grâ...
Cliquez pour lire la suite de l'article par mdufourneaudravel [WP7] AJOUTER DES IMAGES DANS LA MEDIA LIBRARY D'UN WINDOWS PHONE 7[WP7] AJOUTER DES IMAGES DANS LA MEDIA LIBRARY D'UN WINDOWS PHONE 7 par Audrey
L'émulateur Windows Phone 7, fourni avec la version Beta des outils développeurs n'inclut aucune image dans sa bibliothèque. Pas très pratique de tester son application lorsque l'on souhaite que l'utilisateur puisse choisir une image présente dans le télé...
Cliquez pour lire la suite de l'article par Audrey VIVE LES MOCKS ET LES POCOSVIVE LES MOCKS ET LES POCOS par vLabz
J'observe régulièrement autour de moi de la confusion à propos de ces deux termes et j'aimerais juste rappeler ce qu'ils signifient. Je ne suis bien sûr pas le mieux placé pour faire une leçon mais je vais faire de mon mieux pour mettre en valeur ce q...
Cliquez pour lire la suite de l'article par vLabz [WF4] WORKFLOW AND CUSTOM ACTIVITIES - BEST PRACTICES (4/5)[WF4] WORKFLOW AND CUSTOM ACTIVITIES - BEST PRACTICES (4/5) par JeremyJeanson
Vendredi dernier Microsoft a publié le quatrième épisode des bonnes pratiques pour coder ses activités custom dans WF4 : endpoint.tv - Workflow and Custom Activities - Best Practices (Part 4) . Tout comme pour les précédents épisodes, j'ai pris le temps d...
Cliquez pour lire la suite de l'article par JeremyJeanson
Forum
ASP:BUTTONASP:BUTTON par ldm001
Cliquez pour lire la suite par ldm001
Logiciels
Crystal Report (11)CRYSTAL REPORT (11)Crystal Reports est un outil de reporting souple et puissant, vous pouvez très facilement consult... Cliquez pour télécharger Crystal Report Academy System (12.0.2.0)ACADEMY SYSTEM (12.0.2.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft iPod Vidéo Convertisseur 6 (6.0.3.0419)XILISOFT IPOD VIDéO CONVERTISSEUR 6 (6.0.3.0419)Xilisoft iPod Vidéo Convertisseur est un outil puissant de conversion d'iPod, facile à utiliser. ... Cliquez pour télécharger Xilisoft iPod Vidéo Convertisseur 6 Xilisoft iPhone Vidéo Convertisseur 6 (6.0.3.0419)XILISOFT IPHONE VIDéO CONVERTISSEUR 6 (6.0.3.0419)Xilisoft iPhone Vidéo Convertisseur est le meilleur logiciel de conversion iPhone qui peut facile... Cliquez pour télécharger Xilisoft iPhone Vidéo Convertisseur 6 Xilisoft iPad Vidéo Convertisseur 6 (6.0.3.0419)XILISOFT IPAD VIDéO CONVERTISSEUR 6 (6.0.3.0419)Il s'agit d'un logiciel polyvalent pour convertir les formats vidéo/audio populaires en formats p... Cliquez pour télécharger Xilisoft iPad Vidéo Convertisseur 6
|