Avatar billede tele_lucien Nybegynder
10. juni 2002 - 10:30 Der er 15 kommentarer og
1 løsning

Udtræk af Access DB på en bestemt........

Hej med jer.....

Jeg sidder med en kundedatabase lavet i Access. De data jeg skal trække ud af den, som kunde navne, netværk og IP vil jeg have til og blive vist på en bestemt måde på websitet. I stedet for at hver kunde bliver vist en efter en under hinanden, så vil jeg gerne have at der bliver stillet op således at der står 3 kunde navne i hver tabel række ovs ovs. Helt præcist:

<tr>
<td>kunde</td><td>netværk</td><td>IP</td><td>kunde</td><td>netværk</td><td>IP</td><td>kunde</td><td>netværk</td></td>IP<td>
</tr>

Håber i kan hjælpe mig :-)

På forhånd mange tak.

Med venlig hilsen Lucien

Her er min kode:

<%
Dim oConn
Dim oRSr
Set oConn=Server.CreateObject("ADODB.Connection")
Set oRSr=Server.CreateObject("ADODB.Recordset")
oConn.Open "DSN=KundeDataBase"
strSQL = "SELECT Kunde, NetWork, IP "
strSQL = strSQL & "FROM Referencer "
oRSr.Open strSQL, oConn

