Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#2

AW: Baumstruktur kopieren - Ansatz gesucht

  Alt 8. Dez 2010, 09:01
Ich kenne mich mit MySQL nicht aus, unter MSSql habe ich es so gelöst:
Code:
ALTER Procedure [dbo].[P_CopyUebungsbaum] (@FromID int,@ToID int) as
/*
20080227 by Thomas Wassermann
Problem Cursorname bei Recursionen daher EXEC(@SQL)
*/
Declare @SQL Varchar(8000)
Select @SQL=
'
Declare @NewID int
Declare @x int
Insert Into Uebungsbaum (Beschreibung,ParentID,Sort) Select Beschreibung,@ToID,Sort from Uebungsbaum where ID=@FromID

Select @NewID=Ident_Current(''Uebungsbaum'')
INsert into Uebungsbaum_Uebungen (Uebungsbaum_id,Uebungen_IDX) select @NewID,Uebungen_IDX from Uebungsbaum_Uebungen where Uebungsbaum_id=@FromID
DECLARE My_Cursor CURSOR FOR
SELECT ID FROM Uebungsbaum WHERE ParentID=@FromID
OPEN My_Cursor

FETCH NEXT FROM My_Cursor
INTO @x
WHILE @@FETCH_STATUS = 0
BEGIN
   EXEC P_CopyUebungsbaum @x,@NewID
   FETCH NEXT FROM My_Cursor
   INTO @x
END

CLOSE My_Cursor
DEALLOCATE My_Cursor
'
Select @SQL=Replace(@SQL,'My_Cursor','My_Cursor'+Cast(@FromID as Varchar(10)))
Select @SQL=Replace(@SQL,'@FromID',Cast(@FromID as Varchar(10)))
Select @SQL=Replace(@SQL,'@ToID',Cast(@ToID as Varchar(10)))

EXEC(@SQL)
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat