Auto-Insertwert abfragen

[emsländer]

Zitat von Jelly:

Delphi-Quellcode:

with _query do begin 
    connection := mus_Service.ADOConnMUS; 
    try 
        sql.Text := _stmp; 
        open; 
        insert; 
        FieldValues['Datum_und_Zeit']  := Datum_und_Zeit; 
        FieldValues['SenderIP']  := SenderIP; 
        FieldValues['eMail']  := eMail; 
        FieldValues['Telefon']  := Telefon; 
        FieldValues['Mobile']  := Mobile; 
        FieldValues['Art']  := Art; 

        post; 
        result :=  LastIdentity; 
        _query.Close; 
    finally 
        freeandnil(_query); 
        //result := 0;     --> Sonst wird dir nach aussen immer 0 ausgegeben
    end; 
end;

function LastIdentity : integer;
begin
    with _query do begin 
        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;
           _query.Close; 
           exit;
        finally 
           freeandnil(_query); 
       end; 
    end;
end ;

Hi Jelly,

der liefert mir immer 0 als result

Gruss

EL