Datenbank schreiben mit Fehlermeldung

[Snyderburn]

Hi Leute,

ich habe ein kleines Problem beim Schreiben in meine Datenbank von Delphi aus. Es kommt da folgende Meldung:

"Operation wird nicht unterstützt - Tabelle ist nicht eindeutig identifiziert"

Lasse ich das Programm aber anschließend weiterlaufen und schaue mir die Datenbank an, dann wurde da trotzdem der gewünsche Datensatz eingetragen!

Hier sind ein paar Statements, die vorher ablaufen:

Zuerst wird noch ein Insert gemacht, damit ich in die Tabelle etwas reinschreiben kann.

Delphi-Quellcode:

procedure TDM1.T_InfoNewRecord(DataSet: TDataSet);
begin
  T_info.FieldByName('ID_info').AsInteger := -1;
end;

Delphi-Quellcode:

procedure TDM1.T_InfoBeforePost(DataSet: TDataSet);
begin
   // hier ID einsetzen, wenn noch nicht gesetzt (-1)!!!
  if ((T_Info.FieldByName('ID_info').AsInteger = -1) or (T_info.FieldByName('ID_info').Asstring = '')) then
  begin
    // bisher höchste ID+1 einsetzen !!!
    dm1.T_info.FieldByName('ID_ANSCHRIFT').asinteger := dm1.T_anschrift.fieldbyname('ID_ANSCHRIFT').AsInteger;
    t_info.FieldByName('ID_info').AsInteger := NextID('info', 'ID_info');
  end;
end;

mfg
Snyderburn