Discussion :

[oneDev]

Bonjour,

Je travaille avec Delphi 7 et SQL Server 2016.

J'ai besoin de faire un update dans ma base de données en passant par une sous-requête.
Les données étant saisies par un utilisateur, je voulais utiliser des paramètres.

J'ai donc écrit le code 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
15
16
17
18
19
20
21
22
23
 
var
    qsql: TSQLQuery;
begin
// ...
try
    qsql.SQL.Add('UPDATE dossier SET my_date = :pdate ');
    qsql.SQL.Add('WHERE id IN ');
    qsql.SQL.Add('(');
    qsql.SQL.Add('    SELECT TOP 1 id ');
    qsql.SQL.Add('    FROM dossier d ');
    qsql.SQL.Add('    INNER JOIN table1 t1 on d.id = t1.id_dossier ');
    qsql.SQL.Add('    INNER JOIN table2 t2 on t1.id = t2.id_t1 ');
    qsql.SQL.Add('    WHERE t2.numero = :pnumero ');
    qsql.SQL.Add(');');
 
    qsql.ParamByName('pdate').AsDateTime := aDate;
    qsql.ParamByName('pnumero').AsString := Trim(numero);
 
    qsql.ExecSQL
finally
    FreeAndNil(qsql);
end;

La ligne qsql.ExecSQL me renvoie l'erreur suivante :

SQL state: 42000, SQL Error Code: 0
Les informations de paramètre ne peuvent provenir
d'instruction SQL avec des requêtes de sous-sélection.
Définissez les informations de paramètre avant de préparer la
commande.

La requête seule fonctionne sans erreurs quand je l'écrit directement dans SQL Server.
Savez-vous si il y a un autre moyen de faire fonctionner ma requête ?

Sinon, je devrais faire un select pour récupérer l'id avant de faire mon update, mais cela doublerais alors le nombre de requêtes.

Merci de vos commentaires.

[SergioMaster]

Bonjour,

