Opslag i 2 DB med Referrencer, skal bruge optimering (arrays måske).
Hejsa Alle mine karl kode kammerater.Jeg har et lille optimerings problem her.
Jeg arrangerer et netparty sammen med nogle venner.
Vores bruger database er MEGET stor efter hånden, og har følgende problem:
Vi har to databaser.... USERS og BORD
I BORD er der referencer til den anden via "User_ID" på alle som er tilmeldt vores Party.
Jeg skal lave et udtræk af USERS databasen arrangeret efter "USERNAME".
Men den skal kun tage dem som står registrerer som "Tilmeldte" i BORD databasen..
Jeg har selv lavet koden der følger med, men problemet er at den går hele USERS databasen igennem for at kunne generer listen af tilmeldte brugerer.
Hvordan kan det optimeres da det tager op i mod 4-6 sek med vores nuværende kode. Jeg har selv overvejet en bruge nogle arrays os så måske sorterer dem efter alle opslagene, men jeg STINKER til at bruger fleredimensionelle arrays.
Så jeg vil give 150 point til en som kan give mig en god løsning eller bare give mig et godt hint.
KODE:
' Mode User Start
If ListMode = "user" Then
strSQL = "SELECT * FROM Users ORDER BY " & SQLTilmelding
Set USERS = conn.execute(strSQL)
Do Until USERS.EOF
SQL = "SELECT * FROM Bord WHERE Bruger=" & USERS("User_ID")
Set BORD = Conn.execute(SQL)
If Not BORD.EOF Then
%>
<tr>
<td> <%=USERS("username") %></td>
<%
If BORD("FRB") = 2 Then
tmpCol = cColPaid
Betalte = Betalte + 1
End If
If BORD("FRB") > 0 then
tmpCol = "##000000"
Tilmelding = Tilmelding + 1
End If %>
<td><font color="<%=tmpCol%>"><%=USERS("realname") %></font></td>
<td><%=USERS("klan") %></td>
<td><%=BORD("Plads") %></td>
</tr>
<%
End If
USERS.MoveNext
Loop
End if
' Mode User Slut
