Rechercher :
loupe


 
 Connexion à MySQL via Visual Basic 6
Rédigé par indo le 08-01-2006 à 19:19:51

Pour pouvoir connecter une application Visual Basic à un serveur MySQL, il est nécessaire d'utiliser un pilote ODBC capable d'accéder aux fonctionnalités de MySQL.
Introduction


MyODBC est le pilote qui va permettre d'établir une connexion à un serveur MySQL. Pour télécharger ce dernier, consultez le site officiel : http://www-fr.mysql.com/.

Durant ce tutorial, nous utiliserons le pilote MyODBC version 3.51, il est donc possible que certains points soient différents pour la version 2.50.


Serveur MySQL et Pilote MyODBC

Afin de tester la connexion à une base de données, vous devez avoir un serveur MySQL d'installé. Vous pouvez télécharger le logiciel EasyPHP, il permet d'installer un serveur Web avec le support du PHP, et un serveur MySQL avec son interface d'administration. Si vous ne souhaitez pas installer de programmes, vous pouvez créer un compte sur le site suivant : http://freesql.org/.

Dans notre exemple, nous allons utiliser une base de données appelée « TEST », dans laquelle nous allons définir une table « USERS » ayant :

- un champ de type « int », auto_increment, primaire, nommé « idUsers » ;
- un champ de type « mediumtext » nommé « nomUsers ».

Pour créer cette structure, utiliser l'outil d'administration phpMyAdmin :

- pour les utilisateurs de EasyPHP entrez l'url suivante dans votre navigateur après avoir démarré EasyPHP : http://127.0.0.1/mysql/ ;
- pour les utilisateurs du site FreeSQL, utilisez l'url suivante : http://www.freesql.org:8080/phpMyAdmin.

Après ceci, il ne vous reste plus qu'à insérer quelques enregistrements dans la base et d'installer le pilote MyODBC qui permettra à Visual Basic d'accéder au serveur de base de données.


Connexion au serveur MySQL

Créez un nouveau projet dans Visual Basic 6, dans projet, références, vous devez cocher « Microsoft ActiveX Data Objects 2.5 Library » afin d'activer la prise en charge des bases de données.

Dans un module, nous allons déclarer des variables qui vont permettre de renseigner la ligne de connexion à MySQL et de créer l'objet ADODB.

Public conx As ADODB.Connection
Public servdb As String
Public nomdb As String
Public logindb As String
Public pwddb As String
Public optdb As Integer


Dans le Form_Load de la fenêtre principale, nous allons initialiser les variables et créer l'objet de connexion ADODB.

servdb = "localhost"
nomdb = "TEST"
logindb = "root"
pwddb = ""
optdb = 3

Set conx = New ADODB.Connection


Et enfin pour terminer, toujours dans la même procédure, nous allons établir la connexion au serveur MySQL.

On Error GoTo erreur1
conx.CursorLocation = adUseServer
conx.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & servdb & ";DATABASE=" & nomdb & ";USER=" & logindb & ";PASSWORD=" & pwddb & ";OPTION=" & optdb & ""
Exit Sub
erreur1:
MsgBox("Impossible de contacter le serveurt", vbCritical, "Erreur de connexion")



Pour fermer la connexion, il suffit d'utiliser la méthode « Close » de l'objet de connexion.
 
 Rapport de bug | Informations personnelles | À propos | Contact