Bonjour , j ai un petit probleme pour effacer tout les champs d'une table apres le clique d'un bouton

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
void __fastcall TForm5::Button4Click(TObject *Sender)
{ 
 SQLQuery1->Active=false;
 SQLQuery1->SQL->Clear();
SQLQuery1->SQL->Add("TRUNCATE TABLE `paniercommande`");
SQLQuery1->Active=true;
}
Exception déclenchée à $7C812A5B. Classe d'exception EDatabaseError avec message 'SQLQuery1: Curseur non renvoyé par Query'. Processus Project1.exe (2068)