Hi,
besser so:
Delphi-Quellcode:
begin
// ...
with sqlt
do
begin
Post;
SQL.Text := '
SELECT LAST_INSERT_ID()';
try
Open;
lastId := Fields[0].AsInteger;
finally
Close;
end;
// ...
end;
Das Zählen der Einträge zu den einzelnen Kategorien habe ich in meinem
SQL-Code aus Beitrag #59 unterlassen, weil ich es gar nicht brauche. Es ist viel einfacher beim Eintragen der Kategorien die entsprechenden Knoten im Baum zu zählen.
Freundliche Grüße