Connexion à une base de données MySQL

Signaler
Messages postés
2
Date d'inscription
samedi 4 février 2006
Statut
Membre
Dernière intervention
11 avril 2006
-
Messages postés
2
Date d'inscription
samedi 4 février 2006
Statut
Membre
Dernière intervention
11 avril 2006
-
Bonjour,

Je cherche à connecter une page ASP à une base de données MySQL située sur un serveur.

La chaîne de connexion est la suivante :

<%DSN_BASE = "DRIVER={MySQL ODBC 3.51 Driver};" & "SERVER=10.4.1.22;" & "PORT=10061" & "DATABASE=TableCOS.frm;" & "USER=root;" & "PASSWORD=admin;"%>

<%Set Conn = Server.CreateObject("ADODB.Connection")%>
<%Conn.Open DSN_BASE%>
<%Set Rs = Server.CreateObject("ADODB.Recordset")%>

La requête est celle ci :

<%Rs.Open "Select TableCOS.Dates, TableCOS.Intitule, TableCOS.Lien, TableCOS.Service, TableCOS.DateFin, TableCOS.Type, TableCOS.Direction, TableCOS.Annee, TableCOS.Titre From TableCOS where (((TableCOS.DateFin)>="&VarDate&")) Order By TableCOS.Direction, TableCOS.DateFin desc" , Conn%>

Et j'ai ce message d'erreur :

Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[MySQL][ODBC 3.51 Driver][mysqld-5.0.16-nt]No database selected
/adujr/AffCOS1.asp, line 20

La ligne 20 correspond à la requête. Je n'ai trouvé pas d'explication sur ce message d'erreur.

Quelqu'un peut il m'aider?

Merci.

Pierre13BdR

2 réponses

Messages postés
1
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
11 avril 2006

Désolé pour le retard de la réponse ... tu a simplement oublier le point virgule après le numéro de port .... ^^ 2 mois d'attente pour apprendre cela :p
Messages postés
2
Date d'inscription
samedi 4 février 2006
Statut
Membre
Dernière intervention
11 avril 2006

Bonjour,

merci pour cette réponse. En fait j'ai trouvé la solution entre temps :


<%DSN_BASE =
"DRIVER={MySQL ODBC 3.51 Driver};" &
"SERVER=10.4.1.22;" &
"PORT=10061;" &
"DATABASE=COSBASE;" &
"USER=root;" &
"PASSWORD=admin;"%>







<%Set Conn = Server.CreateObject(
"ADODB.Connection")%>


<%Conn.Open DSN_BASE%>


<%Set Rs = Server.CreateObject(
"ADODB.Recordset")%>


<%Rs.Open
"Select TableCOS.Dates, TableCOS.Intitule, TableCOS.Lien, TableCOS.Service, TableCOS.DateFin, TableCOS.Type, TableCOS.Direction, TableCOS.Annee, TableCOS.Titre From cosbase.TableCOS where (((TableCOS.DateFin)>="&VarDate&
")) Order By TableCOS.Direction, TableCOS.DateFin desc" , Conn%>

C'est le nom de la base de données (COSBASE) qui n'était pas correcte.

Salutations.

Pierre13BdR