Källkoden för /anders.enges/asp/db2.asp

---

<!--#include file="../inc/navstuff.asp" -->
Nedan kommer en lite mera avancerad variant av föregående programexempel.<p>
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<p>
Jag har dessutom satt in en ORDER BY i SQL satsen för att få resultatet sorterat.<p>

Man kan då skriva följande kod:<p>
<div class=code>
<FONT COLOR=#006400><!-- #include file="connection.asp" --></font><br>
<span class=asp><%<BR>
Set Conn = Server.CreateObject("ADODB.Connection")<BR>
Conn.Open strConn<BR>
Set RS = Conn.Execute("SELECT * FROM EXEMPELDATA ORDER BY aTEXT")<BR>
%></span><BR>
<TABLE BORDER=1><br>
<TR><br>
<span class=asp><% For i = 0 to RS.Fields.Count - 1 %></span><br>
   <TD><B><span class=asp><% = RS(i).Name %></span></B></TD><br>
<span class=asp><% Next %></span><br>
</TR><br>
<span class=asp><% Do While Not RS.EOF %></span><br>
   <TR><br>
   <span class=asp><% For i = 0 to RS.Fields.Count - 1 %></span><br>
   <TD VALIGN=TOP><span class=asp><% = RS(i) %></span></TD><br>
   <span class=asp><% Next %></span><br>
   </TR><br>
   <span class=asp><%<br>
   RS.MoveNext<br>
Loop<br>
<br>
RS.Close<br>
Conn.Close<br>
%></span>
</div>
<p>
Förklaring till ovanstående program:<hr>
<dl>
<dt><Span class=asp>Set Conn = Server.CreateObject("ADODB.Connection")</span>
<dd>Som föregående program. Skall alltid vara likadant<p>
<dt><Span class=asp>Conn.Open strConn</span>
<dd>Alltid likadant<p>
<dt><Span class=asp>Set RS = Conn.Execute("SELECT * FROM EXEMPELDATA ORDER BY aTEXT")</span>
<dd>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<p>
<dt><Span class=asp>For i = 0 to RS.Fields.Count - 1</span>
<dd>Gå igenom samtliga fält<p>
<dt><Span class=asp>= RS(i).Name</span>
<dd>Och skriv ut dem i en tabellrad<p>
<dt><Span class=asp>Next</span>
<dd>Tag nästa fält<p>
<dt><Span class=asp>Do While Not RS.EOF</span>
<dd>Loopa tills slutet av tabellen<p>
<dt><Span class=asp>For i = 0 to RS.Fields.Count - 1</span>
<dd>Gå igenom samtliga fält<p>
<dt><Span class=asp> =RS(i) </span>
<dd>Vi sätter in INNEHÅLLET i fältet i tabellen.<p>
<dt><Span class=asp>RS.MoveNext</span>
<dd>Vi flyttar till nästa post (rad)<p>
<dt><Span class=asp>Loop</span>
<dd>Vi upprepar ovastående så länge som vi inte har kommit till slutet av tabellen<p>
<dt><Span class=asp>RS.Close</span>
<dd>När vi är färdiga så stänger vi vårt recordset<p>
<dt><Span class=asp>Conn.Close</span>
<dd>Och avbryter kontakten till databasen
</dl>
<p>
Resultatet av ovanstående program blir:<br>

<!--  #include file="../inc/connection.asp" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn
Set RS = Conn.Execute("SELECT * FROM EXEMPELDATA ORDER BY aTEXT")
%>
</table>
<div class=res>
<TABLE BORDER=1 width=400>
<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
%> 
</table>
</div>
<table width="740">

<!--#include file="../inc/footer.asp" -->