1. #1
    Membre à l'essai
    Homme Profil pro
    automaticien
    Inscrit en
    novembre 2016
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : automaticien

    Informations forums :
    Inscription : novembre 2016
    Messages : 58
    Points : 21
    Points
    21

    Par défaut Connexion entre mysql et Visual basic

    Bonjour,

    J'ai une petite question en visual basic :

    J'aimerai afficher un OvalShape en vert si j'ai la connection entre mysql et visual basic et en rouge si je ne l'ai pas.
    J'ai essayé le code si dessous mais cela ne fonctionne pas.
    Merci pour votre aide

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     Private Sub OvalShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape1.Click
     
            MysqlConn = New MySqlConnection
     
            If MysqlConn.ConnectionString =
     
                   "server=localhost;userid=root;password=****;database=******" = True Then
     
                OvalShape1.BackColor = Color.Green
     
                OvalShape1.BackStyle = PowerPacks.BackStyle.Opaque
     
            End If

  2. #2
    Membre averti Avatar de r.morel
    Homme Profil pro
    Dessinateur CAO
    Inscrit en
    août 2014
    Messages
    217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Dessinateur CAO
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : août 2014
    Messages : 217
    Points : 377
    Points
    377

    Par défaut

    Citation Envoyé par juliendu67117 Voir le message
    Bonjour,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If MysqlConn.ConnectionString = "server=localhost;userid=root;password=****;database=******" = True Then
    Salut,
    Comme visible ici, "ConnectionString" est une propriété texte qui contient ta chaine de connexion.

    En gros sur cette ligne tu fais : est ce que Mapropriété = Machainedeconnexion = True.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
    Try
    Connection.ConnectionString = "server=localhost;userid=root;password=****;database=******" 
    Connection.Open()
    Connection.Close()
    OvalShape1.BackColor = Color.Green
    OvalShape1.BackStyle = PowerPacks.BackStyle.Opaque
     
    Catch Erreur As ExceptionMsgBox("Une erreur empêche la connection SQL :" & Chr(10) & Erreur.Message, MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Erreur SQL")
     
    End Try
    Merci de ainsi que d'utiliser les boutons et

  3. #3
    Membre à l'essai
    Homme Profil pro
    automaticien
    Inscrit en
    novembre 2016
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : automaticien

    Informations forums :
    Inscription : novembre 2016
    Messages : 58
    Points : 21
    Points
    21

    Par défaut

    Merci pour ta réponse
    J'ai essayé ton code, mais j'ai un message d'erreur disant que :
    - ma variable Connection n'est pas déclarée
    - ExceptionMsgBox n'est pas défini

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Private Sub OvalShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape1.Click
            MysqlConn = New MySqlConnection
            Try
                Connection.ConnectionString = "server=localhost;userid=root;password=****;database=******"
                Connection.Open()
                Connection.Close()
                OvalShape1.BackColor = Color.Green
                OvalShape1.BackStyle = PowerPacks.BackStyle.Opaque
     
    Catch Erreur As ExceptionMsgBox("Une erreur empêche la connection SQL :" & Chr(10) & Erreur.Message, MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Erreur SQL")
     
            End Try
        End Sub

  4. #4
    Membre à l'essai
    Homme Profil pro
    automaticien
    Inscrit en
    novembre 2016
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : automaticien

    Informations forums :
    Inscription : novembre 2016
    Messages : 58
    Points : 21
    Points
    21

    Par défaut

    Pour la déclaration de variable connection c'est bon j'ai réussi
    Mais j'ai toujours le soucis avec ExceptionMsgBox qui n'est pas défini

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
       Private Sub OvalShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape1.Click
            Connection = New MySqlConnection
            Try
                Connection.ConnectionString = "server=localhost;userid=root;password=****;database=******"
                Connection.Open()
                Connection.Close()
                OvalShape1.BackColor = Color.Green
                OvalShape1.BackStyle = PowerPacks.BackStyle.Opaque
     
    Catch Erreur As ExceptionMsgBox("Une erreur empêche la connection SQL :" & Chr(10) & Erreur.Message, MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Erreur SQL")
     
            End Try
        End Sub

  5. #5
    Membre averti Avatar de r.morel
    Homme Profil pro
    Dessinateur CAO
    Inscrit en
    août 2014
    Messages
    217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 31
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Dessinateur CAO
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : août 2014
    Messages : 217
    Points : 377
    Points
    377

    Par défaut

    Désolé erreur de mise en forme :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
     
    Private Sub OvalShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape1.Click
    MysqlConn = New MySqlConnection
    Try
    Connection.ConnectionString = "server=localhost;userid=root;password=****;database=******"
    Connection.Open()
    Connection.Close()
    OvalShape1.BackColor = Color.Green
    OvalShape1.BackStyle = PowerPacks.BackStyle.Opaque
     
    Catch Erreur As Exception
    MsgBox("Une erreur empêche la connection SQL :" & Chr(10) & Erreur.Message, MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Erreur SQL")
     
    End Try
    End Sub
    Merci de ainsi que d'utiliser les boutons et

  6. #6
    Membre à l'essai
    Homme Profil pro
    automaticien
    Inscrit en
    novembre 2016
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : automaticien

    Informations forums :
    Inscription : novembre 2016
    Messages : 58
    Points : 21
    Points
    21

    Par défaut

    Encore merci pour ton aide ça fonctionne

    Serait-il juste possible de le faire sans cliquer sur l'OvalShap
    Par exemple qu'il soit vérifier en permanence ou toute les secondes

Discussions similaires

  1. Problème connexion MySQL et visual basic
    Par jeandadaf dans le forum Débuter
    Réponses: 4
    Dernier message: 29/04/2009, 20h19
  2. Différences entre Delphi et Visual Basic ?
    Par Anonymous dans le forum Débats sur le développement - Le Best Of
    Réponses: 75
    Dernier message: 30/03/2009, 21h09
  3. MySql et visual basic 2005 express
    Par fabrice.77 dans le forum Débuter
    Réponses: 3
    Dernier message: 19/12/2006, 16h52
  4. [ADO.NET] MySql et visual basic 2005 express
    Par fabrice.77 dans le forum Accès aux données
    Réponses: 3
    Dernier message: 17/12/2006, 19h25
  5. [VB] mysql et visual basic
    Par mafilek dans le forum VB 6 et antérieur
    Réponses: 1
    Dernier message: 19/05/2006, 23h27

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo