Aide pour la vérification des doublons de codes-barres dans Delphi 7 avec MS Access

Version imprimable

Voir 40 message(s) de cette discussion en une page

05/12/2023, 10h05
LandGreen

Citation:

Envoyé par ShaiLeTroll

ADO ne supporte pas la répétition de paramètre donc il n'y a que le premier paramètre qui est bindé il faut patcher cela en utilisant les index

Je m'assure que je n'ai rien compris, car je suis junior.
Pourriez-vous me montrer la ligne de code que je dois corriger ?
Merci.

Citation:

Envoyé par ShaiLeTroll

ADO ne supporte pas la répétition de paramètre donc il n'y a que le premier paramètre qui est bindé il faut patcher cela en utilisant les index

Code:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
{ TADOQueryHelper }
 
//------------------------------------------------------------------------------
// See https://www.developpez.net/forums/d472002/environnements-developpement/delphi/bases-donnees/oracle-meme-sql-lance-via-bde-oda-dataset-different/
// See https://www.developpez.net/forums/d1643072/environnements-developpement/delphi/debuter/tadoquery-parameters/#post8997101
procedure TADOQueryHelper.Bind(const AParamName: string; const AParamValue: Variant; const AParamDateType: TDataType; const AParamDirection: TParameterDirection = pdInput);
var
  It: TCollectionItem;
  ParamObj: TParameter absolute It;
begin
   for It in Self.Parameters do
     if SameText(ParamObj.Name, AParamName) then
     begin
       ParamObj.Direction := AParamDirection;
       ParamObj.DataType := AParamDateType;
       ParamObj.Value := AParamValue;
     end;
end;
 
//------------------------------------------------------------------------------
procedure TADOQueryHelper.Bind(const AParamName, AParamValue: string; const AParamDirection: TParameterDirection = pdInput);
var
  It: TCollectionItem;
  ParamObj: TParameter absolute It;
begin
   for It in Self.Parameters do
     if SameText(ParamObj.Name, AParamName) then
     begin
       ParamObj.Direction := AParamDirection;
       ParamObj.DataType := ftWideString;
       ParamObj.Value := AParamValue;
     end;
end;
 
//------------------------------------------------------------------------------
procedure TADOQueryHelper.BindNull(const AParamName: string; const AParamDateType: TDataType; const AParamDirection: TParameterDirection = pdInput);
var
  It: TCollectionItem;
  ParamObj: TParameter absolute It;
begin
   for It in Self.Parameters do
     if SameText(ParamObj.Name, AParamName) then
     begin
       ParamObj.Direction := AParamDirection;
       ParamObj.DataType := AParamDateType;
       ParamObj.Value := Null;
     end;
end;
 
//------------------------------------------------------------------------------
procedure TADOQueryHelper.BindNullIfNotValue(const AParamName: string; const AParamDateType: TDataType; const AParamDirection: TParameterDirection = pdInput);
var
  It: TCollectionItem;
  ParamObj: TParameter absolute It;
begin
   for It in Self.Parameters do
     if SameText(ParamObj.Name, AParamName) then
       if (ParamObj.Value = Unassigned) or (ParamObj.DataType = ftUnknown) then
       begin
         ParamObj.Direction := AParamDirection;
         ParamObj.DataType := AParamDateType;
         ParamObj.Value := Null;
       end;
end;
 
//------------------------------------------------------------------------------
function TADOQueryHelper.ItSelf(): TADOQuery;
begin
  Result := Self;
end;

Code:

Query.Parameters.ParamByName('CodeBarres').Value := CodeBarres;

devient

Code:

Query.Bind('CodeBarres', CodeBarres);

Le Helper n'existe pas en D7, je te laisse donc faire un Assistant à l'ancienne genre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
class procedure TADOQueryAssistant.Bind(AQuery: TADOQuery; const AParamName: string; const AParamValue: Variant; const AParamDateType: TDataType; const AParamDirection: TParameterDirection = pdInput);
var
  i: Integer;
  ParamObj: TParameter;
