Connexion entre mysql et Visual basic

Version imprimable

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:

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

Citation:

Envoyé par juliendu67117

Bonjour,

Code:

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. :aie:
Code:

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

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

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:

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

Désolé erreur de mise en forme :

Code:

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

23/10/2017, 11h12
juliendu67117

Encore merci pour ton aide ça fonctionne :D

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