table non indexe de façon unique
Bonjour mes amis
Des que j’exécute mon code pour supprimer une facture, j’obtient l’erreur suivante "opération impossible sur cette table car elle n'est pas indexée de façon unique" même avec ce message la facture sera supprimée (je suis sous une base de donne Mysql)
voici mon code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| void __fastcall TForm1::Suprimerunefacture1Click(TObject *Sender)
{
str = DBGrid1->Fields[0]->AsString ;//contient le code
ShowMessage(str);
DM->QRsuppfact->SQL->Clear();
DM->QRsuppfact->SQL->Add("DELETE FROM t_achats where code="+ str );
if( MessageDlg(" Ete vous sur de vouloir supprimer cette facture?",
mtWarning, TMsgDlgButtons() << mbOK, 0));
{
DM-> QRsuppfact->ExecSQL();
Form1->DBGrid1->DataSource->DataSet->Refresh();
}
} |
Aidez moi SVP
Merci d'avance.
