Connexion Mysql avec Vb.net(2005)

Version imprimable

06/11/2007, 17h59
GarsDuCalvados

Connexion Mysql avec Vb.net(2005)

Bonjour,
j'ai easyphp d'installer avec une bdd et un table.
Comment faire pour me connecter à la BDD (tout en localhost)?
Merci,
.GarsDuCalvados

J'ai essayé ceci :

Code:

1
2
3
4
5
6
7
8
9
10
'Création de la chaîne de connexion
        Dim connectString As String = "Server=localhost;Database=parc;User ID=root;Password=password"
        'Création de la connexion
        Dim connection As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectString)
        'Mouchard n°1
        MessageBox.Show("1")
        'Ouverture
        connection.Open()
        'Mouchard n°2 ==> ERREUR
        MessageBox.Show("2")

J'ai mis des sortes de mouchard pour voir à quelle étape ça buggé.
Surement lors de la connexion.
Et le mouchard n°1 s'affiche mais pas le 2ème.

Avez vous une idée?

06/11/2007, 18h22
SaumonAgile

Quelle est l'erreur ? On ne peut pas le deviner juste en regardant ton code ;)

Citation:
Envoyé par GarsDuCalvados
J'ai essayé ceci :
Code:

1 2 3 4 5 6 7 8 9 10 'Création de la chaîne de connexion Dim connectString As String = "Server=localhost;Database=parc;User ID=root;Password=password" 'Création de la connexion Dim connection As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectString) 'Mouchard n°1 MessageBox.Show("1") 'Ouverture connection.Open() 'Mouchard n°2 ==> ERREUR MessageBox.Show("2")
J'ai mis des sortes de mouchard pour voir à quelle étape ça buggé.
Surement lors de la connexion.
Et le mouchard n°1 s'affiche mais pas le 2ème.

Avez vous une idée?
Les points d'arrets sont tout aussi efficaces ainsi que les pièges à erreur ;)
Va voir la partie V de mon cours :
http://aspic.developpez.com/cours/dotnet

06/11/2007, 18h41
Kaidan

SqlClient ne peut pas se connecter à MySQL non ? Il faut utiliser ODBC ou le provider de MySQL.
06/11/2007, 19h25
GarsDuCalvados

Citation:

Envoyé par SaumonAgile

Quelle est l'erreur ? On ne peut pas le deviner juste en regardant ton code ;)

En faite l'erreur c'est que l'appli. se fige.
Rien pas de réaction aprés le mouchard 1 et je ne vois pas le mouchard 2.
J'en déduis que je ne me connect pas correctement à ma base Mysql de easyphp.

Citation:

Envoyé par Kaidan

SqlClient ne peut pas se connecter à MySQL non ? Il faut utiliser ODBC ou le provider de MySQL.

Que dois faire pour me connecter alors?
ODBC ou Provider(je ne sais pas ce que c'est).

Merci.

EDIT
A l'aide du cours de Aspic "pièges" ;-)
J'ai pu voir un message d'erreur :

<<Image supprimée>>
06/11/2007, 19h37
Kaidan

Bonjour,

http://dev.mysql.com/downloads/connector/net/5.0.html

Il y a également un tutorial (assez ancien) :

http://morpheus.developpez.com/mysqldotnet/
06/11/2007, 19h50
Aspic

Bon déjà avec le message d'erreur c'est clair non ?
07/11/2007, 07h33
GarsDuCalvados

J'ai suivi le tuto téléchargé le connecteur installer.
Mais déja lorsque j'ajoute une référence je n'ai pas ByteFx.MySqlClent.dll mais mysql.data qui correspond au chemin de l'installation du connecteur.
Ensuite j'ai bien fais un imports mais j'ai toujours le meme message d'erreur.

Auriez vous une idée?

Merci,
GarsDuCalvados

Youpie,
j'ai reussi
avec de la recherche et tout et tout
ça fontionne voilà mon code qui me permet de récupérer mon résultat :

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
        'Déclaration
        Dim RequeteSQL As String
        Dim objCommand As MySqlCommand
        Dim objDataReader As MySqlDataReader
        Dim MyAdapter As MySqlDataAdapter = New MySqlDataAdapter()
        'Création de la chaîne de connexion
        Dim connectString As String = "Server=localhost;Database=parc;User ID=root;Password=password"
 
        Try 'Ouvre le piège
 
            'Création de la connexion
            Dim Connection As MySqlConnection = New MySqlConnection()
            Connection.ConnectionString = connectString
 
            'Mouchard n°1
            MessageBox.Show("1")
 
            'Ouverture de la connexion
            Connection.Open()
 
            'Mouchard n°1
            MessageBox.Show("2")
 
            'Requete SQl
            RequeteSQL = "SELECT * FROM ordinateur"
 
            'Execution de la requete
            objCommand = New MySqlCommand(RequeteSQL, Connection)
            objDataReader = objCommand.ExecuteReader
 
            While objDataReader.Read
                MessageBox.Show(objDataReader.GetString(0))
            End While
 
            'Fermeture
            objDataReader.Close()
            Connection.Close()
 
        Catch Ex As Exception 'Intercepte l'erreur en cas de pb
            MsgBox(Ex.ToString)
        End Try 'Ferme le piège

Citation:

Envoyé par GarsDuCalvados

Youpie,
j'ai reussi
avec de la recherche et tout et tout
ça fontionne voilà mon code qui me permet de récupérer mon résultat :

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
        'Déclaration
        Dim RequeteSQL As String
        Dim objCommand As MySqlCommand
        Dim objDataReader As MySqlDataReader
        Dim MyAdapter As MySqlDataAdapter = New MySqlDataAdapter()
        'Création de la chaîne de connexion
        Dim connectString As String = "Server=localhost;Database=parc;User ID=root;Password=password"
 
        Try 'Ouvre le piège
 
            'Création de la connexion
            Dim Connection As MySqlConnection = New MySqlConnection()
            Connection.ConnectionString = connectString
 
            'Mouchard n°1
            MessageBox.Show("1")
 
            'Ouverture de la connexion
            Connection.Open()
 
            'Mouchard n°1
            MessageBox.Show("2")
 
            'Requete SQl
            RequeteSQL = "SELECT * FROM ordinateur"
 
            'Execution de la requete
            objCommand = New MySqlCommand(RequeteSQL, Connection)
            objDataReader = objCommand.ExecuteReader
 
            While objDataReader.Read
                MessageBox.Show(objDataReader.GetString(0))
            End While
 
            'Fermeture
            objDataReader.Close()
            Connection.Close()
 
        Catch Ex As Exception 'Intercepte l'erreur en cas de pb
            MsgBox(Ex.ToString)
        End Try 'Ferme le piège

Quelle référence as-tu ajouter?

Merci