How to get last record ID from database table

[fiazhnd]

I am using Delphi and want to get last record id (SerID)(PK-autonumber) value and increment by 1 and assign to EditServicesID. i am using the following code but now a success at all.

Code: Pascal  [Select][+][-]

1. EditServiceID.Text:=IntToStr(ADOQueryCCA.SQL.ADD('Select SerID from tcustomercaractivity ORDER BY SerID DESC LIMIT 1')+1);

Code: Pascal  [Select][+][-]

1. EditServiceID.Text:=IntToStr(ADOQueryCCA.SQL.ADD('Select Last(SerID) From tcustomercaractivity')+1);
2.  

Code: Pascal  [Select][+][-]

1. EditServiceID.Text:=IntToStr(ADOQueryCCA.SQL.ADD('Select Max(SerID) From tcustomercaractivity')+1);
2.  

Any Suggestion

[mangakissa]

This is not a Delphi forum.
Also more info is welcome.
Databaase?

[fiazhnd]

MS Access

[shobits1]

This may not work,  since I don't have Delphi.

anyway try this:

Code: Pascal  [Select][+][-]

1. function GetLastID(var aQuery: TADOQuery; const aField: string; const aTable: string): Integer;
2. begin
3.   result := -1;
4.  
5.   if (aField = '') or (aTable = '') then
6.     Exit;
7.  
8.   try
9.     aQuery.Active := False; // or aQuery.Close;
10.     aQuery.SQL.clear;
11.     aQuery.SQL.Add('Select Last('+aField+') FROM ' + aTable);
12.     aQuery.Active := True; // or aQuery.Open;
13.     aQuery.First;
14.     result := aQuery.Fields.Fields[0].AsInteger;
15.   finally
16.     aQuery.Active := False;
17.     aQuery.SQL.clear;
18.   end;
19. end;
20.  
21. {
22. .
23. .
24. .
25. YOUR CODE
26. .
27. .
28. .
29. }
30.  
31. var
32.   LastID: Integer;
33. begin
34.   LastID := GetLastID(ADOQueryCCA, 'SerID', 'tcustomercaractivity');
35.  
36.   if LastID < 0 then
37.     EditServiceID.Text:='No record found'
38.   else
39.     EditServiceID.Text:=IntToStr(LastID+1);
40. end;
41.  
42.  

[mangakissa]

https://stackoverflow.com/questions/33280954/get-last-row-data-after-insert-into-using-delphi-adoquery