Discussion :

[philippe30]

Bonjour,

Je dois lire une base de données sous MYSQL qui est constituée de plusieurs fichiers , je met en place un requeteur sans connaitre à la'avance le nombre de colonne des fichiers.


Cette partie fonctionne et me permet de cloner des colonnes en renseignant les titres dans mon champ table

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
 
 
var_table ="client"
 
	// Requete sur le fichier 	
	SQLExec("select * from " + var_table,"req_mysql")
	SQLInfoGene("req_mysql")
	// Nom des colonnes 
	var_compteur = 1 	
	TANTQUE var_compteur <= SQL.NbCol	
	IF var_compteur = 1 THEN Table1.Colonne1..Libellé =  SQL.TitreCol[var_compteur]
	IF var_compteur > 1 THEN 
		ChampClone(Table1.Colonne1,"Colonne"+var_compteur)
		var_nom_champ  = "Table1.colonne"+NumériqueVersChaîne(var_compteur)
		{var_nom_champ}..Libellé = SQL.TitreCol[var_compteur]
	END
	var_compteur++
	END

Cette partie me pose problème car je voudrais faire une seul tableajouteligne et constitué mes SQLLITCOL en fonction du nombre de colonnes trouvées dans le fichier.
Une syntaxe de ce type Tableajouteligne(table1,var_lecture) avec tous les SQLLITCOL d'après le nombre de colonnes dans le fichier

La variable var_lecture n'est pas reconnu dans le tableajouteligne pour lire le contenu de la colonne 1 du fichier.

Code :

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

1
2
3
4
5
6
 
	var_lecture = "SQLLitCol("""+var_requete + """, 1)"
	TANTQUE SQLAvance("req_mysql")  =0 
		TableAjouteLigne(Table1,var_lecture,SQLLitCol("req_mysql", 2),SQLLitCol("req_mysql", 3))
	FIN
	SQLFerme("req_mysql")

J'ai essayé avec SQLTABLE mais je ne récupère que la dernière ligne du fichier

Si vous avez une idée , merci d'avance

Philippe

[michel.souris]

Bonjour,

Regardez du coté de la fonction Compile.

[tatayo]

Bonjour,
Tu as déjà une boucle sur sql.nbcol pour construire la table, tu peux faire de même pour récupérer les valeurs de la requête dans une chaine (avec une tabulation comme séparateur) puis ajouter la ligne avec TableAjoute().

Je suis étonné que SqlTable ne renvoie que la dernière ligne de la requête, vu que je l'utilise très souvent sans rencontrer de problème.

Tatayo.

[philippe30]

Merci pour vos réponses

J'ai trouvé la solution en créant une ligne à vide puis en indiçant l'affectation des colonnes à partir de la dernière ligne de la table.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var_ligne = 1 
	TANTQUE SQLAvance(var_requete)  =0 
		TableAjouteLigne(Table1,"")
		var_compteur = 1 
		TANTQUE var_compteur <=SQL.NbCol
			var_nom_champ  = "Table1.colonne"+NumériqueVersChaîne(var_compteur)
			{var_nom_champ}[var_ligne] = SQLLitCol(var_requete, var_compteur)
			var_compteur++
		END
	var_ligne ++
	FIN
	SQLFerme(var_requete)
END

@Tatayo

Je suis preneur d'un bout de code avec SQLTABLE

Philippe

[tatayo]

Le code est on ne peux plus simple:

Code :

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

1
2
3
4
 
sqlexec("select Col1,Col2 from Matable","Requete")
SqlTable("Requete",TABLE_MaTable)
SqlFerme("requete")

Tatayo.

[philippe30]

Merci , je vais réessayer

Philippe

[hpascal]

Bonjour Philippe

Je suis preneur d'un bout de code avec SQLTABLE

Il suffit de regarder l'aide de SQLTable pour avoir des exemples : ICI
Dans cette page il y a 3 exemples d'utilisation