---
title: "Enkelt plotta ett recordset?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/82554-enkelt-plotta-ett-recordset"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tonyh"
published: "2003-07-23T13:30:15.000Z"
updated: "2003-08-05T12:22:34.000Z"
replies: 3
views: 229
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/asp/82554-enkelt-plotta-ett-recordset"
---

# Enkelt plotta ett recordset?

## #1 — tonyh, 2003-07-23T13:30Z

Hur är det man i ASP/VB-script på ett enkelt sätt skriver för att plotta ett recordsets alla kolumner?

Jag känner ej till syntaxen men det är ungefär så här jag vill att det skall se ut?

```
Dim col_pos, myHtmlStr
' Sätt kolumnposition
col_pos = 0

' Loopa igenom recordsetet
while not Rs.EOF
  ' loopla igenom kolumnerna
  while col_pos < Rs.ColumnCount
    myHtmlStr = myHtmlStr & "&nbzp;" & Rs(col_pos)
    col_pos = col_pos + 1
  wend
  myHtmlStr = myHtmlStr & "<br>"
  Rs.MoveNext
wend
```

Ni fattar nog ungefär vad jag försöker göra?
Men kan ni fixa en fungerande kod vore jag tacksam...

Tack på förhand!
Mvh / Tony H

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

## #2 — solbulle, 2003-07-23T14:16Z

Kanske:

  while col_pos \< Rs.Fields.Count

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

## #3 — Engine^, 2003-07-24T08:44Z

```
While Not Rs.EOF
  For Each objFld In Rs.Fields
    myHtmlStr = myHtmlStr & "&nbsp;" & Rs(objFld.Value)
  Next

  myHtmlStr = myHtmlStr & "<br>"
  Rs.MoveNext
Wend
```

Det kan nog tänkas fungera

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

## #4 — tonyh, 2003-08-05T12:22Z

Om någon annan behöver koden så ser den ut enligt följande...

Det löste sig på följande sätt...

```
	' Get all columnnames
	For Each objFld In rs.Fields
		myHtmlStr = myHtmlStr & "<TD><b>" & objFld.Name & "</b></TD>"
	Next
	 
	' Get all data...
	While Not rs.EOF
		myHtmlStr = myHtmlStr & "</TR><TR>" & vbCrLf
		For Each objFld In rs.Fields
			myHtmlStr = myHtmlStr & "<TD>&nbsp;" & objFld.Value & "</TD>"
		Next
		rs.MoveNext
	Wend
	
	'Start and end of table tags...
	myHtmlStr = "<TABLE border=1><TR>" & myHtmlStr & "</TR></TABLE>"
```

Kanske inte optimal kod då den konkatinerande strängen säkert suger en hel del resurser när den växer, men men...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/82554-enkelt-plotta-ett-recordset