> I didnt work with 2005 much yet and I'm having trouble with a cursor
> script used on 2000.
>
> When this is exececuted it says "The cursor is READ ONLY" and i tried to
> look through books online or internet but couldnt find an answer.

"michael vardinghus" <xx> wrote in message
news:unOddEFhHHA.4600@TK2MSFTNGP05.phx.gbl...
> Greetings All
>
> I didnt work with 2005 much yet and I'm having trouble with a cursor
> script used on 2000.
>
> When this is exececuted it says "The cursor is READ ONLY" and i tried to
> look through books online or internet but couldnt find an answer.
>
> Anyone ?
>
> USE [MIVARTEST_EDW]
>
> GO
>
> /****** Object: StoredProcedure [dbo].[C_51_HDS_OPRET_PERIODER_FINANSÅR]
> Script Date: 04/21/2007 21:06:04 ******/
>
> --ALTER PROCEDURE [dbo].[C_51_HDS_OPRET_PERIODER_FINANSÅR] AS
>
> SET NOCOUNT ON
>
> DECLARE @Arbejdsdag INT
>
> DECLARE @PrevArbejdsdag INT
>
> DECLARE @Dato Datetime
>
> DECLARE @TempPeriode Datetime
>
> DECLARE @Ugedag_nummer INT
>
> DECLARE @Førstedag INT
>
> DECLARE @Helligdag INT
>
> DECLARE @Fridag INT
>
> DECLARE @Periode Datetime
>
> /*
>
> @TempPeriode gemmer det aktuelle Finansår_ID
>
> */
>
> /*
>
> Temporær tabel til at gemme sidste Arbejdsdag Finansår_ID
>
> */
>
> --CREATE TABLE #t (Periode INTEGER PRIMARY KEY)
>
> /*
>
> Cursor, der gennemløber for Periodisering ift Sidste Arbejdsdag FINANSÅR
>
> */
>
> DECLARE cursDim CURSOR FOR
>
> SELECT
>
> Dato,
>
> Arbejdsdag,
>
> Ugedag_nummer,
>
> Helligdag
>
> FROM Dimensions.TID
>
> ORDER BY Dato
>
> FOR UPDATE OF Dimensions.TID.Sidste_Arbejdsdag
>
> OPEN cursDim
>
> FETCH NEXT FROM cursDim
>
> INTO @Dato,
>
> @Arbejdsdag,
>
> @Ugedag_nummer,
>
> @Helligdag
>
>
>
>
>
> WHILE @@FETCH_STATUS = 0
>
> BEGIN
>
> /*
>
> Set @TempPeriode fra Finansår i temp tabel
>
> */
>
> SET @TempPeriode=@Dato
>
> SET @PrevArbejdsdag = @Arbejdsdag
>
> /*
>
> Opdatér Sidste_Arbejdsdag_ID for aktuelle post i cursor
>
> */
>
> UPDATE Dimensions.TID
>
> SET Sidste_Arbejdsdag = @Periode
>
> --(SELECT Periode FROM #t)
>
> WHERE CURRENT OF cursDim
>
> FETCH NEXT FROM cursDim
>
> INTO @Dato,
>
> @Arbejdsdag,
>
> @Ugedag_nummer,
>
> @Helligdag
>
>
>
>
>
> /*
>
> Husker sidste arbejdsdag i #t
>
> */
>
>
>
> IF @PrevArbejdsdag = '1'
>
> BEGIN
>
> -- TRUNCATE TABLE #t
>
> -- INSERT INTO #t VALUES(@Finansår_ID-1)
>
> SET @Periode = @Dato-1
>
> END
>
>
>
>
>
>
>
> END
>
> CLOSE cursDim
>
> DEALLOCATE cursDim
>
> --DROP TABLE #t
>
>
>
>