Databáze – Delphi – Fórum – Programujte.com

Mám kod

var
        x : integer;
begin

  // zjištìní nejvýšši hodnoty ID
  x := 0;
  Query1.SQL.Clear;
  Query1.SQL.Add('SELECT * FROM Flags.db WHERE ID = (SELECT MAX(ID) FROM Flags.db)');
  query1.Open;
  x := dbtext1.Field.Value;
  inc(x);
  label4.Caption := IntToStr (x);

  //lze rovnou nějak získat z databáze než přiřazovat z labelu?

  //vytvoøení nové hodnoty
  Query1.SQL.Clear;
  Query1.SQL.Add('INSERT INTO Flags.db (ID) VALUES (x)');
  Query1.ExecSQL;

//jak zapsat proměnnou, v tomto případě x?

#1 Rider

zkus tohle:

var x: integer;
begin
  Query.SQL.Clear;
  Query.SQL.add('select max(ID) from Flags.db');
  Query.Open;
    x := Query.Fields[0].asinteger; // pokud potrebujes cislo
  Query.Close;
end;

muzes to zapsat do OnShow treba a v promenne x mas nejvyssi hodnotu sloupce ID

Fields[0]  .....  tdy si samozrejme musis zmenit cislo,podle toho, kolikatej ten sloupec je ...  prvni je vzdycky 0, druhej 1 atd ...