SQLite Autoincrement issue
Posted: Mon 03 Nov 2014 19:12
Hello,
I'm getting an error Each time I want to insert a new record on my table.
SQLite is complaining about my autoincrement field that can't be null.
Here is my table structure :
Here is my connection object :
Here is my Dataset object :
And finally my code :
As you can see, I don't even set my autoincrement field !
What is wrong ?
Server version: 3.8.7
Client version: 3.8.7
I'm getting an error Each time I want to insert a new record on my table.
SQLite is complaining about my autoincrement field that can't be null.
Here is my table structure :
Code: Select all
CREATE TABLE Etiquettes (
Id_Etiquette integer NOT NULL PRIMARY KEY AUTOINCREMENT,
Id_Fournisseur varchar(10),
Id_Lot_Fournisseur varchar(12),
Compteur varchar(6),
Id_Matiere varchar(6),
Longueur varchar(6),
Date_Creation datetime,
Date_Impression datetime,
Quantite integer,
PCB integer
);Code: Select all
object UniConnection1: TUniConnection
ProviderName = 'SQLite'
Database =
'\Database.db3'
SpecificOptions.Strings = (
'SQLite.UseUnicode=True')
Options.KeepDesignConnected = False
Connected = True
LoginPrompt = False
Left = 72
Top = 192
endCode: Select all
object qrEtiquettes: TUniQuery
Connection = UniConnection1
SQL.Strings = (
'select * from Etiquettes')
Left = 352
Top = 120
endCode: Select all
qrEtiquettes.append;
qrEtiquettes.FieldByName('Date_Creation').AsDateTime := now;
qrEtiquettes.FieldByName('Id_Lot_Fournisseur').asString := edtlot.Text;
qrEtiquettes.FieldByName('Id_Fournisseur').AsString := 'TEST';
qrEtiquettes.FieldByName('Longueur').asString := StrPadLeft(inttostr((trunc(speditQuantite.Value) * 100) + I),6,'0');
qrEtiquettes.FieldByName('Compteur').asString := StrPadLeft(inttostr(dernierCompteur + I),6,'0');
qrEtiquettes.FieldByName('Quantite').asinteger := qte;
qrEtiquettes.Post;What is wrong ?
Server version: 3.8.7
Client version: 3.8.7