Discussion :

[qaubailly]

Bonjour,

Dans le cadre d'un projet professionnel, j'ai besoin d’utiliser quickreport sous Delphi 10.3.2. Dès que j'utilise l'élément TQuickRep de QuickReport, je rencontre un problème avec mon objet TADOConnection. En effet lorsque je fais appel à la fonction open de celui-ci, il passe par la fonction open de la classe mère DB et non la sienne ADODB. Alors qu'avant d'ajouter l'objet TQuickRep il passait par la bonne fonction. De plus même si j'enlève l'objet TQuickRep il continu de passer par la fonction de la classe mère.

Merci d'avance pour votre aide, voici une image de mon code :

[philnext]

Bonjour
Je ne vais pas répondre directement à ta question mais :
1/ Tu dois passer ton code en texte dans tes questions plutôt qu'en image car ainsi on peut faire des copier/coller pour tester et te répondre plus facilement.
2/ QuickReport est une obligation ? Car si tu pars de 0, FastReport a un peu plus de support et une communauté plus importante.

[qaubailly]

Je suis malheureusement obligé d'utiliser QuickReport. Mais merci pour ton conseil.
Voici le code en texte :

Code :

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

1
2
3
4
5
6
7
8
9
// permet de générer la chaine de connexion avec les différents paramètres
function TGestBDD.GetCnxString(pDriver, pDatabase, pServer, pUser,
  pPassword: String): string;
begin
  Result := 'Mode=ReadWrite;' + 'Extended Properties="' + 'DRIVER=' + pDriver +
    ';' + 'DATABASE=' + pDatabase + ';' + 'SERVER=' + pServer + ';' + 'UID=' +
    pUser + ';' + 'PASSWORD=' + pPassword + ';' + 'PORT=;' + 'OPTION=3;' +
    'STMT=;"';
end;

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
// Constructeur
constructor TGestBDD.create(var ploaded: Boolean;
  pDriver, pDatabase, pServer, pUser, pPass: ansistring);
begin
  inherited create;
 
  ploaded := true;
 
  // mise en mémoire de la chaine de connexion
  FCnxStr := GetCnxString(pDriver, pDatabase, pServer, pUser, pPass);
 
  // Connexion avec la base
  FCnx := TADOConnection.create(nil);
  FCnx.Mode := cmReadWrite;
  FCnx.KeepConnection := true;
  FCnx.ConnectionString := FCnxStr;
 
  // Requête
  FQry := TADOQuery.create(nil);
  FQry.Connection := FCnx;
  FQry.Close;
 
  // Tentative de connexion à la base
  try
    FCnx.Open;
    FCnx.Close;
  except
    on E: Exception do
    begin
      MessageBox(Application.Handle, PChar(E.Message + #13 + FCnxStr),
        PChar('Erreur'), 0);
      ploaded := False;
 
      exit;
    end;
  end;
end;

[Andnotor]

Alors qu'avant d'ajouter l'objet TQuickRep il passait par la bonne fonction. De plus même si j'enlève l'objet TQuickRep il continu de passer par la fonction de la classe mère.

Ces problèmes sont généralement dus à l'ordre des unités dans la clause uses si plusieurs d'entre elles déclarent un type du même nom. Déplace ADODB à la fin de la liste.

[qaubailly]

Je viens d'essayer de changer l'ordre et malheureusement le problème persiste.