DBExpress a toujours été une de mes bêtes noires (avec ADO)
Essayez en ajoutant ligne : qsql.Prepare; en ligne 16 (avant d'affecter les valeurs des paramètres) c'est ce que semble indiquer le message d'erreur

si ça ne fonctionne pas, vous serez obligé de définir ceux-ci "à la main" par code

[oneDev]

Merci de cette réponse.

Essayez en ajoutant ligne : qsql.Prepare; en ligne 16 (avant d'affecter les valeurs des paramètres) c'est ce que semble indiquer le message d'erreur

J'avais déjà vu ce code dans mes recherches, mais qsql.Prepare; ne fonctionne pas.

Identificateur non déclaré : 'Prepare'

J'ai essayé qsql.Prepared := True;, mais cela ne change malheureusement rien.


J'ai contourné le problème en faisant une première requête pour trouver mon id (ma sous-requête) puis en faisant un update sur cet id.
Cela fait, par contre, 2 requêtes pour chaque mise à jour, ce qui n'est pas optimale.

[SergioMaster]

en ce cas il faut rajouter les trucs "à la main"

Code :

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

1
2
3
QSQL.ParamByName('pdate').DataType := ftDateTime;
QSQL.ParamByName('Pnumero').DataType := ftString;
QSQL.Prepare;

[tourlourou]

Si les deux requêtes sont préparées puis exécutées plusieurs fois (avec une nouvelle valeur de paramètre à chaque fois), le coût supplémentaire sera réduit. Et si ce n'est que très ponctuel, le surcoût des deux requêtes devrait rester minime, surtout par rapport au temps de saisie de l'utilisateur.

[oneDev]

en ce cas il faut rajouter les trucs "à la main"

Je viens de faire le test, mais cela me renvoie toujours la même erreur

SQL state: 42000, SQL Error Code: 0
Les informations de paramètre ne peuvent provenir
d'instruction SQL avec des requêtes de sous-sélection.
Définissez les informations de paramètre avant de préparer la
commande.

Si les deux requêtes sont préparées puis exécutées plusieurs fois (avec une nouvelle valeur de paramètre à chaque fois), le coût supplémentaire sera réduit. Et si ce n'est que très ponctuel, le surcoût des deux requêtes devrait rester minime, surtout par rapport au temps de saisie de l'utilisateur.

C'est un traitement que j'exécute entre 20 et 50 fois en lisant le contenu d'un fichier.
C'est pas dramatique, mais c'était dans le but d'optimiser le traitement.

[oneDev]

J'ai essayé le code 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
15
16
17
18
19
20
21
22
23
24
25
26
27
var
    qsql: TSQLQuery;
begin
// ...
try
    qsql.SQL.Add('UPDATE dossier SET my_date = :pdate ');
    qsql.SQL.Add('WHERE id IN ');
    qsql.SQL.Add('(');
    qsql.SQL.Add('    SELECT TOP 1 id ');
    qsql.SQL.Add('    FROM dossier d ');
    qsql.SQL.Add('    INNER JOIN table1 t1 on d.id = t1.id_dossier ');
    qsql.SQL.Add('    INNER JOIN table2 t2 on t1.id = t2.id_t1 ');
    qsql.SQL.Add('    WHERE t2.numero = :pnumero ');
    qsql.SQL.Add(');');
 
    qsql.ParamByName('pdate').DataType := ftDateTime;
    qsql.ParamByName('pnumero').DataType := ftString;
 
    qsql.Prepared := True;
 
    qsql.ParamByName('pdate').AsDateTime := aDate;
    qsql.ParamByName('pnumero').AsString := Trim(numero);
 
    qsql.ExecSQL
finally
    FreeAndNil(qsql);
end;

[SergioMaster]

Bon, DBExpress c'est pas mon truc .

Une idée peut-être en mettant paramcheck:=false

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
var
    qsql: TSQLQuery;
begin
// ...
try 
    qsql.ParamCheck:=False;
    qsql.SQL.Add('UPDATE dossier SET my_date = :pdate ');
    qsql.SQL.Add('WHERE id IN ');
    qsql.SQL.Add('(');
    qsql.SQL.Add('    SELECT TOP 1 id ');
    qsql.SQL.Add('    FROM dossier d ');
    qsql.SQL.Add('    INNER JOIN table1 t1 on d.id = t1.id_dossier ');
    qsql.SQL.Add('    INNER JOIN table2 t2 on t1.id = t2.id_t1 ');
    qsql.SQL.Add('    WHERE t2.numero = :pnumero ');
    qsql.SQL.Add(');');
 
    qsql.ParamByName('pdate').DataType := ftDateTime;
    qsql.ParamByName('pnumero').DataType := ftString;
 
    qsql.Prepared := True;
 
    qsql.ParamByName('pdate').AsDateTime := aDate;
    qsql.ParamByName('pnumero').AsString := Trim(numero);
 
    qsql.ExecSQL
finally
    FreeAndNil(qsql);
end;

ou encore

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
var
    qsql: TSQLQuery;
   AParam : TParam;
begin
// ...
try 
    qsql.ParamCheck:=False;
    qsql.SQL.Add('UPDATE dossier SET my_date = :pdate ');
    qsql.SQL.Add('WHERE id IN ');
    qsql.SQL.Add('(');
    qsql.SQL.Add('    SELECT TOP 1 id ');
    qsql.SQL.Add('    FROM dossier d ');
    qsql.SQL.Add('    INNER JOIN table1 t1 on d.id = t1.id_dossier ');
    qsql.SQL.Add('    INNER JOIN table2 t2 on t1.id = t2.id_t1 ');
    qsql.SQL.Add('    WHERE t2.numero = :pnumero ');
    qsql.SQL.Add(');');
 
    AParam:=qsql.Params.AddParameter;
    AParam.Name:='pdate';
    AParam.ParamType:=TParamType.ptInput;
    AParam.DataType:=TFieldType.ftDateTime;
    AParam.Value:=aDate;
 
    AParam:=qsql.Params.AddParameter;
    AParam.Name:='pnumero';
    AParam.ParamType:=TParamType.ptInput;
    AParam.DataType:=TFieldType.ftString;
    AParam.Value:=Trim(numero);
 
    qsql.ExecSQL
finally
    FreeAndNil(qsql);
end;

[oneDev]

Bon, DBExpress c'est pas mon truc .

Je vais tester cela demain.

Là j'en ai marre ! Je viens de faire un test, mon update fonctionne correctement avec des composants ADO.
Je ne sais pas si je pourrais les utiliser dans mon application.

Merci pour vos réponses et conseils

[SergioMaster]

Je viens de faire un test rapide (bien sûr sur une autre base et avec un SQL moins complexe et totalement bidon )

Code SQL :

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

1
2
UPDATE  ACHEMINEMENT a SET LAST_UPDATE=:D
WHERE ID_PARAM=(SELECT FIRST 1 ID FROM PARAMETRES WHERE GROUPE=:G)

ce code fonctionne

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
 
var AParam : TParam;
begin
 
SQLQuery1.Params.ClearAndResetID; // certainement inutile si le composant est créé au runtime 
 
AParam:=SQLQuery1.Params.AddParameter;
AParam.Name:='D';
AParam.ParamType:=TParamType.ptInput;
AParam.DataType:=TFieldType.ftDateTime;
AParam.Value:=Now;
 
AParam:=SQLQuery1.Params.AddParameter;
AParam.Name:='G';
AParam.ParamType:=TParamType.ptInput;
AParam.DataType:=TFieldType.ftString;
AParam.Value:='Général';
SQLQuery1.Prepared:=True;
SQLQuery1.ExecSQL;
 
end;

d'un autre côté celui-ci aussi

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
var AParam : TParam;
    qsql : TSQLQuery;
begin
 
qsql:=TSQLQuery.Create(self);
try
  qsql.SQLConnection:=SQLConnection1;
  qsql.SQL.Add('UPDATE  ACHEMINEMENT a SET LAST_UPDATE=:D');
  qsql.SQL.Add('WHERE ID_PARAM=(SELECT FIRST 1 ID FROM PARAMETRES WHERE GROUPE=:G)');
  qsql.ParamCheck:=True;
  qsql.Prepared:=true;
  ShowMessage(qsql.Params.Count.tostring);
 
//  qsql.Params.ClearAndResetID;
//
//  AParam:=SQLQuery1.Params.AddParameter;
//  AParam.Name:='D';
//  AParam.ParamType:=TParamType.ptInput;
//  AParam.DataType:=TFieldType.ftDateTime;
//  AParam.Value:=Now;
//
//  AParam:=SQLQuery1.Params.AddParameter;
//  AParam.Name:='G';
//  AParam.ParamType:=TParamType.ptInput;
//  AParam.DataType:=TFieldType.ftString;
//  AParam.Value:='Général';
  qsql.ParamByName('D').AsDateTime:=now;
  qsql.ParamByName('G').AsString:='Général';
  qsql.ExecSQL;
finally
  qsql.Free;
end;

comme pour faire ces tests j'utilise la version 10.3.2 j'en conclus que c'est plus une question de version de DBExpress qu'autre chose voilà pourquoi je déteste DBExpress et ADO : les couches (dll) en plus

[oneDev]

Oui, cela semble effectivement bien venir de DBExpress.
Malheureusement avec Delphi 7, cela va être compliqué de faire autrement...

Merci encore de ton aide.

[oneDev]

DBExpress a toujours été une de mes bêtes noires (avec ADO)

Je rebondis sur cette remarque que je vois régulièrement sur le forum.
Du coup avec Delphi 7, quel est la meilleure manière d'accéder à une base de données ?

Personnellement, à part ce sujet, je n'ai pas eu de problèmes particuliers avec ces composants.

Nous utilisons SQL Server avec DBExpress. Vu la taille des projets, ce serait certainement compliquer de modifier, mais si cela vaut le coup, nous pourrions nous pencher sérieusement dessus.

[SergioMaster]

Je rebondis sur cette remarque que je vois régulièrement sur le forum.
Du coup avec Delphi 7, quel est la meilleure manière d'accéder à une base de données ?

C'est certainement dû en grande partie à mes remarques
Pour D7 et sans y mettre un € je recommanderai lescomposants ZEOSDBO (ZeosLIB) (à jour de préférence)
J'avais l'habitude de les utiliser avec D2010 et plutôt avec les snapshots, j'avais même commencé un tutoriel que je n'ai jamais terminé voir mon billet

[oneDev]

OK, merci, j'ai déjà utilisé ZeosLib.