Avatar billede flemminghave Nybegynder
11. marts 2003 - 20:57 Der er 3 kommentarer og
2 løsninger

Hente data(Profiler)

Jeg skal have hentet informationer om nogle bruger og vil derfor helst hvis jeg kan nøjes med en profil side. Jeg har nemlig 3 tabeller, hvoraf det dog kun er de 2 der er oppe indtil jeg får løst problemet. Jeg har tabellerne tblbruger og tblafloser og kan fint nok få vist dem alle på samme side, men jeg har et hyperlink ud for deres navn som åbner en popup med deres oplysninger. Jeg kan godt se de første brugere jeg har men ikke dem fra den 2. tabel. Her er lige starten af scriptet hvor jeg fortæller hvad jeg vil hente:

afloser_id = request.querystring("afloser_id")
bruger_id = request.querystring("bruger_id")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("_database12/brugere.mdb")
Conn.Open DSN
strSQL =" SELECT * FROM tblbruger WHERE bruger_id =" & bruger_id
Set rs = Conn.Execute(strSQL)
Hvad gør jeg for også at kunne vise dem fra 2. tabel?? Den øverste fortæller at det er id'en fra tabel 2 jeg vil hente..
Avatar billede medions Nybegynder
11. marts 2003 - 20:59 #1
Avatar billede flemminghave Nybegynder
11. marts 2003 - 21:01 #2
Det skal være en seperat visning af hver enkelts profil fra 2 forskellige tabeller, skal jeg så også bruge JOIN der..
Lille sidebemærkning, jeg bruger faktisk http://www.w3schools.com/sql/ hele tiden, fed side...:-)
Avatar billede mortrr Praktikant
11. marts 2003 - 21:19 #3
Vil det sige at du enten vil vise brugeren eller afloserens oplysninger, eller har du altid begge id'er?
Det lyder ikke som om du er ude efter nogen sammenhæng mellem de to tabeller, så egenligt skal du bare kigge på om du har id'en, og så udskrive.

afloser_id = request.querystring("afloser_id")
bruger_id = request.querystring("bruger_id")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("_database12/brugere.mdb")
Conn.Open DSN
if isNumeric(bruger_id) then
  strSQL =" SELECT * FROM tblbruger WHERE bruger_id =" & bruger_id
  Set rs = Conn.Execute(strSQL)
  while not rs.EOF
    Response.Write rs.Fields("navnellerlignende")
    rs.MoveNext
  wend
  rs.Close
end if
if isNumeric(afloser_id) then
  strSQL =" SELECT * FROM tblafloser WHERE afloser_id =" & afloser_id
  Set rs = Conn.Execute(strSQL)
  while not rs.EOF
    Response.Write rs.Fields("navnellerlignende")
    rs.MoveNext
  wend
  rs.Close
end if

?
Avatar billede flemminghave Nybegynder
11. marts 2003 - 21:30 #4
Jeg ved ikke om jeg fandt guld, min webhoster har tilsyneladende besluttet sig for at lukke min adgang.. Naaaj deres server er nok bare nede;-)
Kan dog desværre ikke teste det. Jeg har 2 tabeller og har lavet en side hvor deres navn og telefon bliver vist, henholdsvis som bruger og afløser. Derudover har jeg en side hvor deres andre informationer bliver vist som en popup og det var i den popup side jeg fik problemet, jeg kunne nemlig godt vise brugernes informationer men ikke afløsernes, der blev den ved med at refere til bruger id'en.
Jeg har 2 id'er et for brugerene og et for afløserne, bruger_id og afloser_id, jeg har dog så lige siddet og leget lidt med scriptet(kan dog desværre ikke teste det lige nu)
Men fortæl mig lige om jeg er på rette vej.
Den her er det oprindelige:
strSQL =" SELECT * FROM tblbruger WHERE bruger_id =" & bruger_id
Set rs = Conn.Execute(strSQL)

Og her kommer den jeg har leget lidt med:

If request.querystring("bruger_id") then
  strSQL =" SELECT * FROM tblbruger WHERE bruger_id =" & bruger_id
else
  if request.querystring("afloser_id") then
  strSQL =" SELECT * FROM tblafloser WHERE afloser_id =" & afloser_id
end if
Set rs = Conn.Execute(strSQL)

Tror i det vil virke eller skal jeg have ændret noget på koden??
Her er forresten resten af koden som viser deres informationer på en pæn måde:-)

Response.Write "<div align='center'>"
Response.Write "<table width='350' bgcolor='#ffffff' border='0' cellspacing='1' cellpadding='3' style='border: 1px solid #8A8F95' class='maintekst'>"
Response.Write "<tr>"
Response.Write "<td bgcolor='#AC3B02' class='tblhead' background='billeder/tablel_bg_billed.gif' colspan='2' width='100%'>&nbsp;<img src='billeder/arrow.gif' width='6' height='11'>&nbsp;Operatør:<font color='black'>&nbsp;»&nbsp;" & rs("navn") & "</font></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='20%'><br><u>Adresse:</u></td>"
Response.Write "<td width='80%'><br>" & rs("adresse") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='20%'><u>Postnr/By:</u></td>"
Response.Write "<td width='80%'>" & rs("postnummer") & "&nbsp;" & rs("by1") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='20%'><u>Telefon:</u></td>"
Response.Write "<td width='80%'>" & rs("telefon") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='20%'><u>Mobil:</u></td>"
Response.Write "<td width='80%'>" & rs("mobil") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='20%'><u>E-Mail:</u></td>"
Response.Write "<td width='80%'><a href=mailto:" & rs("email") & " target=_blank>" & rs("email") & "</a></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='20%'><u>Hjemmeside:</u></td>"
Response.Write "<td width='80%'><a href=" & rs("Hjemmeside") & " target=_blank>" & rs("Hjemmeside") & "</a></td>"
Response.Write "</tr>"
if session("userid") = 1 = true then
Response.Write "<tr>"
Response.Write "<td width='20%'><u>Kodeord:</u></td>"
Response.Write "<td width='80%'>" & rs("password") & "</td>"
Response.Write "</tr>"
end if
Response.Write "</table>"
Response.Write "<tr>"
Response.Write "<td width='100%' colspan='2' align='center'><br><a href='java script:onClick=window.close()'>Luk Vinduet</a></td>"
Response.Write "</tr>"
Response.Write "</div>"
Conn.Close
Set Conn = Nothing
Avatar billede mortrr Praktikant
11. marts 2003 - 22:02 #5
Ja, hvis felterne i tabellerne er ens, så skulle det da nok virke.
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