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:
mais j'ai toujours l'erreur de serveur
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
Partager