---
title: "Ordning?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/44820-ordning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "icaaq"
published: "2002-05-29T09:59:28.000Z"
updated: "2002-05-29T13:08:29.000Z"
replies: 10
views: 331
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/44820-ordning"
---
# Ordning?
## #1 — icaaq, 2002-05-29T09:59Z
jag har denna nu
```
[red]
strSQL = Trim(Request.Form("strSQL"))
Response.Write "strSQL: "&strSQL &"
"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "xxx", "xxx", "xxx"
If Left(strSQL, 6) ="SELECT" Then
Set ObjRS = objConn.Execute(strSQL)
If Not objRS.EOF then
arrRS = objRS.Getrows
For i = 0 To Ubound(arrRS,1)
For j = 0 To Ubound(arrRS,2)
Response.Write ""&arrRS(i,j) &"
"& vbCrLf
Next
Next
End IF
Else
objConn.Execute(strSQL),,128
objConn.Close
Set objConn = Nothing
End If
[/red]
```
men den loopar fel, Jag vill att den ska loopa ut en post med alla fält sen nästa post med alla fält...
Detta kanske blev luddigt, så säg till om jag ska försöka förklara mer.... :)
Permalänk: https://www.webforum.nu/p/44820
## #2 — icaaq, 2002-05-29T10:07Z
det blev fel det där......jag tänker ut hur jag ska förklara det.....
Permalänk: https://www.webforum.nu/p/686704
## #3 — @nders, 2002-05-29T10:08Z
Ska du inte byta plats och köra andra dimensionen ytterst?
Permalänk: https://www.webforum.nu/p/686705
## #4 — hypatia, 2002-05-29T10:10Z
Vad händer om du byter plats på for-looparna, dvs börjar med For j = 0 ?
red: sen som vanligt. ;)
Permalänk: https://www.webforum.nu/p/686706
## #5 — icaaq, 2002-05-29T10:14Z
det blev så här...
```
[red]
For i = 0 To Ubound(arrRS,2)
For j = 0 To Ubound(arrRS,1)
Response.Write ""&arrRS(j,i) &"
"& vbCrLf
Next
Next
[/red]
```
tack.....igen :)
men nästa fråga....kan jag få med Fälten som jag valt också?
Permalänk: https://www.webforum.nu/p/686707
## #6 — @nders, 2002-05-29T10:21Z
Ja, om du direkt efter du kör GetRows gör något sånt här:
```
Redim Preserve arrRS(ubound(arrRS,1), ubound(arrRS,2)+1)
For i = 0 to objRS.Fields.Count
arrRs(i, ubound(arrRS,2)) = objRS.Fields(i).Name
next
objRS.Close
```
Nånting sånt. Då har du fältnamnen underst i din tvådimensionella array.
Obs, jag skrev koden direkt ur huvet, så det är ganska otestat...
Mvh,
Permalänk: https://www.webforum.nu/p/686710
## #7 — icaaq, 2002-05-29T12:42Z
Jag får det inte att funka......så här har jag nu
```
[red]
If Left(strSQL, 6) ="SELECT" Then
Set ObjRS = objConn.Execute(strSQL)
If Not objRS.EOF then
arrRS = objRS.Getrows
Redim Preserve arrRS(ubound(arrRS,1), ubound(arrRS,2)+1)
For i = 0 to objRS.Fields.Count
[b]arrRS(i, ubound(arrRS,2)) = objRS.Fields(i).Name[/b]
next
objRS.Close
For i = 0 To Ubound(arrRS,2)
For j = 0 To Ubound(arrRS,1)
Response.Write ""&arrRS(j,i) &"
"& vbCrLf
Next
Next
End IF
[/red]
```
men det ger
**ADODB.Fields error '800a0cc1'
ADO kunde inte hitta objektet i mängden som överensstämmer med det begärda namnet eller numret.
/sql.asp, line 15**
Permalänk: https://www.webforum.nu/p/686777
## #8 — @nders, 2002-05-29T12:45Z
```
For i = 0 to objRS.Fields.Count - 1
```
Kanske... :)
Permalänk: https://www.webforum.nu/p/686778
## #9 — icaaq, 2002-05-29T12:58Z
nu får jag upp namnen men dem hamnar sist........ :(
nån som vet?
Permalänk: https://www.webforum.nu/p/686785
## #10 — @nders, 2002-05-29T13:06Z
Ja, de ska hamna sist, det skrev jag i mitt inlägg.
På vilket sätt är det ett problem?
Du kan ju alltid skriva ut dem genom att referera till Ubound(arrRs,2), och se till att loopa genom Ubound(arrRs,2) -1.
Mvh,
Permalänk: https://www.webforum.nu/p/686797
## #11 — icaaq, 2002-05-29T13:08Z
Tänkte inte så långt.......tack .....ska testa lite till
Permalänk: https://www.webforum.nu/p/686798
---
Tråden på webben: https://www.webforum.nu/amne/asp/44820-ordning