Discussion :

[ThE bArJo]

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

Code :

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

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.

[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()

[ThE bArJo]

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

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
 
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 :

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

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 :

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

1
2
 
TableAjouteLigne(TABLE_MYSQL,ReqTest)

- Et enfin je ferme ma connexion :

Code :

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

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.

[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.

[ThE bArJo]

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.

[Jannus]

C'est bien ce que je veux dire

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

[Emmanuel Lecoester]

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

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
 
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é.

[ThE bArJo]

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

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

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
 
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.

[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.

[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.