Discussion :

[juliendu67117]

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

[r.morel]

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

[juliendu67117]

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

[juliendu67117]

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

[r.morel]

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

[juliendu67117]

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