7 svar · 224 visningar · startad av MrBergman
Ja då var man här igen med en fråga.
Har skapat 3 tabeller i en databas
personer Kolumner: id, namn, efternamn, omrade
koppling Kolumner: personid, adressid
epost Kolumner: id, epost
Grejen är att jag vill kunna lägga in flera adresser på varje person, hur gör man när man vill fixa en koppling så man vet vilka adresser som tillhör varje person.
För att hämta alla adress för personen med visst id
id = request.form("personid")
q = "select namn, efternamn, omrade , epost " & _
" from pesoner p, koppling k,epost e" & _
" where p.id = k.personid " & _
" and k.adressid = e.id " & _
" and p.id = " & id
strSQL = "SELECT personer.*, epost.*, koppling.* FROM personer INNER JOIN koppling ON personer.id = koppling.personid WHERE personer.id = " & Request.QueryString("id")
Om det var så du menade.
/red Lite sen...
Hmm... Får det inte till att funka.
Inte så att ni skulle kunna skriva med den koden som skriver ut resultatet också? Är ännu inte så haj på detta.
Du kan väl visa vad du har försökt med så kan vi utgå från det.
Grejen är den att jag listar upp personer på en sida, sen ska jag kunna klickar på personen och då komma till ena annan sida som listar upp personen + epostadresserna.
Har testat att byta ut de efter strSQL, med det från sebbe.
Och testat att byta om lite efter Response.write.
Här är koden till den sidan som listar upp personer.
Har somsagt testat att modifiera i denna.
<%
strOmrade = Request.QueryString("omrade")
%>
<%
strSQL = "SELECT * from namn where omrade = '" & strOmrade & "'"
Set objRS = objCon.Execute(strSQL)
Do Until objRS.EOF
Response.Write ("<a href=visa2.asp?objekt=" & objRS("id") & ">" & objRS("fornamn") & "</a>" & "<br>" & objRS("fornamn") & " " & objRS("efternamn") & "<hr>")
objRS.MoveNext
Loop
Set objRS = Nothing
%>
strSQL = "SELECT personer.*, epost.epost FROM personer INNER JOIN epost ON personer.id = epost.id WHERE personer.id = " & Request.QueryString("objekt")
...
If NOT objRS.EOF
Do Until objRS.EOF
Response.Write(objRS("namn") & " " & objRS("efternamn") & " - " & objRS("epost") & "<br>" & vbCrLf)
Loop
End If
Jag förstår dock inte vad kolumnerna i tabellen koppling gör.
En sak ska du veta MrBergman, tro på det LarsG skriver, inte för att andra har fel, men för att han har rätt... ...oftast.