Discussion :

[pitango]

Bonjour,

Dans le cas d'une migration BDE en ADO, je me retrouve avec le problème suivant.

Lorsque dans une requête, il y a des paramètres à la fois dans l'expression et dans sa close where, ma requête "ADO" lors de l'évaluation du paramcheck plante sur "mémoire insuffisante".

Si je prends ce cas suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With MaRequete do
begin
Close;
SQL.Clear;
SQL.Add('select Monchamp1,(select Monchamp2 from LaTable2 where 
Monchamp2 = :PChamp2)
from LaTable1 ');
SQL.Add('Where Monchamp1 = :PChamp1);
ParamCheck := True;
ParamByName('PChamp1').Value := 'Test';
ParamByName('PChamp2').Value := 'Test';
Open;
end;

cela plante ( Pour info en BDE cela ne pose aucun problème)

par contre dans les 2 cas qui suivent cela passe normalement

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
  // Le paramètre est uniquement dans la close where
   
  With MaRequete do
begin
Close;
SQL.Clear;
SQL.Add('select Monchamp1,(select Monchamp2 from LaTable2 where 
Monchamp2 = 'Test')
from LaTable1 ');
SQL.Add('Where Monchamp1 = :PChamp1);
ParamCheck := True;
ParamByName('PChamp1').Value := 'Test';
//ParamByName('PChamp2').Value := 'Test';
Open;
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
 // Le paramètre est uniquement dans l’expression
   
  With MaRequete do
begin
Close;
SQL.Clear;
SQL.Add('select Monchamp1,(select Monchamp2 from LaTable2 where 
Monchamp2 = 'Test')
from LaTable1 ');
SQL.Add('Where Monchamp1 = 'Test');
ParamCheck := True;
//ParamByName('PChamp1').Value := 'Test';
ParamByName('PChamp2').Value := 'Test';
Open;
end;

Avez vous une idée , d’où pourrait venir le problème ?

Merci pour vos réponses.

[Rayek]

Mon dieu mais quelle requete horrible

Elle doit faire quoi ta requete ?

Le MonChamp1 = le MonChamp2 ?

Des requetes de ce style c'est à banir ...

Donne ous des infos pour qu'on te sorte une requete beaucoup mieux que celle la.

[slimjoe]

Salut!

En ADO, la méthode ParamByName est encapsulée dans l'objet Parameters. Il faut donc faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  with MaRequete do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select Monchamp1, (select Monchamp2 from LaTable2 where Monchamp2 = :PChamp2) from LaTable1');
    SQL.Add('Where Monchamp1 = :PChamp1');
    ParamCheck := True;
    Parameters.ParamByName('PChamp1').Value := 'Test';
    Parameters.ParamByName('PChamp2').Value := 'Test';
    Open;
  end;

Ceci dit, avec le message d'erreur, c'est plus facile de diagnostiquer ("ça plante" n'est pas un diagnostic valide

[slimjoe]

Mon dieu mais quelle requete horrible

[...]

Des requetes de ce style c'est à banir ...

Donne ous des infos pour qu'on te sorte une requete beaucoup mieux que celle la.

+1

Parfaitement d'accord!

[pitango]

Bonjour,

je vous remercie pour vos réponses.

J'ai mis une requête générique pour l'exemple, car je ne peux pas vous mettre la requête en prod qui est trop longue,
mais c'était surtout le principe que je voulais avoir avec vous
c'est à dire le fait d'utiliser des paramètres à la fois dans les expressions et dans la close where.

Merci

[Cl@udius]

Salut

Même si elle est longue, tu peux quand même nous la montrer cette requête.
Car je suis d'accord avec Malatar et SlimJoe, ton exemple de requête n'a rien de générique !!!

@+ Claudius

[pitango]

Voici exprimée je l'espère de manière plus clair, le type de requête que je ne peux pas exécuter en ADO

Code :

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

1
2
 
select col,(select col from tab where col= :X1) from tab where col = :X2

En essayant de coller ce SQL dans un ADOQuery en paramcheck à TRUE

on obtient en mode design 'Violation accès dans ntdll.dll' puis à l'execution 'Violation d'accès dans rtl70.bpl' et dynamiquement par le code 'Mémoire insuffisante pour cette opération'.

Merci
Pour votre aide

(PS : S'il le faut , je vous post la requête complète)

[Rayek]

Ce que l'on te demande surtout c'est qu'est ce que tu veux faire avec ta requete finale.
Une requete avec un select dans ses champs, c'est normalement à ne jamais faire.
Je suis sûr qu'on peut transformer cette requete en une requete avec des jointures propres (et je suis sûr aussi qu'elle sera largement plus rapide à exécuter).

[slimjoe]

Voici exprimée je l'espère de manière plus clair, le type de requête que je ne peux pas exécuter en ADO

on obtient en mode design 'Violation accès dans ntdll.dll' puis à l'execution 'Violation d'accès dans rtl70.bpl' et dynamiquement par le code 'Mémoire insuffisante pour cette opération'.

Ce code fonctionne parfaitement chez moi (D7 sur WinVista et SQL Express, MaRequete est un TADOQuery) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  with MaRequete do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select Monchamp1, (select Monchamp2 from LaTable2 where Monchamp2 = :PChamp2) from LaTable1');
    SQL.Add('Where Monchamp1 = :PChamp1');
    ParamCheck := True;
    Parameters.ParamByName('PChamp1').Value := 'Test';
    Parameters.ParamByName('PChamp2').Value := 'Test';
    Open;
  end;