supprimer tout les données d'une table à l'aide Adoquery

Question

Bonjour,
voila j'ai une table que j'utilise comme table intermediaire cad des que je termine on travail je supprime tout les données d cette table, pour cela j'ai utiliser un Adoquery, voici mon code:
adoquery1.sql.text:='delete ordint';
adoquery1.prepared:=true;
adoquery1.active:=true;
adoquery1.execsql;
adoquery1.close;
j'ai l'erreur suivante : Adoquery1: Commandtext ne renvoie pas un ensemble de résultats.
merci pour votre aide

cs_cantador · Answer

Bonjour,

plus simplement :

Delete from NomDeTable;



cantador

cs_jjgone · Answer

Bonjour,

l'erreur : "Commandtext ne renvoie pas un ensemble de résultats."
signifie que l'instruction ne renvoie pas de résultats contrairement à SELECT par exemple.
En conséquence, il ne faut pas mettre adoquery1.active à True.
Mais il y a effectivement une première erreur dans l'instruction DELETE, comme le dit
Cantador l'instruction sql est DELETE FROM NomTable

Le code pour effacer les données peut ressembler à celui-ci :

{Création d'un TADOQuery à la volée}
with TADOQuery.Create(nil) do
begin
  try
    {ADoConnection1 est un TADOConnection connecté sur la base dans laquelle se trouve la table ordint}	
    Connection := ADOConnection1;
    SQL.Text := 'DELETE FROM ordint';
    Prepared := True;
    {ExecSQL renvoie le nombre de lignes suppimées, on peut l'utiliser pour afficher un message}
    ExecSQL;
  except
    on E: Exception do
      {Renvoie le message d'erreur}
      MessageDlg(E.Message, mtError, [mbOK], 0);
  end;
  {Libère le TADOQuery}
  Free;
end;

Voila, il ne reste plus qu'à coder.

nn2009 · Answer

merci pour votre aide j'ai bien compris mon erreur

Supprimer tout les données d'une table à l'aide Adoquery

3 réponses

Votre réponse

Discussions similaires