Discussion :

[fr832]

Bonjour à tous,

Par le biais de champs de saisie je remplie une table.
Quel code je dois faire pour que les données de cette table se range dans mon fichier?

Quand il y a plusieurs champs on fait ecranversfichier(), mais pour une table comment doit on faire?

Par avance merci pour votre aide
amitiés

[mnw.william]

Tu devrais déclarer un variable qui te permet de parcourir la table et au fur et à mesure remplit les champs dans ta table de ta BD. Essaye ça mais par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
//déclaration de variable
i est un entier
POUR i=1 A TableOccurence(Nom_Table)
     TableBD.NomChamps = Nom_Table.Col1[i]
     TableBD.NomChamps = Nom_Table.Col2[i]
     TableBD.NomChamps = Nom_Table.Col3[i]
     TableBD.NomChamps = Nom_Table.Col4[i]
     ...
     HAjoute(TableBD)
FIN
info("Ajout effectué.")

Donc ca donne ca

//déclaration de variable
i est un entier
POUR i=1 A TableOccurence(Table_Equipement)
Equipement.Nom=Table_equipement.COLNom[i]
Equipement.Prenom=Table_equipement.COLPrenom[i]
Equipement.statut=Table_equipement.COLStatut[i]
...
HAjoute(Equipement)
FIN
//confirmation de l'ajout
info("Ajout effectué.")

[Hemgé]

Bonsoir,

Il n'est pas obligatoire de renseigner le nom de la table ce qui simplifie l'écriture (et surtout la relecture) des lignes de code.

On peut donc écrire :

Code :

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

Equipement.Nom=COLNom[i]

plutôt que :

Code :

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

Equipement.Nom=Table_equipement.COLNom[i]

Note : évidemment, dans ce cas, il faut impérativement s'assurer qu'il n'y a pas deux colonnes de même nom dans des tables différentes de la même fenêtre.

On peut aussi faire un glisser - coller de une ou plusieurs rubrique(s) à partir de l'explorateur de projet, mais alors on aura la forme proposée par mnw.william.

Si cela peut aider,

Hemgé

[fr832]

Bonsoir et merci pour votre aide

voici donc mon code

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
36
37
38
39
40
//déclaration de variable
i est un entier
POUR i=1 A TableOccurrence(TABLE_POINTAGE_CHANTIER)
	POINTAGE_CHANTIER.Nom=COL_Nom[i]
	POINTAGE_CHANTIER.Prenom=COL_Prenom[i]
	POINTAGE_CHANTIER.Statut=COL_Statut[i]
	POINTAGE_CHANTIER.Vehicule_aller=COL_Vehicule_aller[i]
	POINTAGE_CHANTIER.vehicule_retour=COL_Vehicule_retour[i]
	POINTAGE_CHANTIER.GD=COL_GD[i]
	POINTAGE_CHANTIER.RE=COL_RE[i]
	POINTAGE_CHANTIER.PA=COL_PA[i]
	POINTAGE_CHANTIER.PO=COL_PO[i]
	POINTAGE_CHANTIER.PR=COL_PR[i]
	POINTAGE_CHANTIER.Heures_de_travail=COL_Heures_de_travail[i]
	POINTAGE_CHANTIER.N_Parc=COL_N_Parc[i]
	POINTAGE_CHANTIER.Type=COL_Type[i]
	POINTAGE_CHANTIER.heures_de_marche=COL_Heures_de_marche[i]
	POINTAGE_CHANTIER.Heures_attente=COL_Heures_attente[i]
	POINTAGE_CHANTIER.Panne=COL_Panne[i]
	POINTAGE_CHANTIER.Compteur_ou_kms=COL_Compteur_ou_kms[i]
	POINTAGE_CHANTIER.FOD=COL_FOD[i]
	POINTAGE_CHANTIER.ventilation_A=COL_Ventilation_A[i]
	POINTAGE_CHANTIER.ventilation_B=COL_Ventilation_B[i]
	POINTAGE_CHANTIER.ventilation_c=COL_Ventilation_c[i]
	POINTAGE_CHANTIER.ventilation_D=COL_Ventilation_D[i]
	POINTAGE_CHANTIER.ventilation_E=COL_Ventilation_E[i]
	POINTAGE_CHANTIER.ventilation_F=COL_Ventilation_F[i]
 
 
 
 
	HAjoute(POINTAGE_CHANTIER)
FIN
//confirmation de l'ajout
 
 
Info("L'ajout s'est bien déroulé, on continue la saisie de l'équipement. . .")
DélaiAvantFermeture(1000)
 
FEN_Saisie_Rapport..Plan=3

encore merci amitiés