Hallo,
bei unser Kunden db wir die Kundennummer durch die abfrage maxid automatisch zugewiesen. Jedoch geht er hier in der Kundennummer nie über 10 hinaus. Unsere frge ist ob einer ne ahnung hat warum?? Wir wollen ja mehr als 10 verschiedene Kundennummern vergeben.

zusammenfalten · markieren

Delphi-Quellcode:

begin
   FormNeuerKunde.show;
   FormNeuerKunde.TableNeuerKunde.Active:=True;
   FormNeuerKunde.TableNeuerKunde.insert;


   maxID := -1;
try
  FormNeuerKunde.querySQL.active:=false;
  FormNeuerKunde.querySQL.sql.clear;
  FormNeuerKunde.querySQL.sql.add('SELECT Max(Kundennummer) as maxid FROM Kunde');
  FormNeuerKunde.querySQL.active:=true;
  if FormNeuerKunde.querySQL.RecordCount > 0 then
    maxID:=FormNeuerKunde.querySQL.FieldbyName('maxid').Value
except
end;
     if MaxID = -1 THEN
     FormNeuerKunde.DBEditKundennummer.text:=IntToStr(maxID+2)
     ELSE
     FormNeuerKunde.DBEditKundennummer.text:=IntToStr(maxID+1)



end;

Danke PES

Nutze doch bitte mal die Delphi-Tags

......

Welcher Feldtyp ist Kundennummer?
Gibt es irgendeine Fehlermeldung wenn der Wert 10 überschritten wird?
Hast du es schon debuggt?

Feldtyp ist Alpha, nein es gibt keine Fehlermeldung. Er vergibt einfach dann immer wieder die 10.

Zitat von PES:

Feldtyp ist Alpha, nein es gibt keine Fehlermeldung.

Wie groß ist das Feld?

Größe ist 5

Kommentiere bitte mal den Try/Except-Teil aus. Kommt dann immer noch keine Fehlermeldung?

Immer noch keine Fehlermeldung

Mache mal aus dem Apha- ein Integerfeld.

Funzt, danke
Und kannst uns vielleicht auch erklären warum das falsch war.
Aber großen Dank