Se connecter à une base de données à partir de VB.net

Version imprimable

Voir 40 message(s) de cette discussion en une page

27/04/2015, 13h20
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:

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
27/04/2015, 13h37
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.
27/04/2015, 13h56
boutheinanabeul

merci pour votre effort, en principe j'ai fait ça mais la même erreur persiste encore
27/04/2015, 13h58
mactwist69

Quels sont les noms des fichiers dll que vous avez importé dans le projet Visual Studio ?
27/04/2015, 14h03
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
27/04/2015, 14h06
mactwist69

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

Et losque vous faites dans une Classe :

Code:

Imports MySQL.Data

, il ne pose pas de question ? ou ça lui pose déjà problème ?
27/04/2015, 14h17
boutheinanabeul

1 pièce(s) jointe(s)

Voici un imprime écran pour l'onglet référence
Pièce jointe 176146
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
27/04/2015, 15h41
mactwist69
Le Imports.... Il ne se fait pas DANS la classe...

Mais juste au dessus :
Code:

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.

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

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

27/04/2015, 15h59
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.
27/04/2015, 16h02
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
27/04/2015, 17h31
mactwist69

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

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:

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:

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

28/04/2015, 08h40
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à ?
28/04/2015, 11h21
boutheinanabeul

qu'est ce que vous désigné, Vous voulez que j'écris le chemin complet pour accéder à ma base de donnée?
28/04/2015, 11h26
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/

en principe je dois écrire ça à votre avis
Code:

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

28/04/2015, 12h42
mactwist69

J'ai déjà donné cette information dans le post d'avant.
28/04/2015, 12h44
boutheinanabeul

et donc le code que j'ai écrit juste ou non?
28/04/2015, 13h01
mactwist69

Citation:

Envoyé par 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 !

Voir 40 message(s) de cette discussion en une page