Discussion :

[cbegood]

Bonjour,

je veux effectuer une requête SQL pour une base de donnée Access.
Cette requête supprime des éléments dans mes tables.
Alors le soucis c'est que en effectuant une requête d'effacement, le programme plante et affiche une erreur:

Code :

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

First chance exception at $7C812A5B. 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 TrialManager.exe (3568)

j'utilise le code suivant:

Code :

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

1
2
3
4
5
6
7
8
with MainForm.ADOQuery1 do
  begin
  Close;
  SQL.Clear;
  SQL.Add('DELETE * FROM GPS WHERE N°Test='+inttostr(NTest));
  //SQL.Add('DELETE * FROM EngineP WHERE N°Test='+inttostr(NTest));
  Open;
  end;

Mon but serait de pouvoir effectuer toutes les requêtes d'un seul coup mais vu que ça plante déjà avec une seule ?

Si quelqu'un peut m'aider...

Merci

[Cl@udius]

Salut

Tu obtiens cette erreur car tu utilises Open à la place d'ExecSQL.
Open est réservé aux requêtes renvoyant un jeu d'enregistrements, ce qui n'est pas le cas d'un delete.

@+ Claudius

[cbegood]

J'avais aussi essayé avec un ExecSQL mais dans ce cas il me met cette erreur:

Code :

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

1
2
First chance exception at $7C812A5B. Exception class EOleException with message 'Erreur de syntaxe (opérateur absent) dans l'expression 'N°Test=4
DELETE * FROM EngineP WHERE N°Test=4''. Process TrialManager.exe (1244)

Tu peux aussi m'aider sur ce problème? Je dois sans doute oublier quelque chose.

[cbegood]

J'ai trouvé la solution!!

Si quelqu'un souhaite comprendre comment exécuter plusieurs requêtes SQL l'une après l'autre voici mon code corrigé.
Je sais c'est sans doute une erreur de débutant mais je n'avais jamais vu d'exemple avec plusieurs requêtes c'est bien triste d'ailleurs.

Code :

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

1
2
3
4
5
6
7
with MainForm.ADOQuery1 do
  begin
  SQL.Text:='DELETE * FROM GPS WHERE N°Test='+inttostr(NTest);
  ExecSQL;
  SQL.Text:='DELETE * FROM EngineP WHERE N°Test='+inttostr(NTest);
  ExecSQL;
  end;

Merci.

[BuzzLeclaire]

Juste une précision

Je ferais un
SQL.Clear avant chaque SQL.Text


a+

[Aka Guymelef]

Non ce n'est pas obligatoire dans ce cas de figure car en passant par la propriété Text tout le contenu de la requête SQL est mis à jour à contrario de la méthode Add qui ajoute une ligne supplémentaire après le contenu de la requête SQL.