Discussion :

[Anddi]

Bonjour,

Je souhaiterais utiliser une fonction gérant les sélections de données sur une base ACCESS. Cette fonction renvoie comme résultat un TAdoQuery :

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
 
function RequeteSelection(lrequete : string):TAdoQuery;
Var 
    lAdoQuery : TAdoQuery;
 
begin
  lAdoQuery := TAdoQuery.Create(nil);
 
  Try
    lAdoQuery.Connection := DataModule1.adoconnection1;
    lAdoQuery.SQL.text := lrequete;
 
    lAdoQuery.Active := true;
    result := lAdoQuery;
 
  Finally
    lAdoQuery.Free;
  end;
end;

Mais comment récupérer ensuite ce résultat lorsque j'utilise cette fonction ? Le code suivant ne fonctionne pas :

Code :

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

1
2
3
4
 
Var tempAdoQuery : TAdoQuery;
(...)
tempAdoQuery := RequeteSelection('SELECT * FROM Clients');

Olivier

[cmen76]

C'est à l'appelant de détruire l'objet après utilisation !

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
function RequeteSelection(lrequete : string):TAdoQuery;
Var 
    lAdoQuery : TAdoQuery;
 
begin
  lAdoQuery := TAdoQuery.Create(nil);
 
  Try
    lAdoQuery.Connection := DataModule1.adoconnection1;
    lAdoQuery.SQL.text := lrequete;
 
    lAdoQuery.Active := true;
    result := lAdoQuery;
 
  Finally
//    lAdoQuery.Free;
  end;
end;

[Anddi]

J'avais aussi essayé sans "lAdoQuery.Free" mais ça ne marche pas mieux.

Olivier

[cmen76]

ben pourtant ça devrait ; Réessaye !

[Anddi]

L'affectation "tempAdoQuery := RequeteSelection('SELECT * FROM Clients');" se fait sans erreur, mais ça plante lorsque j'essaye de faire "tempAdoQuery.First" ou "tempAdoQuery.Recordcount" par exemple.

Olivier

[Rayek]

essaie

Code :

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

1
2
 
tempAdoQuery.assign(RequeteSelection('SELECT * FROM Clients'));

[cmen76]

L'affectation "tempAdoQuery := RequeteSelection('SELECT * FROM Clients');" se fait sans erreur

C'est donc que la requête s'ouvre.

ça plante lorsque j'essaye de faire "tempAdoQuery.First" ou "tempAdoQuery.Recordcount"

Message

[Anddi]

"tempAdoQuery.First" provoque l'erreur "Violation d'accès à l'adresse 004a30C4 dans le module 'Projet.exe'. Lecture de l'adresse 8BD88BD7.".

"tempAdoQuery.assign..." provoque l'erreur "Le projet projet.exe a provoqué une classe d'exception EAccessViolation avec le message 'Violation d'accès à l'adresse 004B58CC dans le module 'Projet.exe'. Lecture de l'adresse 8BD88B5B. Processus stoppé.".

Une idée ?

[Bejaia-In]

fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function RequeteSelection(lrequete : string):TAdoQuery;
begin
 result:=TAdoQuery.Create(nil);
 with result do begin
  try
   Connection := DataModule1.adoconnection1; 
   SQL.text := lrequete;
  except
   result.Free;
   raise
  end;
 end;
end;

utilisation :

Code :

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

1
2
3
 
 with RequeteSelection('SELECT * FROM clients') do
  Open;

[Anddi]

Merci Bejaia-In.

Mais utiliser "with RequeteSelection('SELECT * FROM clients') do" puis "First", "Next",... ne revient-il pas à exécuter x fois la même requête à chaque fois ?

Anddi

[Anddi]

Plutôt que d'utiliser la fonction "function RequeteSelection(lrequete : string):TAdoQuery", je pensais utiliser une procédure avec une variable de type TAdoQuery (plutôt qu'un 'result'):

Procedure RequeteSelection(lrequete : string; var wAdoQuery : TAdoquery);

Il me suffirait ensuite d'utiliser une variable locale que je passerais en paramètre de ma fonction. Est-ce une bonne idée, notamment en terme d'utilisation de la mémoire ou autre ?

Anddi

[Bejaia-In]

Une requete est executé seulement losqu'on l'ouvre par "Open" ou par "Active:=True".
L'avantage de la fonction dans notre cas est qu'elle est utilisée comme si c'était l'objet qu'elle retourne (TAdoQuery), donc simplicité et efficacité.

[cmen76]

Les violations d'accès que tu obtiens sur un First ou Recordcount sont étranges, parce que le Open (='active:=true') est passé sans encombre.

Je crains plutôt le paramétrage par défaut des ADODatasets (CursorLocation, Mode, ou autre) qui ferait que ces méthodes échoueraient.

Tu ne rencontres pas les mêmes problèmes si tu utilises un ADOQuery créé en mode conception ?