Bonsoir,
j'ai créé une Classe dont j'ai stocké ma chaine de connexion:
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
 
 
Imports MySql.Data.MySqlClient
Public Class Connect
 
    Public Function ConnexionBdd() As MySqlConnection
        Dim Connexion As String = "server=localhost;user id=root;password='';persistsecurityinfo=True;port=3306;database=bdd;SslMode=none"
        Dim conn As MySqlConnection = New MySqlConnection
 
        conn.ConnectionString = Connexion
        conn.Open()
        Return conn
    End Function
 
End Class


dans ma form quand je clique sur un bouton h'ai fait l'appel comme suit:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
 
Imports MySql.Data.MySqlClient
Imports MySql.Data.Types
 
Public Class Login
 
    Public conn As Connect = New Connect
    Public profil As String
    Public res As MySqlDataReader
 
 
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles connexion.Click
 
        If (Me.user.Text = "" Or Me.pwd.Text = "") Then
            Me.erreur.Text = "Nom d'utilisateurou mot de passe vide !!"
        Else
            Try
                Dim conn1 As MySqlConnection
                conn1 = conn.ConnexionBdd()
 
                If conn1.State <> 1 Then
 
                    Dim Sql As String = "ma requete"
                    Dim Commande As New MySqlCommand(Sql, conn1)
                    res = Commande.ExecuteReader()
                    Dim nb As Integer = res.RecordsAffected
 
                    If res.HasRows = 0 Then
                        Me.erreur.Text = "Nom d'utilisateurou mot de passe vide !!"
                        conn1.Close()
                    Else
                        res.Read()
                        profil = res.GetString(2)
                        conn1.Close()
                        Dim index As New Index
                        Me.Hide()
 
                        index.Show()
 
 
                    End If
                Else
                    Me.erreur.Text = "Erreur de serveur!!"
                End If
            Catch probleme As Exception
                Me.erreur.Text = probleme.Message
            End Try
 
 
 
 
        End If
 
    End Sub
End Class
mais j'ai toujours l'erreur de serveur