actualiser automatique le code dans une table

Question

comment actualiser le numero d'ordre dans une table selon l'ordre croissant de la date et l'heure
voila ce que j'ai ecrit mais ça ne marche pas 

procedure TSTOCK.actualiserClick(Sender: TObject);
var    i:integer;
begin


        Query1.Close;
        Query1.SQL.Clear;
        Query1.SQL.Add('SELECT num,code,date, heure from    stock   ORDER BY DATE,HEURE');
        Query1.ExecSQL;
        query1.Active:=true;


   for i=1 to query1.recordcount do
      begin
        stock.Filtered:=false;
        stock.Filter:='code='+quotedstr(query1.FieldValues['code']);
        stock.Filtered:=true;
        
        stock.edit;
       stock.fieldvalues['num']:=inttostr(i);
        stock.post;

        query1.next;
end

cs_Delphiprog · Answer

Je t'ai donné quelques pistes par MP mais précise "mais ça ne marche pas".

Dis-toi bien que ça n'a jamais marché et que ça ne marchera jamais. Au mieux, ça fonctionnera ! 

May Delphi be with you !
<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
http://www.afipa.net/

cs_silla · Answer

après des modifications faites, dès que je click sur le bouton actualiser la première donnée est modifiée à la valeur "0" mais après le message suivant s'affiche "edition impossible , car un autre utilisateur à modifié l'enregistrement"

cs_silla · Answer

après des modifications faites, dès que je click sur le bouton actualiser la première donnée est modifiée à la valeur "0" mais après le message suivant s'affiche 
"edition impossible , car un autre utilisateur à modifié l'enregistrement"

procedure TSTOCK.actualiserClick(Sender: TObject);
var    i:integer;
begin


        Query1.Close;
        Query1.SQL.Clear;
        Query1.SQL.Add('SELECT num,id,code_stock,date, heure from    stock   ORDER BY DATE,HEURE');
       // Query1.ExecSQL;
        query1.Active:=true;
         query1.first;


   for i:=0 to query1.recordcount-1 do
      begin
        table1.Filtered:=false;
        table1.Filter:='id='+quotedstr(query1.FieldValues['id']);
        table1.Filtered:=true;


        table1.edit;
        table1.fieldvalues['code_stock']:=inttostr(i);
        table1.post;
        query1.next;
      end ;

merci

Actualiser automatique le code dans une table

3 réponses

Votre réponse

Discussions similaires