Bonjour,

Avec Delphi 7, windows XP prof. et sans Access installer sur mon ordinateur, j'ai créé une base access avec plusieurs tables, chacune possédant un champ auto-incrémenté.

L'application développée est simple, mais elle fonctionne parfaitement. Cependant, il me reste un point non encore résolu.

Je veux obtenir le dernier n° utilisé dans le champ auto-incrémenté. Après plusieurs recherches et différents essais, je ne suis pas parvenu à l'obtenir.

Le dernier code que j'ai utilisé, est le suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
var
  lNo: Longint;
with ADOQuery1 do
  begin
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\adresses.mdb;';
    CursorLocation := clUseClient;
    CursorType := ctStatic;
    LockType := ltOptimistic;
    SQL.Clear;
    SQL.Add('SELECT @@IDENTITY as vNum FROM Adr1');
    Active := True;
    lNo := FieldByName('vNum').AsInteger;
    Active := False;
  end;
Adr1 étant le nom de la Table.

Après lancement, le n° du champ incrémenté reste à 0.

Malgré tous mes efforts, je n'ai pas trouvé la solution.

Si quelqu'un peut m'aider, je le remercie.

Cordialement