Code: Select all
Query.Open;
if Query.FindFirst then
Result := Query.FieldByName('rowid').AsLargeInt;
Query.Close;
Code: Select all
Query.Open;
if Query.FindFirst then
Result := Query.FieldByName('rowid').AsLargeInt;
Query.Close;
Code: Select all
Query.SQL.Text := 'INSERT INTO ...';
Query.Execute;
Query.SQL.Text := 'SELECT LAST_INSERT_ROWID() AS rowid';
Query.Open;
if Query.FindFirst then
Result := Query.FieldByName('rowid').AsLargeInt;
Query.Close;