---
title: "Forum select"
type: "forum-thread"
url: "https://www.webforum.nu/amne/databaser-sql/69471-forum-select"
topic: "Databaser & SQL"
topic_url: "https://www.webforum.nu/amne/databaser-sql"
author: "dotnet-snake"
published: "2003-02-26T10:13:34.000Z"
updated: "2003-02-28T14:15:43.000Z"
replies: 2
views: 215
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/69471-forum-select"
---

# Forum select

## #1 — dotnet-snake, 2003-02-26T10:13Z

Hejsan
jag har valt att bygga mitt forum med SqlDataReader
men jag vet inte hur jag skall lägga ut looparna / SQL sattserna så att den tar Root tråden å sen skriver ut alla tråder som har samma ID å tillhör. här är Coden
Jag är väldig tacksamm för all hjälp jag kan få
tack på förhand.

	function testar()
		dim strSql as string
		dim objDataReader as sqlDataReader
		dim objDataReader2 as sqlDataReader
			strSql = "SELECT \* FROM konftest"
			objDataReader = getData.getQuerysqlCommand(strSql).ExecuteReader()
			
			Do while objDataReader.Read()
			hej2.Text += "\<b\>" & objDataReader("konfName") & "\</b\>\<br\>" 
			strSql = "SELECT \* FROM konfSvar WHERE konf_Id='" & objDataReader("konf_Id").ToString() & "'"
			objDataReader2 = getData.getQuerysqlCommand(strSql).ExecuteReader()
			Do while objDataReader2.Read()
			hej.Text += objDataReader2("konfRubrik") & "\<br\>" 
			loop
			loop
	
	End function

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

## #2 — renholm, 2003-02-28T12:18Z

Flyttas till SQL forumet.

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

## #3 — juventus1, 2003-02-28T14:15Z

Här får du en ide om hur du kan göra:

```
function testar() 
dim strSql as string 
dim objDataReader as sqlDataReader 
strSql = "SELECT a.konfName, b.konfRubrik FROM konftest a,
konfSvar b WHERE b.konf_ID = a.konf_ID ORDER BY a.DatePosted DESC" 
objDataReader = getData.getQuerysqlCommand(strSql).ExecuteReader() 

Do while objDataReader.Read() 
hej2.Text += "<b>" & objDataReader("konfName") & "</b><br>" 
hej.Text += objDataReader("konfRubrik") & "<br>" 
loop

End function
```

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

---

Tråden på webben: https://www.webforum.nu/amne/databaser-sql/69471-forum-select