How to get last record ID from database table
lazarus / 16-Databases

----------------------------------------------------------------------
fiazhnd · 2017-08-05 14:57

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][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
EditServiceID.Text:=IntToStr(ADOQueryCCA.SQL.ADD('Select SerID from
tcustomercaractivity ORDER BY SerID DESC LIMIT 1')+1);Code: Pascal
 [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
EditServiceID.Text:=IntToStr(ADOQueryCCA.SQL.ADD('Select Last(SerID)
From tcustomercaractivity')+1); Code: Pascal
 [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
EditServiceID.Text:=IntToStr(ADOQueryCCA.SQL.ADD('Select Max(SerID)
From tcustomercaractivity')+1); Any Suggestion

----------------------------------------------------------------------
mangakissa · 2017-08-05 15:42

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

----------------------------------------------------------------------
fiazhnd · 2017-08-05 15:47

MS Access

----------------------------------------------------------------------
shobits1 · 2017-08-06 22:24

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

anyway try this:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i function
GetLastID(var aQuery: TADOQuery; const aField: string; const aTable:
string): Integer;begin  result := -1;   if (aField = '') or (aTable =
'') then    Exit;   try    aQuery.Active := False; // or
aQuery.Close;    aQuery.SQL.clear;    aQuery.SQL.Add('Select
Last('+aField+') FROM ' + aTable);    aQuery.Active := True; // or
aQuery.Open;    aQuery.First;    result :=
aQuery.Fields.Fields[0].AsInteger;  finally    aQuery.Active :=
False;    aQuery.SQL.clear;  end;end; {...YOUR CODE... } var  LastID:
Integer;begin  LastID := GetLastID(ADOQueryCCA, 'SerID',
'tcustomercaractivity');    if LastID < 0 then   
EditServiceID.Text:='No record found'  else   
EditServiceID.Text:=IntToStr(LastID+1);end;

----------------------------------------------------------------------
mangakissa · 2017-08-08 06:38

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