ZeoLab : Développement, Référencement, et autres Geekeries ...

Pour utiliser MySQL dans un environnement ASP (Ms Visual Web Studio Express 2005/2008), il faudra dans un premier temps télécharger et installer le kit de connexion pour M Windows XP/Vista/7, donc pour le récupérer : accéder à la page de MySQL Connector. Une fois ceci récupéré et installé, on va pouvoir commencer à coder …
Ouvrons donc un éditeur pour ASP, j’ai choisi d’utiliser Ms Visual Web Studio Express (logiciel gratuit), qu’on peut récupérer à cette URL (on peut aussi prendre le Ms Web Platform qui permet d’installer tout un environnement de développement .NET + quelques outils utiles. Mais revenons au code ASP …

On va partir d’un exemple concret, une base de données d’un vétérinaire. Elle contiendra les type des animaux (champ : animal), les races, les numéros de tatouage, les dates de naissance, le prénom de l’animal et l’identifiant du propriétaire …

Début du script

 <%@ Page Language="VB" %>
 <%@ Import Namespace="System.Data" %>
 <%@ Import Namespace="MySql.Data.MySqlClient" %>
 
 

Les lignes 1 à 3 permettent de définir le connecteur à utiliser, ici celui de MySQL.
Les lignes 5 et 6 sont des balises qui peuvent contenir des fonctions ASP …

Puis pour se connecter. On va déclarer les variables utiles au script …

' Connexion à la base de données MYSQL
Dim myDataAdapter As MySqlDataAdapter
Dim myDataSet As DataSet
Dim myConnection As MySqlConnection
Dim ObjetDataTable As DataTable
Dim strSQLAs String
Dim classe As String

Pour exécuter une requête pour rechercher les données des chiens de race « Golden Retriever » …

myConnection = New MySqlConnection("server=1SERVEUR; user id=LOGIN; password='MOTDEPASSE'; database=BASE; pooling=false;")
strSQL = "SELECT * FROM animaux WHERE animal='chiens' AND race='golden-retriever'"
myDataAdapter = New MySqlDataAdapter(strSQL, myConnection)
myDataSet = New DataSet()
myDataAdapter.Fill(myDataSet, "tableApp")
ObjetDataTable = myDataSet.Tables("tableApp")

Pour vérifier si la requête a fonctionné

If ObjetDataTable.Rows.Count = 0 Then
Response.Write("Aucun enregistrement ...")
Else
Response.Write("La requête a fonctionné")
End If

Pour utiliser les résultats de la requête.

Dim i as Integer
For i = 0 To (ObjetDataTable.Rows.Count-1)
Response.Write(CStr(ObjetDataTable.Rows(i).Item("Race").ToString))
Next i