Traiter unicité des données dans une base SqLite
Bonjour à tous
Je souhaiterais traiter l'Unicité lors de la saisie de données et obtenir un message qui me l'indique.
Voici l'exemple de creation de ma table
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| CREATE TABLE DetailsCpt (
IdDetails INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,
IdCpt INTEGER NULL,
IdBudget INTEGER NULL,
DateEnregistre DATE NOT NULL,
Types VARCHAR(50) NOT NULL,
NumChq VARCHAR(7) NULL,
Tiers VARCHAR(80) NOT NULL,
Categories VARCHAR(50) NOT NULL,
SousCategories VARCHAR(50) NULL,
Debit NUMERIC(7,2) NULL DEFAULT 0,
Credit NUMERIC(7,2) NULL DEFAULT 0,
Pointeur VARCHAR(3) NULL,
CONSTRAINT Comptes_DetailsCpt FOREIGN KEY (IdCpt) REFERENCES Comptes (IdCpt) ON DELETE RESTRICT ON UPDATE RESTRICT |
Je pensais ajouter ceci, pour éviter de saisir 2 fois la même ligne de ma table:
Code:
1 2
| Alter DetailsCpt
UNIQUE(DateEnregistre,Types,Tiers,Categories,Debit,Credit); |
N'y aurait pas d'autres solutions pour résoudre ce problème ou bien est-ce la plus facile à mettre en place ?
Je travaille sous Delphi Alexandria 11.2.1
Par avance Merci de vos réponses