Discussion :

[taspai]

Bonjour a tous,

En fouinant dans la FAQ j'ai trouvé mon bonheur, cependant j'ai une erreur qui apparait que je n'arrive pas a comprendre !

Le lien de la FAQ : http://dotnet.developpez.com/faq/asp...=ado_connexion

J'ai donc repris le code de David Pedehourcq, "Comment se connecter à une base Mysql via ODBC" de cette manière :

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
 
Imports System
Imports System.Data
Imports System.Data.Odbc
 
Public Class BDD
 
    Private Sub Connexion()
        Dim ConnexionParams As String = "DRIVER=(MySQL ODBC 3.51 Driver);" + "SERVER=localhost;" + "DATABASE=chocolat;" + "UID=root;" + "PASSWORD=fraise;"
 
        Try
            Dim ConnexionOdbc As New OdbcConnection(ConnexionParams)
            Dim CommandOdbc As New OdbcCommand()
            Dim DataReader As New OdbcDataReader()
 
            'Connexion
            ConnexionOdbc.Open()
            CommandOdbc.Connection = ConnexionOdbc
 
            'Envoie de requetes
            CommandOdbc.CommandText = "SELECT * FROM chocolat_users"
            DataReader = CommandOdbc.ExecuteReader()
 
            While DataReader.Read()
                Console.WriteLine(("Data : " + DataReader.GetString(1) + " " + DataReader.GetString(2)))
            End While
 
            'Déconnexion
            DataReader.Close()
            ConnexionOdbc.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class

Cependant j'obtiens l'erreur suivante : 'System.Data.Odbc.OdbcDataReader.Friend Sub New(command As System.Data.Odbc.OdbcCommand, cmdWrapper As System.Data.Odbc.CMDWrapper, commandbehavior As System.Data.CommandBehavior)' n'est pas accessible dans ce contexte, car il est 'Friend'.

au niveau de cette ligne donc :

Code :

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

 Dim DataReader As New OdbcDataReader()

Je ne comprends pas l'erreur, comment corriger cela ?

Merci d'avance et bonne journée !

[ebastien]

Bonjour,

La méthode ExecuteReader() retourne une instance de OdbcDataReader. Il ne faut donc pas tenter de créer cette instance avec un New :

Code :

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

1
2
3
 
Dim MyDataReader As OdbcDataReader 
MyDataReader = MyCommand.ExecuteReader()

[taspai]

Bonjour et merci de ta réponse rapide,

En effet sans créé l'instance avec le new ça marche correctement !

Cependant j'ai d'autres soucis .. maintenant que la déclaration de ObdcDataReader se fait correctement j'ai de nouvelles erreurs.

Au niveau de

Code :

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

DataReader = CommandOdbc.ExecuteReader()

il me dit "impossible de convertir une valeur de type 'System.Data.ObdcDataReader' en Tableau a 1 dimension(s)" alors comment procéder pour le récupérer sous forme de tableau a 1 dimension ?

Et ensuite après cela des que j'utilise une méthode de DataReader comme par exemple DataReader.Read() il me dit que la méthode n'est pas un membre de 'System.Array'

D'ou cela provient il ? est ce du a l'erreur précédente ? Ou bien est ce une chose a part ?

[ebastien]

Attention à la déclaration :

Code :

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

Dim MyDataReader As OdbcDataReader

et non pas

Code :

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

Dim MyDataReader As OdbcDataReader()

Sinon c'est un tableau que tu déclares. Je suppose que l'erreur vient de là ...

[taspai]

Ah non autant pour moi, j'avais mis des parenthèse a la déclaration et sans ça fonctionne, il faut donc bien déclarer de cette manière !

Merci beaucoup