Probleme de connection a une BDD MYSQL

Kookaburra · 18/08/2006, 09h16

Bonjour a tous

Bien évidement si je me présente ici c'est que j'ai quelque petits soucis en programation Asp. Je débute et mes maigres conaissance générale du domaine ne me permettent pas encore de réagir rapidement en fonctions des problèmes rencontrés. Je tourne en rond et je n'aboutis malheureusement a rien ...

En bref voilà mon Problème.

Je dois travailler sur un projet permettant de mettre en place un relevé statistique (sous forme de Graphique XML) du quotat des impressions Couleur et Noir&Blanc d'un parque d'imprimantes.

Le informations son stoquées dans une base de donnée MySQL.
premièrement j'aimerais déjà pouvoir afficher les informations contenue dans la base, mais même là pour le moment je me heurte à un mur

pour simplifier les discutions voilà ce que j'ai:
un fichier ASP a part pour le DSN

Citation:

<%
DSNWEBJETADMIN="DRIVER={MySQL ODBC 3.51 Driver};server=s-myserv2;database=webjetadmin;user=webjetREAD;pwd=webjetREAD;option=3"%>

et Mon doc depuis lequel j'aimerais juste faire s'afficher les information de la base (mieux d'une table en particulié: celle qui denombre bettement sans distinction les impressions générales des machines)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
 
<!--#include file="IMP_Dsn.asp"-->
<script RUNAT="SERVER" LANGUAGE="VBScript">
 
'***************************GRAPHIQUES IMPRESSIONS USOCOME************************************************'
 
	Dim Conn,Rs
	Set Conn=Server.CreateObject("ADODB.Connection")
	Set Rs=Server.CreateObject("ADODB.Recordset")
	Conn.ConnectionString= DSNWEBJETADMIN
	Conn.Open DSNWEBJETADMIN
 
 
 
	sub test()
 
	count=Request.Form("CountValue")
	response.write "<br><table border='0' cellpadding='1' cellspacing='1' width='100%'>"
	response.write "<tr><td bgcolor='#A5C3D2'><small><font face=Arial>"&CountValue&"</font></small></td></tr>"
	response.write "</table><br>"
	end sub
 
 
 
	Set rs= Nothing
	Conn.close
	Set conn = Nothing
 
 
</Script>
</head>
 
<body>
 
</body>
</html>

Ma base se trouve localis comme suit:
(enfin c'est une BDD dans une autre BDD ... apparement ? > wjadeviceutilization est une BDD inclut dans webjetadmin, de ce que j'en ai compris)

mysql://s-myserv2/browser/webjetadmin/wjadeviceutilization/

La table concerné est [CountValue]

j'aimerais afficher tout les valeurs de cette table ...
de sorte à pouvoir les exploiter via le Graph XML.
(lmais pour le moment j'aimerais déjà les afficher

Et pour le moment ça marche pas trop donc si qqn voulais bien prendre ma requete en consideration

)

Merci @ tous !

Metal · 18/08/2006, 11h59

Il faudrait que tu interroges ta base via une requete SQL
Du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
lister = "SELECT * FROM ta_table"
Set rs = OBJdbConnection.execute(lister)

ensuite tu boucles sur ton recordset (ici nommé rs)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Do While not rs.eof        'tant que ton rs n'est pas vide
       'différentes instructions (affichages, ..etc..)
rs.movenext                 'passe au rs suivant
Loop

DavidDeTroyes · 18/08/2006, 12h01

Bon alors concretement tu veux te connecter a ta base MySQL et lister les valeurs ?

Alors deja tu te connecte a ta base qui s'appele BASE qui est à l'adresse IP (localhost si c'est en local), avec UTILISATEUR comme identifiant de connection et MOTDEPASSE comme... heu... comme epinard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
set base = server.createobject("ADODB.Connection")
base.open "DRIVER={MySQL ODBC 3.51 Driver};Server=IP;Database=BASE;Uid=UTILISATEUR;Pwd=MOTDEPASSE"

Ensuite tu ouvre un recordset sur une table TABLE de ta base BASE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
set table = server.createobject("ADODB.Recordset")
table.open "SELECT * FROM TABLE", base, 3, 3

Ensuite tu boucle sur la table en testant au prealable si il existe des enregistrements et tu affiche le champ CHAMP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
if not table.EOF then
table.movefirst
do
response.write table("CHAMP")
table.movenext
loop until table.EOF
end if

et enfin tu ferme la table et la base

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
table.close
set table = nothing
base.close
set base = nothing

J'espére que j'ai pu t'aider

EDIT : oups, grilled... Desolé

Kookaburra · 18/08/2006, 15h00

Merci

!!!
jvais tester tout ça lundi

18/08/2006, 15h00	#4
Kookaburra Invité de passage Inscription : août 2006 Messages : 2 Détails du profil Informations forums : Inscription : août 2006 Messages : 2 Points : 0 Points : 0	Merci !!! jvais tester tout ça lundi
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email