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.
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.