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,

[Bernhard Geyer]

Zitat von Piro:

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

Du must unterscheiden:

ADO: Technik von MS die auf OLE/DB aufsetzt.

ADOExpress (bzw. umbenannt auf dbGo weil MS hier Namensrechte verletztsieht): Technik von Borland/Codegear/Emba welche sicherlich einige Fehler hat.

[Piro]

Moin,

ich habe den Fehler gefunden. Es liegt nicht an der ID. Da ist alles ok.

Ich habe ein TSynEdit in meiner Anwendung. Wenn nichts hinein geschrieben wird, wird Null übergeben. Hätte ich so nicht erwartet.

Das ist der Grund der Fehlermeldung.

Danke an alle. Durch euch habe ich die Ansätze schneller hinbekommen.

Geniales Forum.

Schönen Tag euch.
Sven