--- title: "Hämta värden..." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/13752-hämta-värden" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Zaad" published: "2002-01-13T16:31:00.000Z" updated: "2002-01-13T17:10:00.000Z" replies: 10 views: 225 page: 1 pages: 1 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/13752-hämta-värden" --- # Hämta värden... ## #1 — Zaad, 2002-01-13T16:31Z Jag har gjort en True/False columb i db intressen och nu vill jag hämta värdet och använda det. Men jag klarar inte av att hämta värdet. ADODB.Recordset fel '800a0cc1' Objektet kunde inte hittas i mängden med det begärda namnet eller numret. /rollspel2/medlem.asp, rad 61 Rad 61 = \<%IF recset("roll") Then %\> ``` <% Dim Conn, DBOpen, cc, RecSet, sql, nr, fornamn, efternamn, personnr, adress, postnr, postort, telefon, mobil, epost, icq, bild set DBOpen = Server.CreateObject ("ADODB.Connection") Conn = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath("db/medlem.mdb") DBOpen.Open Conn %>

I have now loaded the entire world into a database, come and see the magnificent wonder! =)

<% set RecSet = Server.CreateObject("ADODB.RecordSet") RecSet.Open "Select * From medlem ORDER BY nr ASC", DBOpen While Not RecSet.EOF%>

<%=RecSet("nr")%>

<%=RecSet("titel")%>
<%=RecSet("fornamn")%>, <%=RecSet("efternamn")%>
<%=RecSet("personnr")%>
<%=RecSet("adress")%>
<%=RecSet("postnr")%>, <%=RecSet("postort")%>
UIN: <%=RecSet("icq")%>
Epost: "><%=RecSet("epost")%>
Intressen:
<% sql = "SELECT * FROM medlem LEFT OUTER JOIN intressen ON medlem.nr = intressen.nr ORDER BY medlem.nr ASC" DBOpen.Execute (sql) %> <%IF recset("roll") Then %> Rollspel <%ELSE%> Rollspel 2 <%END IF%>
<%IF lan = True Then %> Lan <%ELSE%> Lan 2 <%END IF%> Annat:
*Inget snusk här inte*

<%RecSet.MoveNext Wend RecSet.Close DBOpen.Close %>

2002 © Daniel Björk, Thomas Björk

``` Permalänk: https://www.webforum.nu/p/13752 ## #2 — @nders, 2002-01-13T16:35Z Felmeddelandet säger att fältet roll inte finns i det recordset du använder. Kontrollera att fältet verkligen heter så. Mvh, Permalänk: https://www.webforum.nu/p/303804 ## #3 — @nders, 2002-01-13T16:37Z Zaad, vårda ditt språk, även i kod du postar. Redigera gärna. Vänligen, @nders Forumledare Permalänk: https://www.webforum.nu/p/303805 ## #4 — Erik Juhlin, 2002-01-13T16:37Z Vad skrivs ut om du skriver detta innan RecSet.Open "Select \* From medlem ORDER BY nr ASC", DBOpen ? ``` For Each f In RecSet.Fields Response.Write f.Name & "
" Next 'f Response.End ``` Permalänk: https://www.webforum.nu/p/303806 ## #5 — Zaad, 2002-01-13T16:42Z Då listas juh medlems dbn men det e inte i den roll ligger utan i intressen.. Det e den jag inte får fram Permalänk: https://www.webforum.nu/p/303807 ## #6 — Erik Juhlin, 2002-01-13T16:45Z Lite mystiskt eftersom att intressen joinas in... Hmm... Permalänk: https://www.webforum.nu/p/303808 ## #7 — Zaad, 2002-01-13T16:48Z För att vara exact skrivs detta ut om jag lägger till det du skrev, inga av dom som finns med i intressen står med. nr titel fornamn efternamn personnr adress postnr postort telefon mobil epost icq bild Permalänk: https://www.webforum.nu/p/303809 ## #8 — @nders, 2002-01-13T16:50Z Du har bara specificerat att du ska hämta från tabellen medlem. Så här borde det se ut: ``` sql = "SELECT * FROM medlem[b], intressen[/b] LEFT OUTER JOIN intressen ON medlem.nr = intressen.nr ORDER BY medlem.nr ASC" ``` Mvh, Permalänk: https://www.webforum.nu/p/303810 ## #9 — Erik Juhlin, 2002-01-13T16:57Z Nej snabel, han joinar ju in från intressen också. Permalänk: https://www.webforum.nu/p/303811 ## #10 — Zaad, 2002-01-13T16:57Z Jag löste det efter många om och men. Här har ni lösningen om ni bryr er. ``` <% Dim Conn, DBOpen, RecSet, sql set DBOpen = Server.CreateObject ("ADODB.Connection") Conn = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath("db/medlem.mdb") DBOpen.Open Conn %>

I have now loaded the entire world into a database, come and see the magnificent wonder! =)

<% set RecSet = Server.CreateObject("ADODB.RecordSet") RecSet.Open "SELECT * FROM medlem LEFT OUTER JOIN intressen ON medlem.nr = intressen.nr ORDER BY medlem.nr ASC", DBOpen While Not RecSet.EOF%>

<%=RecSet("nr")%>

<%=RecSet("titel")%>
<%=RecSet("fornamn")%>, <%=RecSet("efternamn")%>
<%=RecSet("personnr")%>
<%=RecSet("adress")%>
<%=RecSet("postnr")%>, <%=RecSet("postort")%>
UIN: <%=RecSet("icq")%>
Epost: "><%=RecSet("epost")%>
Intressen:
<%IF recset("roll") Then %> Rollspel <%ELSE%> Rollspel 2 <%END IF%>
<%IF recset("lan") Then %>Lan <%ELSE%>Lan 2<%END IF%> Annat:
*inget snusk här inte*

<%RecSet.MoveNext Wend RecSet.Close DBOpen.Close %>

``` Permalänk: https://www.webforum.nu/p/303812 ## #11 — @nders, 2002-01-13T17:10Z Bra att det löste sig. Erik: :r Permalänk: https://www.webforum.nu/p/303813 --- Tråden på webben: https://www.webforum.nu/amne/asp/13752-hämta-värden