LastAutoInc
START TRANSACTION;
insert into titres (nom) values ('test IDENTITY');
SELECT LASTAUTOINC;
COMMIT;
Dans du Delphi, ça donne :
q:=TNxQuery.Create(application);
try
q.Database:=dm.dbinpro;
q.sql.text:='START TRANSACTION; '+
'INSERT INTO titres (isrc,nom,interprete) values (:isrc,:titre,:interprete); ';
'SELECT LASTAUTOINC; '+
'COMMIT; ';
q.ParamByName('titre').AsString:=LTitre.Caption;
q.ParamByName('isrc').AsString:=LIsrc.Caption;
q.ParamByName('interprete').AsString:=LArtistes.Caption;
q.Open;
i:=q.FieldValues['LastAutoInc'];
finally
q.free;
end;
Insérer des valeurs nulles
with q.ParamByName('idtitre') do Begin
Clear;
Bound:=True;
DataType:=ftString;
End;