Discussion :

[boutheinanabeul]

le problème est que les instructions suivantes sont soulignées en bleu donc elle ne sont pas correctes en plus lorsque j'écris imports aussi elle n'est pas accepté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
   Dim objCommand As MySqlCommand()
        Dim objDataReader As MySqlDataReader
        Dim MyAdapter As MySqlDataAdapter = New MySqlDataAdapter()

pourquoi elles ne sont pas acceptés à votre avis

[mactwist69]

Parce que vous n'avez pas importer les fichiers de MySQL (des fichiers .dll), dans votre projet.

Il faut les trouver là où est installer MySQLConnector : C: Programmes Files( .) blablabla/MySQLConnector

Prendre les fichiers .dll, les copier dans le dossier de votre projet
dans le projet, aller dans MyProject/Référence/Add Référence, et sélectionner ces .dll...

Du coup l'import marchera, et les objets mysql seront disponibles.

[boutheinanabeul]

merci pour votre effort, en principe j'ai fait ça mais la même erreur persiste encore

[mactwist69]

Quels sont les noms des fichiers dll que vous avez importé dans le projet Visual Studio ?

[boutheinanabeul]

dans mon projet je suis allée au menu project puis add references et puis je clique sur browse:
puis j'ai choisit c:\program files\ mysql\connector.net 6.9\assemblies\v2.0\mysql.data.dll

[mactwist69]

Faites un imprime-ecran de l'onglet "Référence" dans "MyProject"

Et losque vous faites dans une Classe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports MySQL.Data

, il ne pose pas de question ? ou ça lui pose déjà problème ?

[boutheinanabeul]

Voici un imprime écran pour l'onglet référence

et même lorsque j’écris imports system.data dans une classe imports et aussi souligné.
Remarque:
j'ai déjà fait un exemple qui écrit les données à partir du VB.NEt dans un fichier TEXT et aussi lorsque j'écris imports filestream le mot imports et souligné aussi je ne sais pas si ça a une relation avec mon problème actuelle ou pas mais je voudrais vous dire ça pour que vous etes en courant

[mactwist69]

Le Imports.... Il ne se fait pas DANS la classe...

Mais juste au dessus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Imports MySQL.Data
 
Public Class MaCLAsse
 
End Class

Parce que dans un fichier VB, tu peux avoir plusieurs classe si tu veux... Tu les déclare l'un en dessous de l'autre.
Le Imports fonctionne pour le fichier VB en entier.

[boutheinanabeul]

ok c'est compris maintenant imports n'est pas souligné mais les instructions restent soulignées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Dim objCommand As MySqlCommand()
        Dim objDataReader As MySqlDataReader
        Dim MyAdapter As MySqlDataAdapter = New MySqlDataAdapter()

[mactwist69]

Et bien, tu regardes quelle est l'erreur décrite, tu regardes sur internet...

Et si tu ne trouves pas après des recherches, tu reviens nous expliquer pourquoi.

[boutheinanabeul]

en fait j'ai passé tout un week end à chercher mais j'ai pas arrivé à comprendre.
dans tout les cas merci bien à vous sur toutes vos remarques et vos conseils

[mactwist69]

Je veux bien vous aider sur un point technique précis...
Mais je peux pas vous accompagné ligne par ligne

[boutheinanabeul]

ok merci et vous avez raison
j'ai trouvé un document qui indique que je dois ajouter les références suivant:
Mysql.Data
Mysql.Data.Entity
Mysql.Data.MysqlClient
puis j’ajoute les imports comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Imports MySql.Data.Entity
Imports MySql.Data.MySqlClient
Imports MySql.Data.Types

donc le problème est résolu mais lorsque j'exécute rien n'est affiché
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
Imports MySql.Data.Entity
Imports MySql.Data.MySqlClient
Imports MySql.Data.Types
 
Public Class Form1
 
    Public Sub Lecture()
        Dim ConnexionSql As String = "Database=test;" & "Data Source=localhost;" & "User Id=boutheina;Password=30071986;" & "Connection Timeout=20"
        Dim champs As String
 
        Try
            Dim query As String = "SELECT * FROM test" '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
 
 
 
 
 
End Class

[mactwist69]

Il n'y a rien qui te choque dans ta chaîne de connexion ?

il va chercher une base "test" sur quelle machine là ?

[boutheinanabeul]

qu'est ce que vous désigné, Vous voulez que j'écris le chemin complet pour accéder à ma base de donnée?

[mactwist69]

Ca ne vous semble pas logique que le programme connaisse l'adresse IP (ou son nom DNS) du serveur de base de données avec laquelle il doit communiquer ?

https://www.connectionstrings.com/mysql/

[boutheinanabeul]

en principe je dois écrire ça à votre avis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Server=c:\programmes\MySQL\MySQL Server 5.6;Port=3306;Database=test;Uid=boutheina;
Pwd=30071986;

[mactwist69]

J'ai déjà donné cette information dans le post d'avant.

[boutheinanabeul]

et donc le code que j'ai écrit juste ou non?

[mactwist69]

Ca ne vous semble pas logique que le programme connaisse l'adresse IP (ou son nom DNS) du serveur de base de données avec laquelle il doit communiquer ?

https://www.connectionstrings.com/mysql/

JE ne peux pas réfléchir à votre place, tout est dans cette réponse !