--- title: "Öppna access table i ett annat" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/108954-öppna-access-table-i-ett-annat/page2" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Meng" published: "2004-08-11T11:26:28.000Z" updated: "2004-08-12T10:41:08.000Z" replies: 25 views: 366 page: 2 pages: 2 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/108954-öppna-access-table-i-ett-annat" --- # Öppna access table i ett annat _Sida 2 av 2._ ## #21 — solbulle, 2004-08-11T15:10Z Detta felmeddelande: Säger att du försöker plocka ut data från en kolumn, ett fält som inte finns i den tabell du har öppnat. Är du helt 100% säker på att alla namn stämmer med de som finns i den tabell du precis öppnat? Permalänk: https://www.webforum.nu/p/1408461 ## #22 — Meng, 2004-08-12T07:32Z jepp jag är 100%, har provat skriva ut alla värden och det har funkat. Felet tror jag är att jag varken stänger öppningen av databas tabellen "opgave" utan bara öppnar "besvar" mitt i och sen tror jag min data bas öppning är as kass för jag vet inte vad det är för skillnad på att skriva SQL eller Conn, fattar fortfarande noll av det där. Hur öppnar jag databasen opgave.mdb, tablet besvar bäst? Sen vidare är ju att den endast ska öppna de poster i besvar som har samma opgave_id som posten man kommer från, alltså hämtar den med en QueryString. Permalänk: https://www.webforum.nu/p/1408923 ## #23 — Meng, 2004-08-12T07:57Z Jo det va ju så klart det som var fel =) så nu fixat! ``` <%Set RS=Conn.Execute("Select * From besvar Where opgave_id=" & Request.QueryString("ID"))%> #<%=RS("id")%>Svar af: <%=RS("navn")%> | Oprettet: <%=FormatDateTime(RS("dato"),2)%> (<%=FormatDateTime(RS("dato"),4)%> ) <%If RS("dato_edit") <> "" Then%>| Redigeret: <%=FormatDateTime(RS("dato_edit"),2)%> (<%=FormatDateTime(RS("dato_edit"),4)%> )<%End If%> Svar: <%=Replace(RS("besvar"),vbCrLf,"
")%> <%RS.Close Set RS = Nothing%> ``` Nu undrar jag hur jag skal göra om på detta så den listar alla poster med t ex opgave_id 209 istället för den första. allså en loop. hur gör man detta? Permalänk: https://www.webforum.nu/p/1408940 ## #24 — Meng, 2004-08-12T08:11Z Detta rätt? ``` <%Set RS=Conn.Execute("Select * From besvar Where opgave_id=" & Request.QueryString("ID"))%> <%If RS.EOF Then%> Ingen svar <%Else%> <%Do While Not RS.EOF%> #<%=RS("id")%>Svar af: <%=RS("navn")%> | Oprettet: <%=FormatDateTime(RS("dato"),2)%> (<%=FormatDateTime(RS("dato"),4)%> ) <%If RS("dato_edit") <> "" Then%>| Redigeret: <%=FormatDateTime(RS("dato_edit"),2)%> (<%=FormatDateTime(RS("dato_edit"),4)%> )<%End If%> Svar: <%=Replace(RS("besvar"),vbCrLf,"
")%> <%Count = Count + 1 RS.MoveNext Loop%> <%End If%> <%RS.Close Set RS = Nothing%> ``` Permalänk: https://www.webforum.nu/p/1408949 ## #25 — Jesper T, 2004-08-12T08:16Z Det ser väl rätt ut. Permalänk: https://www.webforum.nu/p/1408955 ## #26 — Meng, 2004-08-12T10:41Z Jepp nu funkar det prima. Här är koden om någon annan har användning för den. ``` <%Set RS=Conn.Execute("Select * From besvar Where opgave_id=" & Request.QueryString("ID") &" ORDER BY dato ASC")%> <%If RS.EOF Then%> Ingen svar <%Else Dim vClass, i vClass = Array("even", "odd") i = 0 %> <%While Not RS.EOF %>

<%=RS("navn")%> &opgave_id=<%=Request.Querystring("id")%>" title="Ändra"> Redigere i ditt svar?

| Oprettet: <%=FormatDateTime(RS("dato"),2)%> (<%=FormatDateTime(RS("dato"),4)%> ) <%If RS("dato_edit") <> "" Then%>| Redigeret: <%=FormatDateTime(RS("dato_edit"),2)%> (<%=FormatDateTime(RS("dato_edit"),4)%> )<%End If%> | #<%=RS("id")%> <%=Replace(RS("besvar"),vbCrLf,"
")%> <%RS.MoveNext i = i + 1 Wend%> <%End If%> <%RS.Close Set RS = Nothing%> ``` Permalänk: https://www.webforum.nu/p/1409026 --- Tråden på webben: https://www.webforum.nu/amne/asp/108954-öppna-access-table-i-ett-annat/page2 Föregående sida: https://www.webforum.nu/amne/asp/108954-öppna-access-table-i-ett-annat.md