Discussion :

[pierrot67]

Bonjour
j'ai un import de données dans un dbgrid et je voudrais meubler par un progressbar comment dois je procéder?

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
datamodule4.correction.first;
combobox2.Clear;
repeat
datamodule4.correction.Edit;
datamodule4.correctionannee.Value:=form3.dbedit1.Text;
combobox2.Items.add(datamodule4.correctionnom.value);
datamodule4.correction.post;
datamodule4.correction.next;
until
datamodule4.correction.Eof;
filtre:='Classe='''+ '5' + '*''';
datamodule4.correction.Filter:=filtre;
datamodule4.correction.Filtered:=true;
datamodule4.correction.First;
repeat
datamodule4.correction.Edit;
datamodule4.correctionniveau.value:='5ème';
datamodule4.correction.post;
datamodule4.correction.Next;
until
datamodule4.correction.Eof;

Merci d'avance.

[ShaiLeTroll]

j'ai un import de données dans un dbgrid

Cela commence mal !
Tu n'importe pas de données dans un DBGrid, car ce dernier ne contient pas de données, il ne fait que présenter les données d'un DataSet (via l'intermédiaire d'un DataSource)
Je ne vois dans ton code, aucun import, juste un parcours et un recodage !

tu pourrais indenter ton code
datamodule4, combobox2, Form3... un nommage plus pertinent pourrait être utile !
ton code est faux en plus ! tu ne vérifie pas le cas d'une table vide !

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
datamodule4.correction.first;
// Max := RecordCount
// Position := 0;
// Step := 1;
 
combobox2.Clear;
while not datamodule4.correction.Eof do
begin
  datamodule4.correction.Edit;
  datamodule4.correctionannee.Value:=form3.dbedit1.Text;
  combobox2.Items.add(datamodule4.correctionnom.value);
  datamodule4.correction.post;
  datamodule4.correction.next;
  // StepIt
end;
 
filtre:='Classe='''+ '5' + '*''';
datamodule4.correction.Filter:=filtre;
datamodule4.correction.Filtered:=true;
// Max := RecordCount
// Position := 0;
 
datamodule4.correction.First;
while not datamodule4.correction.Eof do
begin
  datamodule4.correction.Edit;
  datamodule4.correctionniveau.value:='5ème';
  datamodule4.correction.post;
  datamodule4.correction.Next;
  // StepIt
end;

Ensuite, tu pourrais proposer une tentative, combobox2 m'indique que tu as mis ce code problablement dans une Form, il te suffit d'ajouter une TProgressBar dans cette Form, utiliser RecorcCount pour définir Max, mettre Step à 1, et StepIt() après chaque Next !
Il n'y a aucune difficulté !
Je te laisse écrire le code (avec tous mes indices), nous t'aiderons à le corriger si nécessaire

[Cl@udius]

Salut

Dis, l'indentation d'un code n'est pas luxe et évite nombres d'erreurs pendant son écriture et facilite sa lecture.

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
with DataModule4.Correction do
begin
  First;
  ComboBox2.Clear;
  repeat
    Edit;
    CorrectionAnnee.Value := Form3.DBEdit1.Text;
    ComboBox2.Items.Add(CorrectionNom.Value);
    Post;
    Next;
  until Eof;
 
  Filtre := 'Classe='''+ '5' + '*''';
  Filter := Filtre;
  Filtered := True;
  First;
  repeat
    Edit;
    CorrectionNiveau.Value := '5ème';
    Post;
    Next;
  until Eof;
end;

N'est-pas mieux ?

Ensuite à ta place, au lieu d'inclure un ProgressBar dans ce traitement, j'utiliserais SQL pour faire tes mises à jours. Elle seront beaucoup efficaces et donc rapides. Donc plus besoin de ProgressBar.

@+ Claudius

[pierrot67]

Merci mille fois pour ton aide tout fonctionne à merveille!!
et je vais essayer d'améliorer mes codes à l'avenir.

Bonne journée.