Afficher un msgbox lors d'un opération sur sgbdr (sql 2000)
Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 873 fois - Téléchargée 32 fois
Contenu du snippet
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.
Voilà, bon c'est pas extraordinaire, moi je trouve ca bien pratique
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
A voir également
- Afficher un msgbox lors d'un opération sur sgbdr (sql 2000)
- Ne pas afficher le MsgBox si c'est déja la bonne résolution. ✓ - Forum - Visual Basic 6
- Afficher une MsgBox en début de mois. ✓ - Forum - Visual Basic
- Vba afficher valeur cellule dans msgbox - Forum - Visual Basic
- Visual Basic / VB.NET : Showmessage une msgbox sans bouton juste pour afficher des messages a l util - Guide
- Visual Basic / VB.NET : Connaitre son adresse ip/ afficher son adresse ip dans une msgbox en vbs - C - Guide
MessageBox.Show(...)
et pour ceux qui disent que nan ca marche pas partout, si si il faut ajouter la reference System.Windows.Forms.dll et faire un =>
System.Windows.Forms.Form
(je dis tout ce de memoire mais la doc MSDN sur le MessageBox est clair sur son esapce de nom ....
++
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.