Einzelnen Beitrag anzeigen

Benutzerbild von Piro
Piro

Registriert seit: 14. Jul 2003
Ort: Flintbek
810 Beiträge
 
Delphi XE2 Professional
 
#1

TADODataSet - Fehler beim Hinzufügen (Identity Insert)

  Alt 10. Sep 2018, 14:23
Datenbank: MS SQL • Version: 2014 • Zugriff über: ADO
Moin zusammen,

ich verwende folgenden Code, um einen Benutzer in eine Tabelle zu speichern.
Delphi-Quellcode:
DSData.Close;
DSData.CommandText := 'Select * from fehlteilelosreserve_access where id = -1';
DSData.Open;
DSData.Append;

DSData.FieldByName('lanid').AsString := edt_setup_access_lanid.Text;
DSData.FieldByName('username').AsString := edt_setup_access_name.Text;
DSData.FieldByName('access_lieferperformance').AsBoolean := cb_setup_access_lieferperformance.Checked;
DSData.FieldByName('access_admin').AsBoolean := cb_setup_access_admin.Checked;
DSData.Post; // Hier kommt die Exception jetzt.
DSData.Close;
Ich bin von MS SQL 2008 auf MS SQL 2014 umgestiegen und musste gerade feststellen, dass mein Code nicht mehr funktioniert und ich jetzt folgende Fehlermeldung erhalte.
Siehe Anhang.

Wie gesagt, mit MS SQL 2008 ging es. Ich habe auch schon anstatt des Stern *, die Felder aufgezählt im Select CommandText. Auch leider ohne Erfolg.

Das Feld id ist der Primäre Key mit AutoIncrement.

Ich hoffe, dies Problem geht einer und weiß, was ich machen kann.

Danke im Voraus.
Sven
Miniaturansicht angehängter Grafiken
debugger-exception.png  
  Mit Zitat antworten Zitat