Executé une procedure stocké "storeproc" dans une bd access

0/5 (5 avis)

Vue 7 918 fois - Téléchargée 1 433 fois

Description

Cette source permet d'appeler une "StoreProc" dans Access par le code VB.

Action possible : Sélections, ajout, modif, delete...

J'ai créé des classes afin de faciliter sont contrôle, vous pouvez passer autant de paramètre que vous en avez de besoin (Autant qu'il y en a dans la procédure stocké).

J'ai pris des bouts de code ici et là afin de répondre à mon besoin.
Ben non, je n'ai pas de mérite, mais c'est très efficace.

PS: La source est en vb.net 2003

Source / Exemple :


''''''''''''''''''''''''''''''''''''''''''''''''
        '''''''''''''''''''''''''mpSqlQuery''''''''''''''''''
        '''''''''''''''''''''''''''''''''''''''''''''''''''''
        Public Function mpSqlQueryWithParam(ByVal sSQL As String, ByVal vParametres As BusinessEntities.OleDbParametreCollection) As Integer
            Try
                mpOuvrirBD()
                If cnBD.State = ConnectionState.Open Then
                    ' Déclaration Objet Commande 
                    Dim ObjetCommand As New OleDbCommand
                    'Instancier un objet Commande
                    ObjetCommand = New OleDbCommand(sSQL)
                    'Instancier un objet Adapter
                    ObjetDataAdapter = New OleDbDataAdapter(ObjetCommand)
                    'initialiser l'objet Command
                    ObjetCommand.CommandType = CommandType.StoredProcedure
                    'déterminer s'il y a des paramètres à insérer dans la requête.
                    If vParametres.Count > 0 Then
                        mgSetParam(ObjetCommand, vParametres)
                    End If
                    ObjetCommand.Connection() = cnBD
                    'Charger le DataSet
                    ObjetCommand.ExecuteNonQuery()
                Else
                    Throw New Exception("Votre connexion n'est pas ouverte")
                End If
            Catch ex As OleDbException
                MessageBox.Show("Dans le programme:" & NOM_MODULE & " et dans la procédure: mpsqlQuery. Voici le message: " & ex.Message)
            Finally
                mpFermerBD()
            End Try
        End Function

Conclusion :


L'interface est à chier, mais j'ai fait cette solution afin que vous puissiez voir comment faire pour utiliser les procédures stockées.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2167
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
1
STP peux-tu prendre en compte les remarques ?
Messages postés
17
Date d'inscription
mardi 8 mars 2005
Statut
Membre
Dernière intervention
16 août 2014

Svp pouvez-vous me donner une appréciation ?
:-)
Messages postés
2
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
13 novembre 2008

A MADM@TT:

Tu as raison, il faut ajouter un X à "Attention auX fautes..."

;)
Messages postés
14779
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
3 avril 2021
154
J'ai eu un faux espoir, j'ai cru que tu parlais de macro, mais en fait, c'est juste les requêtes (dans la partie de gauche) avec un(des) paramètre(s). Ce code peut être utile, je le garde en stock.
Messages postés
2167
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
1
Attention au fautes d'orthographe ;-) ça fait pas très sérieux

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.