0/5 (2 avis)
Snippet vu 7 998 fois - Téléchargée 32 fois
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 ;)
12 mai 2005 à 17:40
12 mai 2005 à 02:32
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.