begin
   for I := in AQuery.Parameters.Count - 1 do
   begin
     ParamObj := AQuery.Parameters[I];
     if SameText(ParamObj.Name, AParamName) then
     begin
       ParamObj.Direction := AParamDirection;
       ParamObj.DataType := AParamDateType;
       ParamObj.Value := AParamValue;
     end;
  end;
end;

Code:

TADOQueryAssistant.Bind(Query, 'CodeBarres', CodeBarres);

ou je reprend ce code ? dans quel evenement stp ?

Euh, j'ai déjà tout fourni et cela semblait évident mais bon je vais finir le travail ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
function CodeBarresExiste(ADOConnection: TADOConnection; const CodeBarres: string): Boolean;
var
  Query: TADOQuery;
begin
  Result := False;
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := ADOConnection;
    ADOConnection.Open; // Très curieux de l'avoir ici, la connexion devrait être ouvert avant
 
    Query.SQL.Text := 'SELECT COUNT(*) AS Cnt FROM PRODUITS ' +
                      'WHERE C_B1 = :CodeBarres OR C_B2 = :CodeBarres OR ' +
                      'C_B3 = :CodeBarres OR C_B4 = :CodeBarres OR ' +
                      'C_B5 = :CodeBarres OR C_B6 = :CodeBarres OR ' +
                      'C_B7 = :CodeBarres OR C_B = :CodeBarres';
 
    TADOQueryAssistant.Bind(Query, 'CodeBarres', CodeBarres);  // remplace Query.Parameters.ParamByName('CodeBarres').Value := CodeBarres;
 
    Query.Open(); // Indispensable APRES le Bind !
    Result := Query.FieldByName('Cnt').AsInteger > 0;
  finally
    Query.Free;
  end;
end;

05/12/2023, 10h19
SergioMaster
La remarque de ShaiLeTroll est juste, ça me restait dans la tête sans mettre le doigt dessus, une des raisons pour laquelle je ne suis pas fan des composants ADO !

Dans votre cas précis, puisqu'il n'y a qu'un seul paramètre
Ceci devrait suffire à la place de Query.Parameters.ParamByName('CodeBarres').Value := CodeBarres;
Code:

1 2 for i:=0 to AQuery.Parameters.Count - 1 do AQuery.Parameters[I].Value:=CodeBarres;
Ceci ne serait certes pas arrivé si la suggestion de Bardoire37 était appliquée
05/12/2023, 10h20
sergio_is_back

Citation:

Envoyé par LandGreen

Je m'assure que je n'ai rien compris, car je suis junior.
Pourriez-vous me montrer la ligne de code que je dois corriger ?
Merci.

Ce que te dit ShaiLeTroll c'est qu'avec une TADOQuery, tu ne peux pas avoir plusieurs fois le même paramètre "CodeBarre" dans ta requête.

Lorsque tu affectes la valeur avec

Code:

Query.Parameters.ParamByName('CodeBarres').Value := CodeBarres;

, on dit aussi que l'on "Bind" le paramètre (on lie le nom à un type et une valeur)

Seule la première occurrence sera affectée, les autres seront laissés à un état indéterminé
Il te donne une méthode pour contourner ce problème

Ensuite tu peux aussi dans requête mettre les paramètres style Codebarre1, Codebarre2, CodeBarre3, etc... et tous leur affecter la même valeur, ça fonctionnera, mais c'est moins élégant

Citation:

Envoyé par sergio_is_back

c'est qu'avec une TADOQuery, tu ne peux pas avoir plusieurs fois le même paramètre "CodeBarre" dans ta requête.

On peut avoir plusieurs fois le même paramètre mais faut savoir le gérer en propageant la valeur à chaque paramètre ... mais vu le faible niveau mieux vaut opter pour un code simple non réutilisable et clé en main ! :aie:

Oublions tout le reste, voici la nouvelle fonction auto-suffisante :

Code:

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
function CodeBarresExiste(ADOConnection: TADOConnection; const CodeBarres: string): Boolean;
var
  Query: TADOQuery;
  I: Integer;
