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.
Quelqu'un a une idée sur ce problème ?
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 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
Partager