Importantion CSV dans HPSQL

Version imprimable

Bonjour à tous,

Peut-être que le topic a déjà été traité ici, mais je me permet d'ouvrir celui parce que je ne reçois aucun message d'erreur par contre ma table ne se remplit pas.

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
29
30
31
32
33
34
35
sMonFichierEXPRESS est une chaîne
nLireLigne est une chaîne
nIdFichierEXPRESS est un entier
 
sMonFichierEXPRESS = "G:\Table_Agence.csv"
nIdFichierEXPRESS = fOuvre(sMonFichierEXPRESS)
 
//nLireLigne = nIDFichier 
SI nIdFichierEXPRESS<>-1 ALORS 
 
	VarSorti est un booléen = Faux // pour sortir de la boucle
	Erreur(ErreurInfo(errMessage))
 
	BOUCLE 
		nLireLigne = fLitLigne(nIdFichierEXPRESS)
		EXPRESS_Agence.IDAgence = ExtraitChaîne(nLireLigne, 2, ",")
		EXPRESS_Agence.LibelleAgence = ExtraitChaîne(nLireLigne,3,",")
		EXPRESS_Agence.IDEXPRESS_Banque = ExtraitChaîne(nLireLigne,4,",")
		HAjoute(EXPRESS_Agence)
 
		SI fLitLigne(nIdFichierEXPRESS) = EOT ALORS 
			VarSorti = Vrai
		FIN
 
		// Doit-on sortir de la boucle
		SI VarSorti = Vrai ALORS SORTIR
 
	FIN	
 
	Info ("Insertion éffectuée avec succès !!!!")
	fFerme(nIdFichierEXPRESS)
SINON
	Info("Insertion non éffectuée, réverifiez le code")
	fFerme(nIdFichierEXPRESS)
FIN

Quelqu'un a une idée sur ce problème ?

1. Essaye le mode test et mets des points d'arrêt.
2. Y'a t'il un message d'erreur ?
3. Quelle version de Windev utilises tu ?

Tu peux simplifier ton code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sMonFichierEXPRESS, sContenu, sUneligne sont des chaines
i est un entier = 0
 
sMonFichierEXPRESS = "G:\Table_Agence.csv"
sContenu=fchargetexte(sMonFichierEXPRESS)
//nLireLigne = nIDFichier 
Pour tout sUneligne de sContenu separe par rc
	EXPRESS_Agence.IDAgence = ExtraitChaîne(sUneligne , 2, ",")
	EXPRESS_Agence.LibelleAgence = ExtraitChaîne(sUneligne ,3,",")
	EXPRESS_Agence.IDEXPRESS_Banque = ExtraitChaîne(sUneligne ,4,",")
	HAjoute(EXPRESS_Agence)
	i++
 FIN	
 
Info ("Traitement terminé !!!!", numeriqueversChaine(i) + " lignes enregistrées")

Essaye avec mon code (à peaufiner car fait à l'arrache)

11/06/2015, 10h51
_shuriken_

Bonjour frenchsting,

1. Essaye le mode test et mets des points d'arrêt.
2. Y'a t'il un message d'erreur ?

Idem pour 1, et pas de message d'erreur.

3. Quelle version de Windev utilises tu ? : La 19.

J'aimerai pouvoir effectuer ce test pour ensuite générer à partir de ma table un fichier texte.

J'ai adapté ton code, mais un problème avec la boucle.
11/06/2015, 11h28
serendib

Bien entendu, tu es sûr que le séparateur est une virgule.
Juste comme ça.

Citation:

Envoyé par serendib

Bien entendu, tu es sûr que le séparateur est une virgule.
Juste comme ça.

Oui, c'est bien une virgule.

J'ai supprimer la 1ère colonne qui contient les noms des champs et commencer la lecture à la 1ère ligne.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 sMonFichierEXPRESS, sContenu, sUneligne sont des chaînes i est un entier = 0 sMonFichierEXPRESS = "G:\Table_Agence.csv" sContenu=fChargeTexte(sMonFichierEXPRESS) //nLireLigne = nIDFichier POUR TOUT sUneligne DE sContenu separe par RC EXPRESS_Table_Agence.Code_agence = ExtraitChaîne(sUneligne , 1, ",") EXPRESS_Table_Agence.Libelle = ExtraitChaîne(sUneligne ,2,",") EXPRESS_Table_Agence.Code_banque = ExtraitChaîne(sUneligne ,3,",") EXPRESS_Table_Agence.Express_Version = ExtraitChaîne(sUneligne,4,",") HAjoute(EXPRESS_Table_Agence) i++ FIN Info ("Traitement terminé !!!!", NumériqueVersChaîne(i) + " lignes enregistrées")
Il me dit que :

Code:

"par" est un mot clé du WLangage, son utilisation dans ce cas est incorrect

J'ai fait 2 boutons : Charger_CSV et Creer_TXT.

12/06/2015, 13h14
frenchsting

J'ai fait une erreur en tapant mon code :

Code:

POUR TOUTe CHAINE sUneligne DE sContenu separe par RC

Cela devrait mieux fonctionner...
12/06/2015, 15h56
_shuriken_

1 pièce(s) jointe(s)

Citation:

Envoyé par frenchsting

J'ai fait une erreur en tapant mon code :

Code:

POUR TOUTe CHAINE sUneligne DE sContenu separe par RC

Cela devrait mieux fonctionner...

C'est pareil.

Capture jointe. Pièce jointe 180435
12/06/2015, 16h55
_shuriken_

ça marche maintenant :chin:

La véritable syntaxe était :

Code:

POUR TOUTE CHAÎNE sUneligne DE sContenu SEPAREE PAR RC

Merci frenchsting