[ADO] Erreur sur modification

**femtosa** · 04/06/2007, 15h34

Hello

J'ai un problème lors de l'exécution d'une requête 'UPDATE' avec mon composant TQDOQuery ...

La sélection marche sans problèmes, mais lorsque je fais un 'UPDATE', ça me ressort cette erreur à l'exécution :

Code :

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

1
2
3
4
---------------------------
Debugger Exception Notification
---------------------------
Project PDBCopy.exe raised exception class EOleException with message 'Le fournisseur actuel ne prend pas en charge les jeux d'enregistrements multiples renvoyés à partir d'une exécution simple'. Process stopped. Use Step or Run to continue.

Puis ensuite ceci comme message d'erreur :

Code :

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

1
2
3
4
---------------------------
Debugger Exception Notification
---------------------------
Project PDBCopy.exe raised exception class EDatabaseError with message 'ADOQuery: CommandText does not return a result set'. Process stopped. Use Step or Run to continue.

J'ai essayé de regarder du côté des curseurs, mais j'ai pas trouvé de solution (domaine qui reste très flou ... !).

Une aide

[EDIT]
C'est avec une base Interbase !
[/EDIT]

**Cl@udius** · 04/06/2007, 16h11

Salut

Tu peux nous montrer ta requête Update ainsi que la façon dont tu l'appelles.

@+ Claudius

**Rayek** · 04/06/2007, 16h12

Il serait bien de voir ton code, car les messages de ce style ne permettent pas de donner une réponse toute faite pour corriger le problème.
Autant le deuxieme message est une consequence du premier.

**femtosa** · 04/06/2007, 16h38

Effectivement !!

Le voici :

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
with DMDB.ADOQuery do
        begin
          //Récupération de la prochaine clé de la table 'CALIBRES'
          SQL.Clear;
          SQL.Add('SELECT TABLE_KEY FROM KEYS WHERE TABLE_NAME = ''CALIBRES'';');
          Open;
          pk := Fields[0].AsInteger + 1;
          //Modification de la prochaine clé de la table 'CALIBRES' dans la
          //table 'KEYS'
          SQL.Clear;
          SQL.Add('UPDATE KEYS SET TABLE_KEY = ' + IntToStr(pk) + 'WHERE TABLE_NAME = ''CALIBRES'';');
          Open;
          //Insertion du records avec la nouvelle clé et les valeurs du fichier
          SQL.Clear;
          SQL.Add('INSERT INTO CALIBRES (PK_CALIBRE, NOM_CALIBRE, FREQUENCE_CALIBRE, ANGLE_CALIBRE) VALUES (' + IntToStr(pk) + ', '+ Records[0] + ', ' + Records[1] + ', ' + Records[2] + ');');
        end;

C'est au moment de la requête UPDATE que les messages d'erreurs posté plus haut apparaîssent ... !

**Cl@udius** · 04/06/2007, 17h04

Salut

Si les requêtes Select s'ouvre avec un Open, il faut utiliser un ExecSQL pour les requêtes de mises à jour.

Code :

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

1
2
3
4
5
6
7
8
    ...
    //Modification de la prochaine clé de la table 'CALIBRES' dans la
    //table 'KEYS'
    SQL.Clear;
    SQL.Add('UPDATE KEYS SET TABLE_KEY = ' + IntToStr(pk) + 'WHERE TABLE_NAME = ''CALIBRES'';');
    ExecSQL;
    ...

@+ Claudius

**Rayek** · 05/06/2007, 08h22

Remarques supplémentaires :

- Tu ne fermes pas tes requetes , je ne suis pas sûr que cela soit de bonne augure pour la suite des requetes.
- Il te manque un ExecSQL pour la requete INSERT.