Lista hela tabellen

Nedan kommer en lite mera avancerad variant av föregående programexempel.

Största skillnaden är ett detta program går igenom alla fält och placerar ut resultatet i en tabell. Observera att jag inte vet/bryr mig i vad fälten heter för jag kontrollerar detta från tabellen

Jag har dessutom satt in en ORDER BY i SQL satsen för att få resultatet sorterat.

Man kan då skriva följande kod:

<!-- #include file="connection.asp" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn
Set RS = Conn.Execute("SELECT * FROM EXEMPELDATA ORDER BY aTEXT")
%>
<TABLE BORDER=1>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
   <TD><B><% = RS(i).Name %></B></TD>
<% Next %>
</TR>
<% Do While Not RS.EOF %>
   <TR>
   <% For i = 0 to RS.Fields.Count - 1 %>
   <TD VALIGN=TOP><% = RS(i) %></TD>
   <% Next %>
   </TR>
   <%
   RS.MoveNext
Loop

RS.Close
Conn.Close
%>

Förklaring till ovanstående program:

---

Set Conn = Server.CreateObject("ADODB.Connection")

Som föregående program. Skall alltid vara likadant

Conn.Open strConn

Alltid likadant

Set RS = Conn.Execute("SELECT * FROM EXEMPELDATA ORDER BY aTEXT")

Vi säger vilken tabell vi vill ha med hjälp av en vanlig SQL SELECT sats. ORDER BY aTEXT gör att det sorteras enligt fältet aTEXT

For i = 0 to RS.Fields.Count - 1

Gå igenom samtliga fält

= RS(i).Name

Och skriv ut dem i en tabellrad

Next

Tag nästa fält

Do While Not RS.EOF

Loopa tills slutet av tabellen

For i = 0 to RS.Fields.Count - 1

Gå igenom samtliga fält

=RS(i)

Vi sätter in INNEHÅLLET i fältet i tabellen.

RS.MoveNext

Vi flyttar till nästa post (rad)

Loop

Vi upprepar ovastående så länge som vi inte har kommit till slutet av tabellen

RS.Close

När vi är färdiga så stänger vi vårt recordset

Conn.Close

Och avbryter kontakten till databasen

Resultatet av ovanstående program blir: