NexusDB

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;

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *