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

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (jaknight007)