Discussion :

[JMF]

Bonjour,

j'ai une fonction pour enregistrer un mouvement de marchandise dans une table. On peut passer en paramètre un TQuery qui sera alors utilisé pour effectuer la requete ou bien Nil et dans ce cas un TQuery par défaut sera utilisé.

Nous sommes en train de passer certaines applications en DBExpress mais comme cela se fait progressivement, il faudrait pouvoir faire cohabiter les 2 fonctionnements.

Les classes TQuery et TSQLQuery n'ayant pas le même ancêtre, je n'ai pas pu utiliser cette technique.

J'ai donc pensé écrire une version surchargée de la méthode mais lorsqu'on passe un Nil, il y a ambiguité.
Il y a-til un moyen de dire qu'en cas d'ambiguité, il faut utiliser telle version. Une sorte de version par défaut.

N'ayant réussi à trouver un moyen de faire cela, j'ai pensé mettre mon argument en Variant. Ainsi je teste le type de la classe de l'argument et j'agit en conséquence. Seulement un Variant ne semble pas pouvoir avoir Nil pour valeur.

Là je suis à court d'idée.
Quelqu'un aurait-il une solution ?

Merci beaucoup.

[rbag]

Salut,

si le problème est juste de définir une fonction par défaut en cas de nul, tu peux utiliser une valeur par défaut de paramètre:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    procedure Test(Obj : TQuery); overload;
    procedure Test(Obj : TADOQuery = nil); overload;
 
//--> dans les cas suivants
 
  Test(MaQuery); //Fait la première
  Test(MaQueryADO); //Fait la deuxième
  Test(nil); //Fait la deuxième
  Test; //Fait la deuxième

[JMF]

Salut rbag,

merci pour ton aide mais malheureusement j'ai d'autres arguments dans ma méthode, je ne peux donc mettre une valeur par défaut au premier sans en mettre aux autres.

Par contre j'ai eu une autre idée : passer un pointer vers le NIL/TQuery/TSQLQuery et selon le type de l'argument le transtyper en conséquence.

Seulement je dois mal gérer mon pointeur (Je n'en ai jamais utilisé encore ) car lors du Open sur le TQuery/TSQLQuery, j'obtiens l'erreur suivante : Erreur à la création du handle de curseur.

Voici le code que j'utilise :

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
 
PROCEDURE TDM_Divers.Ajouter_Mouvement(Query:Pointer;Table:TAcces_Table;Mouvement:TAcces_Mouvement);
BEGIN
  IF NOT Assigned(Query) THEN
    Query:=Query_Divers;
 
    IF TObject(Query).ClassName = 'TQuery' THEN
    BEGIN
      WITH TQuery(Query) DO
        BEGIN
            Close;
            SQL.Text:='____Ma_requête_SQL____';
            Open;
          END;
      END
      ELSE
      BEGIN
        WITH TSQLQuery(Query) DO
          BEGIN
            Close;
            SQL.Text:='____Ma_requête_SQL____';
            Open;
          END;
      END;
    END;
  {$ENDIF}
END;

BTW si quelqu'un a une idée pour éviter de répéter le bloc de code concernant l'execution de la requête, je suis preneur.

Merci.

[rbag]

'ai fait un test vite fait, sur mon ordi ça marche (quasiment le même code). Tu n'aurais pas oublié qq chose ou fait une erreur dans le code ?

[JMF]

Bah mince alors. Je ne vois pas où est mon erreur (d'un autre côté si je la voyais je ne te demanderais pas de l'aide )

Pourrais tu me montrer le code de ton test stp ?
Merci.

[rbag]

Pas de pb:

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
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenQry(QBDE);
  OpenQry(QSQL);
  OpenQry(nil);
end;
 
procedure TForm1.OpenQry(Query: pointer);
begin
  if not Assigned(Query) then
    Query := QSQL;
  if TObject.ClassName = 'TQuery' then begin
    TQuery(Query).Close;
    TQuery(Query).SQL.Clear;
    TQuery(Query).SQL.Add('SELECT * FROM MaTable');
    TQuery(Query).Open;
  end else begin
    TSQLQuery(Query).Close;
    TSQLQuery(Query).SQL.Clear;
    TSQLQuery(Query).SQL.Add('SELECT * FROM MaTable');
    TSQLQuery(Query).Open;
  end;
end;

[JMF]

En effet cela fonctionne, l'erreur doit venir du reste de mon code.

Merci beaucoup pour ton aide.

BTW il y a une erreur dans ton code, tu oublies de transtyper l'argument ici : if TObject.ClassName = 'TQuery'

[Nono40]

TQuery et TSQLQuery ont un ancetre commun : TDataSet, c'est celui-ci qu'il faut prendre comme type de paramètre et tester dans la procédure le type réel de composant :

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
procedure TForm1.OpenQry(Query:TDataSet); 
begin 
  if not Assigned(Query) then 
    Query := QSQL; 
  if Query Is TQuery then begin 
    TQuery(Query).Close; 
    TQuery(Query).SQL.Clear; 
    TQuery(Query).SQL.Add('SELECT * FROM MaTable'); 
    TQuery(Query).Open; 
  end else begin 
    TSQLQuery(Query).Close; 
    TSQLQuery(Query).SQL.Clear; 
    TSQLQuery(Query).SQL.Add('SELECT * FROM MaTable'); 
    TSQLQuery(Query).Open; 
  end; 
end;

[JMF]

Merci Nono40 mais en fait j'avais déjà trouvé cette solution seulement pris par les contraintes du boulot j'ai oublié de l'indiquer. Je suis vraiment désolé.