---
title: "join och delete"
type: "forum-thread"
url: "https://www.webforum.nu/amne/databaser-sql/45958-join-och-delete"
topic: "Databaser & SQL"
topic_url: "https://www.webforum.nu/amne/databaser-sql"
author: "aleborg"
published: "2002-06-15T12:31:29.000Z"
updated: "2002-06-15T15:18:40.000Z"
replies: 2
views: 188
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/databaser-sql/45958-join-och-delete"
---

# join och delete

## #1 — aleborg, 2002-06-15T12:31Z

Går det att sätta ihop det här till en, eller ev. två deletes utan att loopa? t ex med join eller nått?

```
Public Sub DelCategory(ID)
	Dim strSQLlist, SQL, objRSlist
	
	strSQLlist = "Select Forum_ID From aForums Where Forum_Sub="& ID
	Set objRSlist = GetConn.Execute(strSQLlist)
	If Not objRSlist.EOF Then
		Do Until objRSlist.EOF
			SQL = "Delete From aF_Topics Where Topic_Category="& objRSlist("Forum_ID")
			GetConn.Execute(SQL),,128
		objRSlist.MoveNext
		Loop
	End If
	objRSlist.Close
	Set objRSlist = Nothing

	SQL = "Delete From aForums Where Forum_Sub="& ID
	GetConn.Execute(SQL),,128
	SQL = "Delete From aForums Where Forum_ID="& ID
	GetConn.Execute(SQL),,128
	

End Sub
```

Använder MySQL 3.23

Permalänk: https://www.webforum.nu/p/45958

## #2 — LarsG, 2002-06-15T15:16Z

Nej, det du kan göra att slå ihop dom två sista delete-satserna.

```
SQL = "Delete From aForums Where "& ID & "in(Forum_Sub,Forum_ID)"
	GetConn.Execute SQL,,128
```

Det är effektivare att du samlar alla id i en sträng och bara gör en delete

```
If Not objRSlist.EOF Then
   sql = "Delete From aF_Topics Where Topic_Category in " & "(" & objRSlist.getstring(2,,,",",) & ")"
   getconn.execute sql,,128
End If
```

Permalänk: https://www.webforum.nu/p/698050

## #3 — aleborg, 2002-06-15T15:18Z

ahh, tack

Permalänk: https://www.webforum.nu/p/698052

---

Tråden på webben: https://www.webforum.nu/amne/databaser-sql/45958-join-och-delete