Sql-Befehl anpassen

[Kleine]

I hoabs jet :D

Delphi-Quellcode:

function TFormMain.MaxUnivID(tb: string): Integer;
var
  lMax : Integer ;
begin
    qu.Close ;
    qu.SQL.Clear ;
    qu.SQL.Add( Format( 'Select max(ID) as MaxID from %s', [ tb ] ) ) ;
    qu.Open ;
    lMax := qu.FieldByName('MaxID').AsInteger;
    Result := lMax  ;
end;

[rainerg]

Zitat:

Zitat von Kleine (Beitrag 1099304)

I hoabs jet :D

Delphi-Quellcode:

function TFormMain.MaxUnivID(tb: string): Integer;
var
  lMax : Integer ;
begin
    qu.Close ;
    qu.SQL.Clear ;
    qu.SQL.Add( Format( 'Select max(ID) as MaxID from %s', [ tb ] ) ) ;
    qu.Open ;
    lMax := qu.FieldByName('MaxID').AsInteger;
    Result := lMax  ;
end;

Delphi-Quellcode:

function TFormMain.MaxUnivID(tb: string): Integer;
begin
    qu.Close ;
    qu.SQL.Clear ;
    qu.SQL.Add( Format( 'Select max(ID) as MaxID from %s', [ tb ] ) ) ;
    qu.Open ;
    Result := qu.FieldByName('MaxID').AsInteger;
end;

So sparst du noch die Variable lMax und eine entsprechende Zuweisung ;-)

[DeddyH]

Hatte ich das nicht bereits in #3 geschrieben? Außerdem habe ich noch den Feldnamen als Parameter deklariert, falls das Feld einmal nicht ID heißt.

[rainerg]

Zitat:

Zitat von DeddyH (Beitrag 1099320)

Hatte ich das nicht bereits in #3 geschrieben? Außerdem habe ich noch den Feldnamen als Parameter deklariert, falls das Feld einmal nicht ID heißt.

Hups, stimmt - im Code versteckt ;-) - Sorry nicht gesehen!

[omata]

Warum ein Clear und dann ein Add (wenn dann sowieso Append!)?

Setze doch einfach den Text...

Delphi-Quellcode:

function TFormMain.MaxUnivID(tb: string): Integer;
begin
    qu.Close;
    qu.SQL.Text:=Format('SELECT MAX(ID) MaxID FROM %s', [tb]);
    qu.Open;
    Result:= qu.FieldByName('MaxID').AsInteger;
end;