Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#5

Re: Mehr Benutzer Primary Key Insert in Tabelle

  Alt 15. Feb 2005, 15:01
Zitat von etom291272:
Der Grund für die Nichtverwendung eines Autowerts oder eine GUID ist das ich bei der Scannererfassung
eine fortlaufende Zahl ohne Lücken brauche weil ich in den Barcodes eigene Prüfziffern integrieren muss die auf den Etiketten der Dokumente sind.
Du kannst auf dem MSSQL Server auch einen Generator nachbilden:
Erzeuge eine Tabelle "Generators" mit:
SQL-Code:
CREATE TABLE [Generators] (
   [IdGenerator] [varchar] (20) NOT NULL ,
   [CurrentValue] [int] NOT NULL
)
GO

ALTER TABLE [Generators]
   CONSTRAINT [PK_Generators] PRIMARY KEY
   (
   [IdGenerator]
   )
GO
Über folgende Stored Procedure bekommst du dann immer einen neuen Keywert:
SQL-Code:
Create procedure generator_id ( @IdGenerator varchar(20))
as
begin
      declare @ID integer

      SET TRANSACTION ISOLATION LEVEL SERIALIZABLE
      BEGIN TRANSACTION SP_GEN_ID

      select @ID = CurrentValue from Generators where IdGenerator =@IdGenerator
      IF @@ERROR <> 0 GOTO LBL_ERROR
      update Generators set CurrentValue =CurrentValue + 1 where IdGenerator=@IdGenerator
      IF @@ERROR <> 0 GOTO LBL_ERROR

      COMMIT TRANSACTION SP_GEN_ID
      return @ID

LBL_ERROR:
      ROLLBACK TRANSACTION SP_GEN_ID
      return 0
end
Andreas
  Mit Zitat antworten Zitat