Connexion MySQL et VB .NET

Messages postés
7
Date d'inscription
dimanche 28 août 2005
Statut
Membre
Dernière intervention
24 octobre 2005
- - Dernière réponse : MF_DeNice
Messages postés
7
Date d'inscription
dimanche 28 août 2005
Statut
Membre
Dernière intervention
24 octobre 2005
- 24 oct. 2005 à 16:45
Salut tout le monde !!!

Voilà je farfouille tout le net et ce site là en particulier pour parvenir à créer une connexion à MySQL..... en vain
Le problème c'est que quand je regarde dans les références, tout est présent, les drivers ODBC et tout, et quand je tente de déclarer mes variables de connexion, eh bien rien n'est reconnu. Tous les mots sont soulignés avec les vaguelettes assez connues malheureusement.
Voici le code que j'utilise, il est placé dans un Private Sub Button1_Click...

----------------------------------------------------
Private
Sub Button1_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Button1.Click



'//Actualisation du texte


Label1.Text = "Connexion en cours ..."



' Declaration des varables de connexion a la base



Dim DSN
As
String



Dim Server
As
String



Dim DataBase
As
String



Dim Login
As
String



Dim Pass
As
String



' Server MySQL


Server = "localhost"



' Nom de la base


DataBase = "denice"



' Utilisateur pour la connexion


Login = "root"



' Mot de passe de l'utilisateur


Pass = ""



' Création de la chaine de connexion a la base


DSN = "driver={MySQL ODBC 3.51 Driver};server=" & Server & ";db=" & DataBase & ";UID=" & Login & ";pwd=" & Pass & ";option=2048"



' Instantiation des objets d'utilisation de la base


Set Db = CreateObject("ADODB.Connection")



' Parametrage de la connexion base


Db.ConnectionTimeout = 30


Db.CommandTimeout = 30



' Connexion a la base


Db.Open(DSN)



End
Sub
----------------------------------------------------

Alors plusieurs précisions que j'ai déjà posées dans des sujets datant de juin:
sur la ligne "Set Db = CreateObject("ADODB.Connection")", le Set disparait purement et simplement pour le moindre enregistrement ou la moindre compilation. Du coup VB me sort une erreur comme quoi la variable Db n'est pas définie...

J'ai donc essayé de faire ceci : "Dim Db
As
New System.data.Odbc.Connection"

mais comme je le disais précédemment les mots System.data.Odbc.Connection sont soulignés de vaguelettes bleues.
Ensuite j'ai tenté de faire ceci, qui était reconnu :


Dim Db
As
New System.data.Odbc{}



mais l'erreur était alors "End of statement expected"...

Si quelqu'un pouvait me guider je lui en serais très reconnaissant, car cela fait maintenant beaucoup de temps que je bute la dessus...
Merci d'avance et j'espère à bientôt
++

::[DeNice]::
Afficher la suite 

2 réponses

Messages postés
329
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
10 mai 2014
4
0
Merci
Salut

Voici la fonçon dont j'ai procédé pour me me connecter à une base de données MySQL

1ère) Installer les driver MyODBC 3.51
2ème) Installer ODBC .NET (divers ODBC pour le .NET)
3ème) Ajouter une référence/ .NET/ Microsoft.Data.OBDC.dll
(C:\Program Files\Microsoft .NEt\ODBC.Net\MIcrosoft.data.odbc.dll

Faire un projet
Ajouter : Imports Microsoft.data.odbc (à ajouter avant la déclaration de la classe)

Dans le code


Dim MyConString
As
String
Dim MyCommand
As
New OdbcCommand()

Dim MyConnection
As
New OdbcConnection()

'Créeation de la chaine de connexion
MyConString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=localhost;" & _
"DATABASE=mysql;" & _
"UID=root;" & _
"PASSWORD=" & password & ";" & _
"OPTION=3;"
MyConnection.ConnectionString = MyConString
'Ouverture de la connexion
MyConnection.Open()


J'espère que çà pourra t'éclairer. Je ne pense pas qu'une connexion ADODB puisse être utilisable pour se connecter à une base MySQL, c'est peut-être pour çà que çà marche pas.

@+
LIM
Messages postés
7
Date d'inscription
dimanche 28 août 2005
Statut
Membre
Dernière intervention
24 octobre 2005
0
Merci
Salut et merci beaucou
Je déduis donc de cela qu'il faut installer l'appli windows de ODBC ET les drivers avec les dlls (qui contient une appli d'install sous forme de fichier .BAT)...

Merci encore et je vous tiens au courant pour la suite
++

::[DeNice]::