Avatar billede -sofus- Nybegynder
04. april 2005 - 11:10 Der er 7 kommentarer og
1 løsning

DB udtræk i 2 koloner ?

Jeg sidder og skal bruge et db udtræk i 2 koloner.

Jeg har altid brugt en loop funktion, som bare blev ved med at lave en ny række, men skal bruge 2 koloner med data denne gang.

Min kode ser pt sådan ud.

<%
strSQL = "select * from tabal"
set rs = Conn.execute(strSQL)
Do Until rs.EOF
%>
              <tr class="menu">
                <td height="25" align="right"><%= rs("navn") %></td>
                <td height="25">&nbsp;</td>
              </tr>

<%RS.MoveNext
Loop
%>

Håber i forstår hvad jeg mener
Avatar billede kalp Novice
04. april 2005 - 11:24 #1
<table border="0" cellspacing="0" cellpadding="0" width="162">
                          <tr>
<%
strSQL = "select * from tabal"
set rs = Conn.execute(strSQL)
Do Until rs.EOF
%>

                            <td valign="top" width="91">
                   
                              <div align="left"><font size="1                              <% = rs("navn) %>
                              </font></div>
                            </td>
                            <td valign="top" width="71">
                              <div align="center"><font size="1">
                              <%= rs("")%>
                                </font></div>
                         
                            </td>
<%RS.MoveNext
Loop
%>
                          </tr>
                        </table>





ja det er morgen.. ved sgu ikke lige om jeg har fået tabellen rigtigt med hehe
Avatar billede -sofus- Nybegynder
04. april 2005 - 11:36 #2
Så laver den bare 2 ens koloner (;
Avatar billede -sofus- Nybegynder
04. april 2005 - 11:50 #3
prøver lige at ilustrere det.

Sådan som tabel var først:

ID1
ID2
ID3
ID4

Sådan som jeg ønsker det:

ID1          ID2
ID3          ID4
ID5          ID6

Sådan som din kode gjorde

ID1          ID1
ID2          ID2
ID3          ID3
ID4          ID4
Avatar billede kalp Novice
04. april 2005 - 13:08 #4
du skal nok rykke rundt på tingene, men du får vel ide af dette:)

<table border="0" cellspacing="0" cellpadding="0" width="162">
                          <tr>
<%
dim counter
counter = 0
strSQL = "select * from tabal"
set rs = Conn.execute(strSQL)
Do Until rs.EOF
%>
<% if counter = 2 then %>
<%counter = 0%>
<%end if%>
<% if counter = 0 then %>                 
        <td valign="top" width="91">
                 
                              <div align="left"><font size="1                              <% = rs("navn) %>
                              </font></div>
                            </td>
                          <% else %> <td valign="top" width="71">
                              <div align="center"><font size="1">
                              <%= rs("navn")%>
                                </font></div>
                         
                            </td><% end if%>

<%
counter = counter + 1
RS.MoveNext
Loop
%>
                          </tr>
                        </table>
Avatar billede sitemaster Nybegynder
04. april 2005 - 13:20 #5
Her er en måde, sorry for min måde at forklare det på, men forklare ting på som jeg gerne selv vil have det :D

'Først skal vi have antallet af records at vide
strSQL = "select Count(Navn) AS Antal from tabal"
set rs = Conn.execute(strSQL)
Antal = rs("Antal")
rs.Close
Set rs = nothing

'Så henter vi de data vi skal bruge
strSQL = "select * from tabal"
set rs = Conn.execute(strSQL)

'Vi skal bruge en tæller
Menu = 0

'Lav starten af tabellen
Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""162"">"

'lav Menuen
Do Until rs.EOF

If Menu = 0 Then

Response.Write " <tr class=""menu"">" & _
                "  <td height=""25"" align=""right"">" & rs("name") & "</td>"

Menu = Menu + 1

ElseIf Menu = 1 Then

Response.Write "  <td height=""25"" align=""right"">" & rs("name") & "</td>" & _
                " </tr>"

Menu = 0

End If

RS.MoveNext
Loop

'Så tjekker vi om antallet af records er et ulige tal
If Antal Mod 2 <> 0 Then
Response.Write "  <td></td>" & _
                " </tr>"
End If

'Afslut tabellen
Response.Write "</table>"
Avatar billede sitemaster Nybegynder
04. april 2005 - 13:32 #6
rs("name") i min kommentar skal selvfølgelig være rs("navn") for at det virker ved dig :D
Avatar billede -sofus- Nybegynder
04. april 2005 - 13:51 #7
Kalp med mindre modifikationer virkede din version, så smid lige et svar.
Avatar billede kalp Novice
04. april 2005 - 14:06 #8
*G* ja jeg tænkte det nok:) men kunne ikke teste selv desværre:)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester