Discussion :

[marcossan]

Bonjour tout le monde!
Voila je rencontre un petit soucis en fait voilà j'ai un petit soucis j'aimerai passer le contenu d'une table memoire d'une page x a une autre table memoire d'une page y sans pour autant enregistrer les données dans une base de donnée intermédiaire qui ne me servira pas et prendra au fil du temps de l'espace...

En gros dupliquer un tableau1 d'une page x vers un tableau2 page y sans ecriture en base.

Cordialement.
Marc

[Hemgé]

Bonjour,

Le principe est simple :

Gérer une boucle de lecture de la table 1, de la première ligne de la page x (connue ou à déterminer par programme) à la dernière ligne de cette page.

Après la lecture de chaque ligne, écriture de cette ligne dans la table 2, à partir de la première ligne de la page y (connue ou à déterminer ...), en gardant le même incrément de ligne à partir de l'origine de la page.

Les précautions :
- vous assurer de la cohérence des types de colonne ;
- si les types ne sont pas identiques, il vaut mieux gérer la conversion, même si une conversion implicite est possible dans un certain nombre de cas ;
- gérer le nombre de lignes dont vous disposez en table 2 pour recevoir les données et éventuellement passer en insertion de lignes ou, si vous recopiez en fin de table, en ajout de lignes.

Les questions générales :
- comment connaissez-vous les indices de départ et de fin ?
- vous parlez de "pages" mais leur nombre de lignes dépend de votre situation et peut différer entre la table 1 et la table 2.
- accessoirement, les noms de colonne sont-ils être identiques , ce qui pourrait simplifier la programmation ?

Voilà de quoi vous permettre de commencer à travailler ...

Bon courage
Hemgé

[marcossan]

voila ce que j'ai produit:

Code :

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

1
2
3
4
5
6
POUR TOUTE LIGNE DE Intervention.TABLE_SansNom1
 
	TableAjouteLigne(exe_enregistrement.TABLE_enregistrement_intervention, Intervention.TABLE_intervention_ajoute.COL_SansNom2, Intervention.TABLE_intervention_ajoute.COL_SansNom3, Intervention.TABLE_intervention_ajoute.COL_SansNom4, Intervention.TABLE_intervention_ajoute.COL_SansNom5, Intervention.TABLE_intervention_ajoute.COL_SansNom6, Intervention.TABLE_intervention_ajoute.COL_SansNom7)
FIN
 
Ouvre(exe_enregistrement)

bien sur ça ne fonctionne pas d'une page sur l'autre mais sur la même page oui

[Hemgé]

Vous devriez prendre des noms plus courts, ce serait plus simple à (re)lire. Non ?
Col1, Colonne1, Col_SN1 etc...

Pages ? Vous travaillez en Webdev ? Quelle version ?

Si je comprends bien, vous voulez copier de la page / fenêtre courante vers la page / fenêtre "exe_enregistrement".
Il faut qu'elle soit ouverte avant de tenter d'y écrire quelque chose.

Code :

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

Ouvre(exe_enregistrement)

devrait se trouver avant la boucle POUR TOUTE LIGNE de.

[law56100]

Bonjour, Ma solution n'est pas forcement celle que tu veux. mais mon point vu :

1) tu définies une structure

Code :

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

1
2
3
4
5
6
7
8
 
str_Table_interv est une structure
      sCol1 est une chaine  
      sCol2 est une date  
      sCol3 est un entier  
      sColn est une chaine  
fin
tab_ListeTable est un tableau de 0 de str_Table_interv

2) tu remplies ton tableau

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
nNbreLigne est un entier=tableoccurence(Table)
nIndice est un entier
nLigne est un entier
 
pour nIndice = 1 a nNbreLigne 
        nLigne=tableauajouteligne(tab_ListeTable)
        tab_ListeTable[nLigne]:sCol1=table.col1[nIndice]
        tab_ListeTable[nLigne]:sCol2=table.col2[nIndice]
        tab_ListeTable[nLigne]:sColn=table.coln[nIndice]
fin

3) tu passes ton tableau à l'autre fenêtre dans l'instruction :

Code :

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

ouvre(y,tab_ListeTable)

4) et à l'init de l'autre fenêtre tu parcours ton tableau de structure pour remplir ta table.

Si tu as entre 10 a 100 informations dans ta table tu n'auras pas de temps de chargement. après si tu as 1000 à 10 000 enregistrement oui la tu auras un peu de temps de chargement et encore ça ne sera pas long quelques seconde.

[DelphiManiac]

Vous devriez prendre des noms plus courts, ce serait plus simple à (re)lire. Non ?
Col1, Colonne1, Col_SN1 etc...

Pages ? Vous travaillez en Webdev ? Quelle version ?

Si je comprends bien, vous voulez copier de la page / fenêtre courante vers la page / fenêtre "exe_enregistrement".
Il faut qu'elle soit ouverte avant de tenter d'y écrire quelque chose.

Code :

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

Ouvre(exe_enregistrement)

devrait se trouver avant la boucle POUR TOUTE LIGNE de.

La fonction Ouvre n'est à priori pas disponible en Webdev, donc je soupçonne que c'est bien du Windev et la fonction Ouvre ouvre une fenêtre en modal, le code après l'exécution de Ouvre ne sera exécuté qu'après la fermeture de la fenêtre.

[Hemgé]

... la fonction Ouvre ouvre une fenêtre en modal, le code après l'exécution de Ouvre ne sera exécuté qu'après la fermeture de la fenêtre.

Si j'ai bien lu,

Code :

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

TableAjouteLigne(exe_enregistrement.TABLE_enregistrement_intervention, ....

C'est dans cette fenêtre exe_enregistrement que la TABLE_enregistrement_intervention se trouve.
C'est dans la fenêtre que cela doit se passer.
Ni avant son ouverture, ni après sa fermeture.
Donc, sauf erreur de ma part, il faut l'ouvrir.

[DelphiManiac]

Si j'ai bien lu,

Code :

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

TableAjouteLigne(exe_enregistrement.TABLE_enregistrement_intervention, ....

C'est dans cette fenêtre exe_enregistrement que la TABLE_enregistrement_intervention se trouve.
C'est dans la fenêtre que cela doit se passer.
Ni avant son ouverture, ni après sa fermeture.
Donc, sauf erreur de ma part, il faut l'ouvrir.

Je n'ai pas dit qu'il ne fallait pas l'ouvrir, mais s'il l'ouvre avec la fonction Ouvre et que le code de remplissage est après la fonction Ouvre, le code de remplissage ne sera jamais exécuté. La fonction Ouvre ouvre une fenêtre en modal.

[Hemgé]

Vous avez raison, DelphiManiac
J'ai raté le "modal" dans votre intervention. Désolé.

Donc, pour Marcossan, si c'est encore d'actualité pour lui :

- ouvrir sa fenêtre exe_enregistrement ;
- en utilisant une instruction d'ouverture non modale : MDIouvre, OuvreFille ou OuvreSoeur ;
- puis remplir sa table.