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.

markieren

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.

zusammenfalten · markieren

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

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

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

Forumregeln