oRSr.MoveFirst
Response.Write"<table border='1'>"
Do While NOT oRSr.EOF
Response.Write"<tr><td>" & oRSr("Kunde") & "</td>"
Response.Write"<td id='tdred'>" & oRSr("NetWork" & "&nbsp;</td>"
Response.Write"<td id='tdred'>" & oRSr("IP") & "&nbsp;</td></tr>"
oRSr.MoveNext
Loop
Response.Write"</table>"
oRSr.Close
Set oRSr=Nothing
oConn.Close
Set oConn = Nothing
%>
Avatar billede skovtrold Nybegynder
10. juni 2002 - 10:38 #1
Response.Write"<table border='1'>"
Response.Write"<tr>"
count = 1
If count = 4 Then
    count = 1
Response.Write"<tr>"
End if
Do While NOT oRSr.EOF
Response.Write"<td>" & oRSr("Kunde") & "</td>"
Response.Write"<td id='tdred'>" & oRSr("NetWork" & "&nbsp;</td>"
Response.Write"<td id='tdred'>" & oRSr("IP") & "&nbsp;</td>"
If count = 3 Then
    Response.Write"</tr>"
End if
count = count+1
oRSr.MoveNext
Loop
Response.Write"</table>"
Avatar billede skovtrold Nybegynder
10. juni 2002 - 10:39 #2
Du er nødt til at tælle hvor mange gange du løber igennem løkken.
Du skal igennem 3 gange, så når det er sket, nulstiller du "tælleren" og tæller til 3 igen.
10. juni 2002 - 10:45 #3
Jeg tror, at du bør flyyte spørgsmålet til ASP-kategorien!
Det har ikke så meget med Access at gøre, så jeg tror du får flere svar der :o)
Avatar billede skovtrold Nybegynder
10. juni 2002 - 10:56 #4
Fik du det til at virke som du havde tænkt dig?
Avatar billede tele_lucien Nybegynder
10. juni 2002 - 11:00 #5
OKay........tak skal du have.
Avatar billede tele_lucien Nybegynder
10. juni 2002 - 11:00 #6
Aarrgghhhh........den siger intern server fejl. Øv
Avatar billede tele_lucien Nybegynder
10. juni 2002 - 11:02 #7
Jeg tror jeg har stilt det rigtigt op..........vil tjekke koden igen?
Avatar billede skovtrold Nybegynder
10. juni 2002 - 11:03 #8
Gå ind i din browser og slå "View friendly HTTP Errors fra", så får du en lidt mere præcis fejlkode.
Og kopier så fejl-koden herind.
Avatar billede tele_lucien Nybegynder
10. juni 2002 - 11:04 #9
<%
        Dim oConn
        Dim oRSr
        Set oConn=Server.CreateObject("ADODB.Connection")
        Set oRSr=Server.CreateObject("ADODB.Recordset")
        oConn.Open "DSN=KundeDataBase"
        strSQL = "SELECT Kunde, NetWork, IP "
        strSQL = strSQL & "FROM Referencer "
        oRSr.Open strSQL, oConn
       
        oRSr.MoveFirst
        Response.Write"<table border='1'>"
        Response.Write"<tr>"
        count = 1
            If count = 4 Then
                count = 1
                Response.Write"<tr>"
            End if
            Do While NOT oRSr.EOF
                Response.Write"<td>" & oRSr("Kunde") & "</td>"
                Response.Write"<td id='tdred'>" & oRSr("NetWork" & "&nbsp;</td>"
                Response.Write"<td id='tdred'>" & oRSr("IP") & "&nbsp;</td>"
                If count = 3 Then
                Response.Write"</tr>"
                End if
                count = count+1
                oRSr.MoveNext
            Loop
        Response.Write"</table>"
        oRSr.Close
        Set oRSr=Nothing
        oConn.Close
        Set oConn = Nothing
    %>
Avatar billede tele_lucien Nybegynder
10. juni 2002 - 11:07 #10
Yes.....her kommer fejl koden.

Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a03ee'

Tegnet ')' var ventet

/dktele/iframe_DB_refer.asp, line 29

Response.Write"<td id='tdred'>" & oRSr("NetWork" & "&nbsp;</td>"
----------------------------------------------------------------^
Avatar billede tele_lucien Nybegynder
10. juni 2002 - 11:08 #11
Nå det var jo bare en ) fætter der manglede!
Avatar billede skovtrold Nybegynder
10. juni 2002 - 11:09 #12
Hov, jeg tror faktisk der er en fejl i koden jeg gav dig, men det ville resultere i en tabel-fejl.
Her er en rettet udgave.

Response.Write"<table border='1'>"
Response.Write"<tr>"
count = 1
Do While NOT oRSr.EOF
If count = 4 Then
    count = 1
    Response.Write"<tr>"
End if
Response.Write"<td>" & oRSr("Kunde") & "</td>"
Response.Write"<td id='tdred'>" & oRSr("NetWork" & "&nbsp;</td>"
Response.Write"<td id='tdred'>" & oRSr("IP") & "&nbsp;</td>"
If count = 3 Then
    Response.Write"</tr>"
End if
count = count+1
oRSr.MoveNext
Loop
Response.Write"</table>"


Mht. fejl-koden du fik på siden, så er det fordi du mangler at afslutte din parantes.
Du skal erstatte:
Response.Write"<td id='tdred'>" & oRSr("NetWork" & "&nbsp;</td>"
med:
Response.Write"<td id='tdred'>" & oRSr("NetWork") & "&nbsp;</td>"
Avatar billede skovtrold Nybegynder
10. juni 2002 - 11:10 #13
Ændringen i koden jeg gav dig nu, er at :
If count = 4 Then
    count = 1
    Response.Write"<tr>"
End if
er flyttet indenfor løkken.
Avatar billede tele_lucien Nybegynder
10. juni 2002 - 11:11 #14
Yes!!!!!!!!!!!!!!!!!!!! Præcist! Det er genialt ASP og DB. Jeg er rimlig newbie i det!

mange tak for hjælpen, skovtrold!

Går du til techno fester siden hedder skovtrold? Hehe,- undskyld jeg spørger.... :-)
Avatar billede skovtrold Nybegynder
10. juni 2002 - 11:12 #15
Godt at det virker :-)
Og navnet - det ved jeg faktisk ikke lige hvor kommer fra :-)
Avatar billede tele_lucien Nybegynder
10. juni 2002 - 11:14 #16
hehehe............okay, takker mange gange og hygge!!!
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
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

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