1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Afficher un msgbox lors d'un opération sur sgbdr (sql 2000)

Afficher un msgbox lors d'un opération sur sgbdr (sql 2000)

0/5 (2 avis)

Snippet vu 7 998 fois - Téléchargée 32 fois

Commenter

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.

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

Ajouter un commentaire Commentaires
renator67 Messages postés 10 Date d'inscription lundi 18 avril 2005 Statut Membre Dernière intervention 9 janvier 2013
12 mai 2005 à 17:40
Ah ok, je savais pas. Merci du conseil !
TeBeCo Messages postés 467 Date d'inscription lundi 24 juin 2002 Statut Membre Dernière intervention 9 mars 2011
12 mai 2005 à 02:32
juste un tout petit detail => le MsgBox n'existe plus c'est juste un soutient pour le vieux VB6 il n'est pas a utiliser :
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 ....

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