Aaddressing to your problem considering the SQL server 2000 database
Create two functions: one for creating global variable object and other to get the running serial number....and use running serial number function in any query.
CREATE FUNCTION dbo.CreateGlobalObject()
RETURNS integer AS
BEGIN
DECLARE @objReturn integer
EXECUTE sp_OACreate 'VBScript.RegExp', @objReturn OUTPUT
EXECUTE sp_OASetProperty @objReturn, 'Pattern', ''
RETURN @objReturn
END
GO
CREATE FUNCTION dbo.RunningSerialNo(@ObjGlobal integer,@StartNumber integer)
RETURNS INTEGER
AS
BEGIN
DECLARE @ReturnNumber INTEGER, @ObjTemp varchar(1000)
IF @StartNumber IS NULL
SET @StartNumber = 1
EXECUTE sp_OAGetProperty @ObjGlobal, 'Pattern', @ObjTemp output
IF @ObjTemp = 0 AND @StartNumber <> 0
SET @ReturnNumber = @StartNumber
ELSE
SET @ReturnNumber = convert(numeric, '0'+@ObjTemp) + 1
SET @ObjTemp = convert(varchar(1000), @ReturnNumber)
EXECUTE sp_OASetProperty @ObjGlobal, 'Pattern', @ObjTemp
RETURN @ReturnNumber
END
GO
/************************************************** *********/
DECLARE @a INT
SET @a = dbo.CreateGlobalObject()
SELECT dbo.RunningSerialNo(@a,236) SerialNo,* FROM <TABLE_NAME>
/************************************************** *********/
Cheers,
Pooja Falor
|