Problème Delphi, QuickReport , TADOConnection.

Version imprimable

23/10/2019, 09h33
qaubailly

2 pièce(s) jointe(s)

Problème Delphi, QuickReport , TADOConnection.

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 :

Pièce jointe 512565

Pièce jointe 512567
23/10/2019, 11h13
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.

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

Code:

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:

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;

23/10/2019, 14h23
Andnotor

Citation:

Envoyé par qaubailly

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.
23/10/2019, 14h28
qaubailly

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