Skriva ut en hel tabell med GetRows

7 svar · 212 visningar · startad av Lukaspojken 24 juni 2001

LukaspojkenMedlem sedan maj 20011 312 inlägg

Trådstart24 juni 2001 15:24#1

Jag vill göra det med Getrows istället för Getstring...det blir lättare att manipulera med postvärdena. Så här långt har jag kommit:

Dim myArray
myArray = RecSet.GetRows()
RecSet.Close
Set RecSet = Nothing
Connect.close
Set Connect=nothing

for i=0 to ubound(myArray)
response.write myArray(i,0) & "<br>"
next

Men denna skriver bara ut den första raden i databasen...det är en loop till jag måste ha kopplat till myArray...men jag vet inte riktigt...det är väl en loop i både databashämtningen och vid utskriften? hmmm...

emissionMedlem sedan dec. 19996 721 inlägg

24 juni 2001 15:47#2

for i=0 to ubound(myArray,2)

så att ubound kollar det andra indexet i arrayen

@ndersMedlem sedan juni 200032 967 inlägg

24 juni 2001 15:47#3

eftersom du med getrows() får en array med två dimensioner, får du loopa på ett lite annorlunda sätt.

exempel:

for i=0 to ubound(myArray,1)
for p = 0 to ubound(myArray,2)
response.write myArray(i,p) & " - "
next
response.write "<br>"
next

red: nu blev jag lite osäker på ordningen på dimensionerna, så det är möjligt du får switcha lite i loopen.

mvh,

LukaspojkenMedlem sedan maj 20011 312 inlägg

24 juni 2001 16:01#4

Hur läser jag in värdena? Är det också en loop eller räcker det med det jag som står i min hämtning?

LukaspojkenMedlem sedan maj 20011 312 inlägg

24 juni 2001 16:21#5

Jag får ut de två första posterna från båda raderna men inte resten...det står

Microsoft VBScript runtime error '800a0009'

Subscript out of range: 'i'

Jag byte plats på i och p för att jag ville få allt som finns på en rad i db:n på en rad i utskriften.

for i=0 to ubound(myArray,1)
	for p = 0 to ubound(myArray,2)
		response.write myArray(p,i) & " - "
	next
	response.write "<br>"
next

LukaspojkenMedlem sedan maj 20011 312 inlägg

24 juni 2001 16:36#6

Fick iordning på det...tack för allt...

så här blev det i alla fall


for i=0 to ubound(myArray,2)
	for p = 0 to ubound(myArray,1)
		response.write myArray(p,i) & " - "
	next
	response.write "<br>"
next

@ndersMedlem sedan juni 200032 967 inlägg

24 juni 2001 16:46#7

Alltid lär man sig något nytt varje dag...

så sant som det är sagt. nu får du inte fråga mer om getrows.

LukaspojkenMedlem sedan maj 20011 312 inlägg

24 juni 2001 17:31#8

Ska försöka...:)

Som sagt getrows är helt underbart....