begin
  Result := False;
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := ADOConnection;
    ADOConnection.Open; // Très curieux de l'avoir ici, la connexion devrait être ouvert avant
 
    Query.SQL.Text := 
      ' SELECT COUNT(*) AS Cnt ' + 
      ' FROM PRODUITS ' +
      ' WHERE C_B1 = :CodeBarres OR C_B2 = :CodeBarres ' +
      '   OR C_B3 = :CodeBarres OR C_B4 = :CodeBarres ' +
      '   OR C_B5 = :CodeBarres OR C_B6 = :CodeBarres ' +
      '   OR C_B7 = :CodeBarres OR C_B = :CodeBarres '; // C_B ou C_B8 ? cela change selon les versions de fonction, je vous laisse ajuster cela
 
    for i := 0 to Query.Parameters.Count - 1 do
      Query.Parameters[I].Value := CodeBarres;
 
    Query.Open(); // Indispensable APRES le Bind !
    Result := Query.FieldByName('Cnt').AsInteger > 0;
  finally
    Query.Free;
  end;
end;

1 pièce(s) jointe(s)

Le Helper n'existe pas en D7, je te laisse donc faire un Assistant à l'ancienne genre
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 class procedure TADOQueryAssistant.Bind(AQuery: TADOQuery; const AParamName: string; const AParamValue: Variant; const AParamDateType: TDataType; const AParamDirection: TParameterDirection = pdInput); var i: Integer; ParamObj: TParameter; begin for I := in AQuery.Parameters.Count - 1 do begin ParamObj := AQuery.Parameters[I]; if SameText(ParamObj.Name, AParamName) then begin ParamObj.Direction := AParamDirection; ParamObj.DataType := AParamDateType; ParamObj.Value := AParamValue; end; end; end;
Cher ShaiLeTroll ShaiLeTroll,

Je tiens tout d'abord à exprimer ma gratitude pour votre précieuse assistance précédente.

En pièce jointe, vous trouverez le code en question. Malheureusement, il génère une erreur que je n'arrive pas à résoudre malgré mes efforts.
J'apprécierais énormément si vous pouviez jeter un coup d'œil et me fournir des conseils ou des suggestions pour le corriger.

Votre expertise a été d'une grande aide par le passé, et je suis convaincu que vos conseils seront tout aussi bénéfiques cette fois-ci.

Je vous remercie d'avance pour votre précieuse assistance.

Cordialement,

Citation:
Envoyé par ShaiLeTroll
On peut avoir plusieurs fois le même paramètre mais faut savoir le gérer en propageant la valeur à chaque paramètre ... mais vu le faible niveau mieux vaut opter pour un code simple non réutilisable et clé en main ! :aie:

Oublions tout le reste, voici la nouvelle fonction auto-suffisante :
Code:

1 2 3 4 5 6 function CodeBarresExiste(ADOConnection: TADOConnection; const CodeBarres: string): Boolean; for i := 0 to Query.Parameters.Count - 1 do Query.Parameters[I].Value := CodeBarres; ;
Cher ShaiLeTroll,

Je voulais prendre un moment pour vous exprimer ma profonde gratitude pour votre assistance précieuse. Votre code a résolu le problème que je rencontrais, et tout fonctionne parfaitement maintenant !

Je suis vraiment reconnaissant de votre expertise et de votre générosité à partager vos connaissances. Votre contribution a été extrêmement utile, et je ne pourrais pas être plus satisfait du résultat.

Merci encore pour votre temps et votre soutien. Si jamais vous avez besoin d'aide à l'avenir, n'hésitez pas à me le faire savoir. Je suis là pour vous.

Merci aussi à sergio_is_back et à SergioMaster Votre soutien a été inestimable, et je suis extrêmement reconnaissant d'avoir pu bénéficier de votre expertise. Si jamais je peux vous rendre la pareille à l'avenir, n'hésitez pas à me le faire savoir.

05/12/2023, 11h47
ShaiLeTroll
Juste pour le coté educatif même si cela ne sert plus à rien

Code:

for I := in AQuery.Parameters.Count - 1 do

oui c'était for itérator et j'ai juste pas tout corrigé en D7, j'ai oublié de finir la transformation donnant un code faux dans toutes versions.

D7

Code:

for I := 0 to AQuery.Parameters.Count - 1 do

D10

Code:

for It in AQuery.Parameters do

Sur une TStringList, c'est plus compréhensible que sur un TCollection

D7
Code:

