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 :
Adr1 étant le nom de la Table.
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;
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
Partager