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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 744 fois - Téléchargée 31 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.

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

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

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

++

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.