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