Auto-Insertwert abfragen

[DeddyH]

Delphi-Quellcode:

function LastIdentity : integer;
begin
    with TADOQuery.Create do begin //hier
        connection := mus_Service.ADOConnMUS;
        try
           sql.Text := 'Select Scope_Identity() as id';
           open;
           if not(FielByName('id').IsNull) then
              result :=  FieldByName('id').asInteger;
           else
              result := 0;
           Close;           
        finally
          Free;
       end;
    end;
end ;