Discussion :

[boutheinanabeul]

Je ne sais pas si j'ai choisi le bon endroit pour poser ma question. bon mon problème est que je n'arrives pas à me connecter à ma base de données depuis mon programme VB. en fait voici mon 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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Imports MySql.Data.Entity
Imports MySql.Data.MySqlClient
Imports MySql.Data.Types
 
Public Class Form1
 
 
    Public Sub Lecture()
        Dim ConnexionSql As String = "Server=197.28.178.33;Port=3306;Database=test;Uid=root@localhost;Pwd=nabeul30071986;"
        Dim champs As String
 
        Try
            Dim query As String = "SELECT * FROM article" 'Requête SQL
            Dim connection As New MySqlConnection(ConnexionSql)
            Dim cmd As New MySqlCommand(query, connection)
 
            connection.Open()
 
            Dim reader As MySqlDataReader
            reader = cmd.ExecuteReader()
 
            While reader.Read()
                'Les champs à recup. Les tables commencent à 0.
                champs = ((reader.GetString(0)))
                MsgBox(champs)
 
 
            End While
 
            reader.Close()
            connection.Close()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
 
    'Fin requête
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
 
        Lecture() 'Appel de la requête
 
    End Sub
    Public ile As String
    Public Function connecter()
        Dim Connexion As String = "Server=197.28.178.33;Database=test;Uid=root@localhost;Pwd=nabeul30071986;"
        Dim conn As MySqlConnection = New MySqlConnection
 
        conn.ConnectionString = Connexion
        conn.Open()
        Return conn
    End Function
 
    Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim lecteur As MySqlDataReader
        Dim Requete As String
        connecter.Close()
        connecter()
        Requete = "select * from article"
        Dim Commande As New MySqlCommand(Requete, connecter)
        lecteur = Commande.ExecuteReader
        Do While lecteur.Read
            ComboBox1.Items.Add(lecteur.GetString("description"))
        Loop
        connecter.Close()
    End Sub

voici l'erreur généré:
An unhandled exception of type 'MySql.Data.MySqlClient.MySqlException' occurred in MySql.Data.dll

Additional information: Authentication to host '197.28.178.33' for user 'root@localhost' using method 'mysql_native_password' failed with message: Access denied for user 'root@localhost'@'PC-COMPANY' (using password: YES)

[sunzoo]

Vous tentez de vous connecter à un serveur externe avec un compte limité à localhost

il vous faut un compte du type xxx@% comme root@%

il faut aussi que votre serveur autorise les accès distant

[boutheinanabeul]

Voici mon 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
Imports MySql.Data.Entity
Imports MySql.Data.MySqlClient
Imports MySql.Data.Types
 
Public Class Form1
  Public ile As String
    Public Function connecter()
        Dim Connexion As String = "Server=197.28.178.33;Database=test;Uid=root;Pwd=nabeul30071986;"
        ' Dim Connexion As String = "Server=197.28.178.33;Database=test;Uid=root;Pwd=nabeul30071986;"
        Dim conn As MySqlConnection = New MySqlConnection
 
        conn.ConnectionString = Connexion
        conn.Open()
        Return conn
    End Function
    Private Sub form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim lecteur As MySqlDataReader
        Dim Requete As String
        connecter.Close()
        connecter()
        Requete = "select * from article"
        Dim Commande As New MySqlCommand(Requete, connecter)
        lecteur = Commande.ExecuteReader
        Do While lecteur.Read
            ComboBox1.Items.Add(lecteur.GetString("description"))
        Loop
        connecter.Close()
    End Sub

lorsque j'exécute cet erreur est affiché
An unhandled exception of type 'MySql.Data.MySqlClient.MySqlException' occurred in MySql.Data.dll

Additional information: Unable to connect to any of the specified MySQL hosts.

[boutheinanabeul]

si MySQL est installé sur mon ordinateur est ce que c'est nécessaire de faire la configuration pour des connexions distantes?