Insert in MSSQL 2008 mit PrimaryKey und automatischem Hochzählen funktioniert nicht

[Piro]

Moin zusammen,

ich hoffe einer von euch kein das Problem.

Ich habe ein Tabelle mit einem PrimaryKey "ID", der hochgezählt wird.
Hier mein Script zur Erstellung der Tabelle.

Code:

USE [KECCIDB]
GO

/****** Object:  Table [dbo].[requests]    Script Date: 05/30/2013 09:08:02 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

SET ANSI_PADDING ON
GO

CREATE TABLE [dbo].[requests](
   [id] [int] IDENTITY(1,1) NOT NULL,
   [title] [varchar](200) NOT NULL,
   [description] [varchar](500) NOT NULL,
   [project_extern] [bit] NOT NULL,
   [project_aqa] [bit] NOT NULL,
   [project_6sigma] [bit] NOT NULL,
   [requester] [varchar](100) NOT NULL,
   [record_created] [datetime] NULL,
   [customer_requested_start_date] [date] NULL,
   [customer_requested_end_date] [date] NULL,
   [project_start_date] [date] NULL,
   [project_end_date] [date] NULL,
   [duration] [float] NOT NULL,
   [completed_cancelled] [datetime] NULL,
   [lastupdate] [datetime] NULL,
   [lasteditor] [varchar](50) NOT NULL,
   [costs_expected_exchange_rate_dollar] [float] NOT NULL,
   [project_minutes] [ntext] NOT NULL,
 CONSTRAINT [PK_requests] PRIMARY KEY CLUSTERED 
(
   [id] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]

GO

SET ANSI_PADDING OFF
GO

Mit folgendem Code führe ich einen Insert durch und verwende dabei die TADODataSet Komponente. Unter MSSQL 2005 war das nie ein Problem und klappte immer.

Delphi-Quellcode:

 DSData.FieldByName('title').AsString                              := edt_title.Text;
 DSData.FieldByName('description').AsString                        := edt_description.Text;
 DSData.FieldByName('project_extern').AsBoolean                    := cb_project_extern.Checked;
 DSData.FieldByName('project_aqa').AsBoolean                       := cb_project_aqa.Checked;
 DSData.FieldByName('project_6sigma').AsBoolean                    := cb_project_6sigma.Checked;
 DSData.FieldByName('requester').AsString                          := cb_requester.Text;
 DSData.FieldByName('record_created').AsDateTime                   := recordCreated;
 DSData.FieldByName('customer_requested_start_date').AsVariant     := customer_requested_start_date;
 DSData.FieldByName('customer_requested_end_date').AsVariant       := customer_requested_end_date;
 DSData.FieldByName('project_start_date').AsVariant                := customer_project_start_date;
 DSData.FieldByName('project_end_date').AsVariant                  := customer_project_end_date;
 DSData.FieldByName('duration').AsFloat                            := ConvertToNummeric(edt_duration.Text);
 DSData.FieldByName('completed_cancelled').AsVariant               := Now; //completed_cancelled;
 DSData.FieldByName('lastupdate').AsDateTime                       := Now;
 DSData.FieldByName('lasteditor').AsString                         := lastEditor;
 DSData.FieldByName('costs_expected_exchange_rate_dollar').AsFloat := ConvertToNummeric(edt_expected_exchange_rate_dollar.Text);
 DSData.FieldByName('project_minutes').AsString                    := notepad.Text;
 DSData.Post;
 DSData.Close;

Sobald er den Post ausführt, kommt die Fehlermeldung im Anhang. Es kann nur die Spalte ID sein. Wenn ich sie im Insert mit angebe und z.B. Null zuweise geht es auch nicht. In eine Java Projekt machen wir das mit der Null und da funktioniert es.
Ab MSSQL 2008 hat sich da was geändert für den PrimaryKey mit AutoID.

Bloß wo muss ich jetzt was setzten, dass der Insert (neue Datensatz) funktioniert.

Danke im Voraus.
Sven

[Bernhard Geyer]

Glaube nicht das hier der Fehler beim MS SQL-Server liegt. Eher bei ADO(Express)/dbGO.

Könnte mir vorstellen das die dbGo-Komponenten nicht erkenne das hier eine AutoInc-Spalte vorliegt.
Was sagt der SQL-Profiler der Datenbank? Was kommt an?

[Piro]

Danke für die schnelle Antwort.

Ein Insert direkt mit MSSQL S2008 Studio funktioniert ohne Probleme.

Also liegt es an ADO, wie es erwähnt wurde.

Den SQL-Profiler kenne ich leider nicht. Wo kann ich ihn finden?

Wie müsste ich denn ADO anpassen?

[Uwe Raabe]

Prüf doch mal nach, ob das ID-Feld in DSData als ReadOnly markiert ist bzw. mache es ReadOnly.

[Piro]

Es ist ReadOnly.

Einfaches folgendes vorweg gesetzt.

Delphi-Quellcode:

 if DSData.FieldByName('id').ReadOnly then
   ShowMessage('readonly') 
 else
   ShowMessage('not readonly');

 DSData.FieldByName('title').AsString := edt_title.Text;
...

Das DSData hat nur die Standardeinstellungen. FieldDefs und Parameters sind leer. Einstellungen im Anhang.

[Uwe Raabe]

Anderer Ansatz. Beim Erzeugen der Tabelle ist das NOT NULL bei ID bestenfalls redundant, hier eventuell aber störend:

Code:

CREATE TABLE [dbo].[requests](
   [id] [int] IDENTITY(1,1) NOT NULL,

[Piro]

Das war es nicht. Ich habe die Tabelle neu erstellt ohne die Angabe von NOT NULL. Es setzt es automatisch auf NOT NULL. Mit der Angabe NULL funktioniert es nicht, dass es ein Primary Key ist.

Kann es sein, dass eventuell TADODataSet hier nicht mehr passt?

Klappt es vielleicht mit TADOQuery oder TADOCommand?

Danke im Voraus.

[tgvoelker]

Liegt meines Erachtens nicht an ADO, sondern an der verwendeten Komponente.

Der Hinweis in der OH

Zitat:

Für SQL-Anweisungen wie DELETE, INSERT und UPDATE sind Komponenten wie TADOCommand oder TADOQuery besser geeignet.

läßt schließen, daß diese Komponenten sich anders verhalten. Insofern macht ein Versuch da klug. TADOTable wäre sicherlich auch eine Möglichkeit.

Mit SDAC hatte ich niemals solche Effekte.

[sx2008]

Die VCL muss wissen dass es sich beim Feld "ID" um ein Autoincrementfeld handelt.
Leider hat ADO/VCL einige Bugs im Bezug auf das Auslesen von Feldinformationen.
dataset.FieldByName('ID').AutoGenerateValue := arAutoInc;

[Uwe Raabe]

Zitat von sx2008:

Die VCL muss wissen dass es sich beim Feld "ID" um ein Autoincrementfeld handelt.
Leider hat ADO/VCL einige Bugs im Bezug auf das Auslesen von Feldinformationen.

Das war auch der Hintergrund meiner Frage, ob das Feld ReadOnly sei. Ein ReadOnly-Feld sollte bei einem Post eigentlich gar nicht an den Server übertragen werden.