[WD12] Afficher dans une table le resultat d'une requete SQL basée sur MySQL

Version imprimable

04/11/2008, 15h02
ThE bArJo

[WD12] Afficher dans une table le resultat d'une requete SQL basée sur MySQL
Bonjour,
J'aimerais pouvoir afficher dans un tableau (appelé Table dans Windev) le resultat d'une requete SQL.
Voici un bout de code que j'ai essayer d'executer mais ca ne marche pas :evilred:
Code:

1 2 3 4 5 ReqTest est une Source de Données HExécuteRequêteSQL (ReqTest, "SELECT Code FROM EQUIP") TableAjouteLigne(TABLE_MYSQL,ReqTest)
Merci pour votre aide.
04/11/2008, 16h28
Jannus

Pourquoi ne crées-tu pas une table sur fichier et la lier à ta requete ?

Sinon, ton code est incomplet.
Tu exécutes ta requete, mais tu ne lis pas le résultat
Regarde l'aide sur HExécuteRequête()

Concretement,
- j'ai une BDD MySQL stocké sur un serveur distant, donc j'initialise ma connexion :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 NumConnexion est un entier NomSource est une chaîne ReqTest est une Source de Données NomSource = "http://www.monsiteweb.com" NumConnexion = SQLConnecte(NomSource, "user", "pass","nomdemabase") SI NumConnexion<>0 ALORS Info ("Connexion réussie") SINON SQLInfoGene() Erreur("La connexion à la source de données " + NomSource + ... " a échoué."+RC+... "Code erreur : " + SQL.Erreur +RC+... SQL.MesErreur) FIN
Deja la je comprends pas, il me jette, je n'arrive pas à établir la connexion, pourquoi?

- Ensuite j'execute ma requete :
Code:

1 2 HExécuteRequêteSQL (ReqTest, "SELECT Code FROM EQUIP")
- Puis j'essaie d'afficher mon resultat dans mon composant tableau (nommé table dans windev, un peu chiant d'ailleurs, porte a confusion)
Code:

1 2 TableAjouteLigne(TABLE_MYSQL,ReqTest)
- Et enfin je ferme ma connexion :
Code:

1 2 SQLDéconnecte()
Comment puis regler mon probleme de connexion qui ne reconnait pas ce que je lui met dans le NomSource?
Comment afficher le resultat dans un tableau?
Il n'y a rien a rajouter dans mon code vu que j'utilise du MySQL? Genre parametre ODBC...

Merci pour votre aide.

04/11/2008, 19h25
Jannus

Pour ta connexion, je n'en sais rien.
Mais pour l'affichage des données dans la table, je t'ai donné la réponse.
05/11/2008, 08h13
ThE bArJo

Citation:

Envoyé par Guardian

mais tu ne lis pas le résultat

Tu veux dire que je ne lis pas le résultat, c'est pour ca que ca ne marche pas? Sinon le reste te parait bon mis a part que la connexion ne marche pas comme ca? J'ai été obliger de rajouter une "Source de données utilisateur" dans le Panneau de configuration > Outils d'administration > Source de données ODBC, ca me plait pas trop parce que je voulais quelque chose de modifiable à souhait dans le code pour changer comme je veux de source.

Merci beaucoup.
05/11/2008, 11h34
Jannus

C'est bien ce que je veux dire ;)

Sinon, pour la connexion, tout doit pouvoir se paramètrer dans le code.

Citation:
Envoyé par ThE bArJo
Concretement,
- j'ai une BDD MySQL stocké sur un serveur distant, donc j'initialise ma connexion :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 NumConnexion est un entier NomSource est une chaîne ReqTest est une Source de Données NomSource = "http://www.monsiteweb.com" NumConnexion = SQLConnecte(NomSource, "user", "pass","nomdemabase") SI NumConnexion<>0 ALORS Info ("Connexion réussie") SINON SQLInfoGene() Erreur("La connexion à la source de données " + NomSource + ... " a échoué."+RC+... "Code erreur : " + SQL.Erreur +RC+... SQL.MesErreur) FIN
Sujet déjà évoqué plusieurs fois ! il faut que le port 3003 (par défaut mais peut êter différent) soit ouvert par le FAI de votre site WEB. Dans la majorité des cas il est bloqué.

@elecoest : A quoi correspond ce port 3003???

@Guardian : Ca serait un truc dans ce genre la ?

Code:

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
 
NumConnexion est un entier
NomSource est une chaîne
ReqTest est une Source de Données
 
NomSource = "http://www.monsiteweb.com"
NumConnexion = SQLConnecte(NomSource, "user", "pass","nomdemabase")
 
SI NumConnexion<>0 ALORS
	Info ("Connexion réussie")
	SINON
		SQLInfoGene()
		Erreur("La connexion à la source de données " + NomSource + ...
			" a échoué."+RC+...
			"Code erreur : " + SQL.Erreur +RC+...
			SQL.MesErreur)	
FIN
 
HExécuteRequêteSQL (ReqTest, "SELECT Code FROM EQUIP")
 
// Code que j'ai rajouté pour afficher dans un tableau les resultats
HLitPremier(ReqTest)
TANTQUE PAS HEnDehors (ReqTest)
	TableAjouteLigne(TABLE_MYSQL,ReqTest.Code)
	HLitSuivant(ReqTest)
FIN
 
SQLDéconnecte()

Merci.

24/11/2008, 10h51
Emmanuel Lecoester

3003 c'est le port par défaut de MySQL.

Le problème que vous évoqué "Accéder à une base de données MySQL distante" a déjà été évoqué à plusieurs reprises.

:recherch: :king:
26/11/2008, 10h18
ThE bArJo

Résolu avec l'aide de mon sauveur, elecoest!

Merci beaucoup pour votre patience!

Pour info : Problème de libmysql.dll non présente dans le répertoire WinDev.