Hur radera poster, relaterade till andra poster?

Kan det här kanske funka? Har inte testat, men man kan ju hoppas. (Om du inte ville ha det som en enda SQL-fråga?)

Sub DeleteTree(intId)
  strSQL = "SELECT id FROM tbl WHERE cat_parent_id = " & intId
  Set objRS = objConn.Execute(strSQL)

  If NOT objRS.EOF Then
    Do Until objRS.EOF
      DeleteTree objRS(0)
      objRS.MoveNext
    Loop
  End If

  objRS.Close : Set objRS = Nothing

  strSQL = "DELETE FROM tbl WHERE id = " & intId
  objConn.Execute(strSQL),,128
End Sub

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "..."
DeleteTree 10
objConn.Close : Set objConn = Nothing

Hmm, nja.. det känns inte bra att göra så.
Det blir sjukt många rundor den måste snurra för att plocka upp allt.

r/: Efter test får jag följande felmeddelande: Out of memory: 'objConnect.Execute'

http://www.intelligententerprise.com/001020/celko.jhtml?_requestid=57016

Det finns en relevant länk till i tråden om self-join.

Flyttas från ASP

Hmm.. jag får inget på den sidan att fungera tyvärr.
Har du någon mer länk eller exempel som tar upp detta?

Jag kan lista relationerna, men jag får inte till hur jag ska lyckas få
in id´t på den parent, med underkategorier, som jag vill radera.

[red]SELECT a.cat_name AS parent, b.cat_name AS child FROM tbl AS a, tbl AS b WHERE a.id = b.cat_parent_id;[/red]

Hur ser din tabelldefinition ut? Om cat_parent_id är foreign key till id (vilket den borde vara), så borde väl en cascade on delete kunna hjälpa dig?

Re: Hur radera poster, relaterade till andra poster?

Palle skrev:

Har stött på patrull när jag ska försöka radera poster från databasen (mySQL),
jag vet inte riktigt hur jag ska göra för att göra det riktigt smidigt.

Eftersom mySQL ännu inte stödjer sub-querys, och således heller inte cascade delete,
så är svaret på din fråga - Nej, det hjälper mig inte.

Ok, om vi ändrar lite på min approach här.
Säg att jag vill lista alla relaterade underkategorier till, ur mitt exempel, Kombi-modeller.

Hur ska jag då göra?
Tips?

Någon som har nått konkret tips att bjuda på?

Men det lär väl bli en rekursiv funktion i presentationslagret för att göra det.

Sub ShowTree(intId)
  strSQL = "SELECT cat_name,id FROM tbl WHERE cat_parent_id = " & intId
  Set RS = objConn.Execute(strSQL)

  If NOT objRS.EOF Then
    Do Until objRS.EOF
         Response.write(RS(0)&" | "& RS(1) &"<br>")
      ShowTree RS(0)
      objRS.MoveNext
    Loop
  End If
End Sub

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "..."
ShowTree 10
objConn.Close : Set objConn = Nothing

Eller tänker du på ngt annat?

Jesper T skrev:

Men det lär väl bli en rekursiv funktion i presentationslagret för att göra det.

En massa kod..

Eller tänker du på ngt annat?

Palle skrev:

Hmm, nja.. det känns inte bra att göra så.
Det blir sjukt många rundor den måste snurra för att plocka upp allt.

r/: Efter test får jag följande felmeddelande: Out of memory: 'objConnect.Execute'

Nja, det där har jag ju redan testat och det fungerar inte..

Det kan vara att min kåd är felskriven men, skall du hämta alla underliggande "kategorier" så måste det väl vara någon form av rekursiv funktion. Eventuellt så kan man med en SP i MsSql göra det samma, vet inte riktigt.

Jesper T skrev:

Det kan vara att min kåd är felskriven men, skall du hämta alla underliggande "kategorier" så måste det väl vara någon form av rekursiv funktion. Eventuellt så kan man med en SP i MsSql göra det samma, vet inte riktigt.

Nja.. jag hade, innan jag postade här, testat en liknande funktion.. men när funktionen gjort
några 1000 loopar/execute så fick jag det där felmeddelandet.. så jag tror inte att en sådan
funktion är tillräckligt stabil för att jag skulle använda den.

Jag använder som sagt mySQL här så någon SP kan jag heller inte skapa. *suck*