Discussion :

[djouahra.karim1]

Bonjour TLM

je fait des traitements sur un DBGrid, en recuperant des données de mon DBGRid je veux faire des insertions de ses données dans une table (elle est vide),

quand je boucle sur cette table avec : While not matable.eof, durant l'exécution le programme ne rentre pas dans la boucle, je crois que puisqu'elle est vide je ne peut pas entrée pour faire des insertions,

y'a t'il une solution pour cela ???

PS : j'ai fait un append au début du programme

[naw]

salam
comment tu rempli le dbgrid

[djouahra.karim1]

je rempli mon DBGrid a l'aide d'un requête SQL

[djouahra.karim1]

je rempli mon DBGrid a l'aide d'un requête SQL

[Zatoobux]

Salut

Si je comprends bien, il me semble que tu devrais faire ta boucle sur la requete de remplisage du grid. A chaque enregistrement de la requete tu inseres les donnees dans la table.

@+

[naw]

salam
donc il faut faire while query.eof

cad parcourir le query un par un et rempilr la table vide


while not query.eof do
begin
table.append

tablechamp.value := querychamp.value;
.
.
.
table.post
query.next
end

[djouahra.karim1]

oui zatoubux c'est bien ça,

je fait des requêtes de count avec des données de mon DBGrid pour recuperer des valeurs, puis j'insère ses valeurs dans un table,

[djouahra.karim1]

voici 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
 
[size=7]While not (dbgrid1.DataSource.DataSet.Eof) and (li <= dbgrid1.DataSource.DataSet.FieldCount) do
 begin
 
        query2.Close  ;
        query2.sql.clear;
        val := DBGrid1.DataSource.DataSet.Fields[0].AsString;
        val1 := query2.Sql.add ('select count(*) from EXPL Where         EXEQ=(:avion) and EXNAT = 1 ' );
        val2 := query2.Sql.add ('select count(*) from EXPL Where EXEQ=(:avion) and EXNAT = 3 ' );
        query2.ParamByName('avion').AsString := val;
        datamodule2.TMOUVAV.append;
        datamodule2.TMOUVAVAVIONS.text := val;
        datamodule2.TMOUVAVINTERNATIONAL.value := val1;
        datamodule2.TMOUVAVdomestique.value :=  val2;
        datamodule2.TMOUVAV.post;
        datamodule2.TMOUVAV.next;
        dbgrid1.DataSource.DataSet.Next;
 
end ;[/size]

maintenant je peut inserer des données dans ma table , mais le nouveau problème et que je boucle trois fois (testé pas a pas) mais je trouve dans ma table 4 enregistrement !!!

[naw]

salam

essaye d'enlever

Code :

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

datamodule2.TMOUVAV.next;

[djouahra.karim1]

même sans le ".next" j'ai toujours un enregistrement en plus dans ma table malgrè que la boucle tourne trois fois et dans ma table je trouve un enregistrement en répetition !

et je ne sais pas pourquoi ???

[djouahra.karim1]

même sans le ".next" j'ai toujours un enregistrement en plus dans ma table malgrè que la boucle tourne trois fois et dans ma table je trouve un enregistrement en répetition !

et je ne sais pas pourquoi ???

je vais préciser que dans mon DBGrid et dans la colonne que je travaille, il y'a le nom de la colonne et trois enregistrement en tout

[Zatoobux]

Salut,

rien à voir, mais par hasard... val1 vaut toujours 0 et val2 vaut toujours 1!

@+

[djouahra.karim1]

oui c'est vrai

[naw]

salam

tu a enlever le append du debut de programme??

[Zatoobux]

oui c'est vrai

et c'est normal :

[djouahra.karim1]

je crois que c'est bien normal en vue l'exécution du prgme pas a pas, c'est un bon résultat

le problème et pourquoi ma boucle tourne trois fois et dans ma table MOUVAV il y'a 4 enregistrements !!!

[djouahra.karim1]

je crois que c'est bien normal en vue l'exécution du prgme pas a pas, c'est un bon résultat

le problème et pourquoi ma boucle tourne trois fois et dans ma table MOUVAV il y'a 4 enregistrements alors que ma table été vide au début !!!