1 2 3 4 5 6 7 8 9 10 var I: Integer; S: string; begin for I := 0 to StringList.Count - 1 do begin S := StringList.Strings[I]; ShowMessage(S); end; end;
Code:

1 2 3 4 5 6 var I: Integer; begin for I := 0 to StringList.Count - 1 do ShowMessage(StringList.Strings[I]); end;
En D10
Code:

1 2 3 4 5 6 var S: string; begin for S in StringList do ShowMessage(S); end;
05/12/2023, 11h48
ShaiLeTroll
Citation:
Envoyé par LandGreen

Citation:

Envoyé par ShaiLeTroll

On peut avoir plusieurs fois le même paramètre mais faut savoir le gérer en propageant la valeur à chaque paramètre ... mais vu le faible niveau mieux vaut opter pour un code simple non réutilisable et clé en main ! :aie:

Oublions tout le reste, voici la nouvelle fonction auto-suffisante :

Code:

1 2 3 4 5 function CodeBarresExiste(ADOConnection: TADOConnection; const CodeBarres: string): Boolean; for i := 0 to Query.Parameters.Count - 1 do Query.Parameters[I].Value := CodeBarres;

Cher ShaiLeTroll,

Votre code a résolu le problème que je rencontrais, et tout fonctionne parfaitement maintenant !
Pense au bouton :resolu: !

Citation:

Envoyé par LandGreen

Le Helper n'existe pas en D7, je te laisse donc faire un Assistant à l'ancienne genre

Juste pour le coté éducatif aussi :

C'est vrai que les class helpers n'existent pas en Delphi 7 mais on peut toujours s'en sortir avec un hacking de la classe TADOQuery, exemple :

Code:

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
 
unit MyADOQuery;
 
interface
 
uses
  Variants, Classes, SysUtils, DB, ADODB;
 
type TADOQuery = class(ADODB.TADOQuery)
    public
        procedure Bind(const AParamName: string; const AParamValue: Variant;
            const AParamDateType: TDataType; const AParamDirection: TParameterDirection = pdInput);
end;
 
implementation
 
procedure TADOQuery.Bind(const AParamName: string; const AParamValue: Variant;
  const AParamDateType: TDataType; const AParamDirection: TParameterDirection);
var
    i: Integer;
    ParamObj: TParameter;
begin
   for I := 0 to Self.Parameters.Count - 1 do
   begin
     ParamObj := Self.Parameters[I];
     if SameText(ParamObj.Name, AParamName) then
     begin
       ParamObj.Direction := AParamDirection;
       ParamObj.DataType := AParamDateType;
       ParamObj.Value := AParamValue;
     end;
  end;
end;

Puis on l'utilise comme ça :

Code:

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
 
 
implementation
 
{$R *.dfm}
 
uses MyADOQuery; // A mettre dans l'implémentation de chaque unité où l'on veut l'utiliser
 
{
 
        ......... Autre code...............
 
}
 
function CodeBarresExiste(ADOConnection: TADOConnection; const CodeBarres: string): Boolean;
var
  Query: TADOQuery;
  I: Integer;
begin
  Result := False;
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := ADOConnection;
    ADOConnection.Open; // Très curieux de l'avoir ici, la connexion devrait être ouvert avant
 
    Query.SQL.Text :=
      ' SELECT COUNT(*) AS Cnt ' +
      ' FROM PRODUITS ' +
      ' WHERE C_B1 = :CodeBarres OR C_B2 = :CodeBarres ' +
      '   OR C_B3 = :CodeBarres OR C_B4 = :CodeBarres ' +
      '   OR C_B5 = :CodeBarres OR C_B6 = :CodeBarres ' +
      '   OR C_B7 = :CodeBarres OR C_B = :CodeBarres '; // C_B ou C_B8 ? cela change selon les versions de fonction, je vous laisse ajuster cela
 
    Query.Bind('CodeBarres',CodeBarres,ftString,pdInput); // On fait le BIND maintenant
 
    Query.Open(); // Indispensable APRES le Bind !
    Result := Query.FieldByName('Cnt').AsInteger > 0;
  finally
    Query.Free;
  end;
end;

Voir 40 message(s) de cette discussion en une page