bonjour

qqun aurais une idées pour quoi il n'arrive pas a se connecter a ma base svp ?

ci-dessous le code

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
Imports MySql.Data.MySqlClient
Public Class Form1
    '****************déclaration des variables**************
    'la chaine de connection
    Dim Bdd As New MySql.Data.MySqlClient.MySqlConnection
    'la requete sql
    Dim ReqSql As String
    'le dataset qui contient les données lu
    Dim MonDataSet As New DataSet
    'l'adapter par qui On va effectuer les commandes
    Dim MonAdapter As MySqlDataAdapter
    'la table sur laquelle On est
    Dim latablealire As String
 
    Private Sub bt_connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_connect.Click
        latablealire = T_Table.Text
        Try
 
            'on ferme d'abord au cas ou elle serait rester ouverte
            Bdd.Close()
 
            'Je Me connect à la base de donnée
            Bdd.ConnectionString = "Database=" & T_Bdd.Text & ";Data Source=" & T_serveur.Text & ";User Id=" & T_user.Text & ";Password=" & T_pass.Text
 
            'et j'ouvre ma connection
            Bdd.Open()
 
            'je defini ma requete 
            ReqSql = "SELECT * FROM " & latablealire & ";"
 
            'Mon adapter recupere les données de ma requete
            MonAdapter = New MySqlDataAdapter(ReqSql, Bdd)
 
            'que j'insere dans mon dataset
            MonAdapter.Fill(MonDataSet, latablealire)
 
            'Fermeture de la connection
            Bdd.Close()
 
            'affichage des données dans le datagrid
            Dim Matable As DataTable
            Matable = MonDataSet.Tables(latablealire)
            DataGridView1.DataSource = Matable
 
            'affichage de l'erreur si la connexion ne s'est pas effectuée
        Catch MySqlException As Exception
            MessageBox.Show("Erreur SQL:" + MySqlException.Message, "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
        End Try
    End Sub
End Class
merci
bonne journée