DBGrid Zeile in AfterScroll Ereignis erzeugen

[Luca Haas]

Hi Leute,
wie im Titel schon gesagt, habe ich ein DBGrid, für das es ein AfterScroll-Ereignis, welches die ID abfragt, gibt.
Daher habe ich jetzt das Problem, dass ich, jedes Mal eine Fehlermeldung bekomme, wenn ich eine neue Zeile in die Datenbank einfügen will, da die ID erst mit dem Speichern der Zeile eingefügt wird.

Delphi-Quellcode:

   
AufgabenVorlagenQuery.Close;
AufgabenVorlagenQuery.SQL.Text := ('SELECT * FROM AufgabenVorlagen WHERE AufgabenMusterID = ' + AufgabenMusterQuery.FieldByName('ID').AsString + ' ORDER BY Position ASC');
AufgabenVorlagenQuery.Open;

Weiß jemand wie ich es hinbekomme, dass die ID sofort eingesetzt wird und nicht erst mit dem Speichern?

[mkinzler]

Setzte das Feld auf "NULL". Dann sollte es funktionieren.

[Luca Haas]

Wie genau setze ich denn ein Feld auf null ?

[Uwe Raabe]

AufgabenMusterQuery.FieldByName('ID').Clear;

[Luca Haas]

Jetzt bekomme ich beim Start die Fehlermeldung, dass die Datenmenge weder im Editier-noch im Einfügemodus ist.
Und wenn ich jetzt eine Zeile hinzufügen will erhalte ich die Nachricht, dass ich das Feld ID nicht verändern kann.

[Uwe Raabe]

Sieht aus, als müsstest du dein Problem etwas deutlicher erläutern.

Was hast du vor?
Was tust du?
Was geht nicht?

[nahpets]

1. Wie ist das Feld in der Datenbank definiert?
2. Vor dem Ändern eines Wertes: Dataset.Edit
3. Nach dem Ändern eines Werte: DataSet.Post

Datensätze, die man zur Laufzeit in 'nem DBGrid einfügt und deren Werte erst vollständig von der Datenbank gefüllt werden, also z. B. AutoInc-Spalten, Sequenzen, Trigger, die Werte ergänzen ..., kann man erst nach 'nem erneuten Öffnen der Tabelle beschreiben. Vorher gibt es eine Fehlermeldung, die abhängig vom Datenbanktyp, variieren kann.

Ebenso sieht man die von der Datenbank vergebenen Werte erst nach 'nem erneuten Lesen der Daten.

AutoInc-Spalten kann man (in der Regel) im Programm nicht ändern, weder durch Zuweisen eines Wertes, noch durch Clear ...

Manche Datenbanken unterstützen noch ein DataSet.Refresh. Das muss man mit "seiner" Datenbank austesten, verliert dadurch aber sehr schnell die Datenbankunabhängigkeit.

[Luca Haas]

Okay ich habe das Problem gelöst, indem ich den Fehler umgangen habe

Delphi-Quellcode:

procedure THauptForm.AufgabenMusterQueryAfterScroll(DataSet: TDataSet);
begin
  if not (AufgabenMusterQuery.State in [dsinsert]) then
  begin
    AufgabenVorlagenQuery.Close;
    AufgabenVorlagenQuery.SQL.text := ('SELECT * FROM AufgabenVorlagen WHERE AufgabenMusterID = ' + AufgabenMusterQuery.FieldByName('ID').AsString + ' ORDER BY Position ASC');
    AufgabenVorlagenQuery.Open;
  end;
end;

ich sage einfach, er soll nur ins AfterScroll Ereignis gehen, wenn er nicht im Bearbeitungsmodus ist

[Uwe Raabe]

Zitat von Luca Haas:

ich sage einfach, er soll nur ins AfterScroll Ereignis gehen, wenn er nicht im Bearbeitungsmodus ist

Dann wäre diese Abfrage besser geeignet:

if (AufgabenMusterQuery.State in [dsInactive, dsBrowse]) then

[Luca Haas]

Okay, dann ändere ich das noch, danke schön