Enkelt plotta ett recordset?

3 svar · 222 visningar · startad av tonyh 23 juli 2003

tonyhMedlem sedan okt. 2002107 inlägg

Frågan23 juli 2003 13:30#1

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

solbulleMedlem sedan mars 20015 287 inlägg

23 juli 2003 14:16#2

Kanske:

while col_pos < Rs.Fields.Count

Engine^Medlem sedan dec. 20003 887 inlägg

24 juli 2003 08:44#3

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

tonyhMedlem sedan okt. 2002107 inlägg

5 aug. 2003 12:22#4

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...