Discussion :

[wiski08000]

salut a tous

je travaille avec delphi 10 et sql server

MA REQUETTE FONCTIONNAIS PARFAITEMEMENT AVANT QUE JE TRANSFORMAIS composant BDE TTABLE EN composant ADOTABE

comment rendre la ligne qui copmorte FINDKEY avec le fonction LOCATE "remplacer FINDKEY par LOCATE"

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
41
42
43
44
45
46
47
48
49
50
51
52

Case ComboWilaya.itemindex of
      0:Wilaya:='09';
      1:Wilaya:='16';
      2:Wilaya:='35';
      3:Wilaya:='42';
      End;

 if Ajouter then      ////nouveau
    begin
    mdd.ADOTDernierOV.Close;
    mdd.ADOTDernierOV.Open;
   If mdd.ADOTDernierOV.FindKey([wilaya]) then   ///// cette ligne a transformé avec locate  ///////////////////////////////////////
  
      begin
       DernierOV:=mdd.ADOTDernierOV.FieldByName('DernierOVAide').AsString;
       If DernierOV='' then
        begin
        OVAjouter:= '0001'+'/'+ Wilaya +'/'+annee ;
        edit11.Text:=OVAjouter;
        mdd.ADOTDernierOV.Insert;
         mdd.ADOTDernierOV.FieldByName('DernierOVAide').AsString:=edit11.Text;
          mdd.ADOTDernierOV.FieldByName('code').AsString:=wilaya;
         // mdd.TDernierOV.Post;


        end
         Else
        Begin
         sequentiel:=Copy(DernierOV,1,4);
         sequentiel := InttoStr(StrToInt(sequentiel)+1);
        While (length(sequentiel)<4) Do
          sequentiel:='0'+sequentiel;
          OVAjouter:= sequentiel+'/'+Wilaya+'/'+Annee;
          edit11.Text:=OVAjouter;


         End;

       End
    Else
     Begin
        OVAjouter:= '0001'+'/'+ Wilaya +'/'+annee;
        edit11.Text:=OVAjouter;
       mdd.ADOTDernierOV.Insert;
         mdd.ADOTDernierOV.FieldByName('DernierOVAide').AsString:=edit11.Text;
          mdd.ADOTDernierOV.FieldByName('code').AsString:=wilaya;
        //  mdd.TDernierOV.Post;


     End;

merci

[pprem]

Les composants ADO n'ont pas les mêmes propriétés et méthodes que les composants du BDE.

Pourquoi ne pas plutôt être passé à FireDAC qui lui aurait fonctionné globalement sans difficulté ?
Quelle version de Delphi est utilisée ?

[SergioMaster]

Bonjour,

Quelle version de Delphi est utilisée ?

Delphi 10, mais c'est vrai que c'est loin d'être clair puisque cela couvre Berlin à Rio en passant par Tokyo on a presque fait le tour du monde De plus la "saveur" CE, Pro, Entreprise ou Architecte ferait qu'il y aura des contraintes de fonctionnalités à ma souvenance SQL server n'est accessible avec Firedac qu'à partir de la version entreprise. Ce qui explique peut-être le choix ADO

Pourquoi ne pas plutôt être passé à FireDAC qui lui aurait fonctionné globalement sans difficulté ?

Ou, selon budget et version, à ZEOSDBO. D'une manière je suis contre ADO mais ça c'est mon choix

Pour en revenir à votre code ma question serait plutôt pourquoi un Locate une requête paramétrée SELECT * FROM TABLE WHERE WILAYA=:W serait beaucoup plus rapide et efficace et moins consommatrice de données, vous rendez vous compte qu'à chaque fois vous récupérez toute la table avant de pouvoir faire votre Locate Ce qui était valable pour BDE et Paradox ne l'est certainement pas pour un SGBD ! AMHA c'est tout le traitement qui est à revoir.

Pour en revenir à ADO et les fonctions Findkey (non implémentée) et Locate

Findkey est remplacée par Seek mais plusieurs conditions doivent être réalisées pour que cela fonctionne (CursorLocation = clUseServer, TableDirect = True et un nom d'index)
Locate a une syntaxe à respecter Locate('WILAYA',wilaya,[loPartialKey]);Mais,encore une fois, une requête sera beaucoup plus rapide

[wiski08000]

Bonjour,

Delphi 10, mais c'est vrai que c'est loin d'être clair puisque cela couvre Berlin à Rio en passant par Tokyo on a presque fait le tour du monde De plus la "saveur" CE, Pro, Entreprise ou Architecte ferait qu'il y aura des contraintes de fonctionnalités à ma souvenance SQL server n'est accessible avec Firedac qu'à partir de la version entreprise. Ce qui explique peut-être le choix ADO


Ou, selon budget et version, à ZEOSDBO. D'une manière je suis contre ADO mais ça c'est mon choix

Pour en revenir à votre code ma question serait plutôt pourquoi un Locate une requête paramétrée SELECT * FROM TABLE WHERE WILAYA=:W serait beaucoup plus rapide et efficace et moins consommatrice de données, vous rendez vous compte qu'à chaque fois vous récupérez toute la table avant de pouvoir faire votre Locate Ce qui était valable pour BDE et Paradox ne l'est certainement pas pour un SGBD ! AMHA c'est tout le traitement qui est à revoir.

Pour en revenir à ADO et les fonctions Findkey (non implémentée) et Locate

Findkey est remplacée par Seek mais plusieurs conditions doivent être réalisées pour que cela fonctionne (CursorLocation = clUseServer, TableDirect = True et un nom d'index)
Locate a une syntaxe à respecter Locate('WILAYA',wilaya,[loPartialKey]);Mais,encore une fois, une requête sera beaucoup plus rapide

merci pour votre aide