Le but est de renvoyer un message spécifique lors de l'execution d'une requête sur une base de données.
Je réalise en ce moment une application qui travaille avec une base en arrière plan. J'ai des opérations régulières sur la base et certaines nécessitent un renvoi d'un MsgBox et d'autres non.
Pour avoir un code propre et une cohérence dans les messages renvoyés j'utilise une fonction à laquelle je passe un integer qui vas me renvoyer un MsgBox prédéfini.
L'integer analysé est en fait le code renvoyé par mon serveur SQL lors de l'execution de ma requete.
Par exemple le code 1 veut dire que tout c'est bien passé, etc .....
je recupère c'est int lors de l'execution de ma requete.
Source / Exemple :
A déclarer dans un Module de l'appli
---------------------------------------------------------------------------------------------------
Public Function RenvoiMessage(ByVal numero As Integer)
Select Case numero
Case Is = 1
MsgBox("Opération réalisée !", MsgBoxStyle.Information + MsgBoxStyle.OKOnly, "OK")
Case Is = 2627
MsgBox("Ajout impossible !" & vbCrLf & "Entrée déjà existante !", MsgBoxStyle.Exclamation + MsgBoxStyle.OKOnly, "Tentative doublon détecté")
Case Is = 547
MsgBox("Suppression impossible !" & vbCrLf & "Cet élément est encore lié à d'autres !", MsgBoxStyle.Exclamation + MsgBoxStyle.OKOnly, "Tentative orphelin détecté")
Case Else
'MsgBox("Erreur Base de données !", MsgBoxStyle.Exclamation + MsgBoxStyle.OKOnly, "Erreur DB")
MsgBox(numero.ToString()) 'on récupère le numero de l'erreur pour ajouter un Case non géré lors du debug
End Select
End Function
-------------------------------------------------------------------------------------------------------------------------
A mettre dans le code de la form lors de l'execution de la requete :
Dim resu As Integer
resu = [La commande qui execute ma requete]
RenvoiMessage(resu) 'si je veux afficher un msgBox (rien si je n'en veux pas ;)
Conclusion :
Voilà, bon c'est pas extraordinaire, moi je trouve ca bien pratique
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.