Hämta värden...

10 svar · 225 visningar · startad av Zaad 13 jan. 2002

ZaadMedlem sedan dec. 200150 inlägg

Trådstart13 jan. 2002 16:31#1

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
%>

<HTML>
  <HEAD>
    <LINK REL="stylesheet" HREF="css/normal.css">
  </HEAD>

<TABLE WIDTH=770 BORDER=0 BORDERCOLOR=#000000 CELLSPACING=0 CELLPADDING=6 ALIGN="center">
<TR>
<TD COLSPAN=3 BACKGROUND="img/logo.jpg" WIDTH=770 HEIGHT=130></TD>
</TABLE>

<TABLE WIDTH=770 BORDER=1 BORDERCOLOR=#000000 CELLSPACING=0 CELLPADDING=6 ALIGN="center">

<TR>
<TR VALIGN="top">
<TD WIDTH=130 BACKGROUND=""><!--#INCLUDE FILE="include/menu.asp"//--></TD>
<!-- ***************************************************************************************************  -->

<TD WIDTH=540>
<BR>
I have now loaded the entire world into a database, come and see the magnificent wonder! =)
<P>

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

<P>
<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=0 WIDTH=100%>
<TR>
  <TD WIDTH=15><DIV ALIGN="center"><%=RecSet("nr")%></DIV></TD>
  <TD WIDTH=95><DIV ALIGN="center"><%=RecSet("titel")%></DIV></TD>
  <TD ROWSPAN=2 VALIGN="top">
  <%=RecSet("fornamn")%>, <%=RecSet("efternamn")%><BR>
  <%=RecSet("personnr")%><BR>
  <%=RecSet("adress")%><BR>
  <%=RecSet("postnr")%>, 
  <%=RecSet("postort")%><BR>
  <B>UIN:</B> <%=RecSet("icq")%><BR>
  <B>Epost:</B> <A HREF="mailto:<%=RecSet("epost")%>"><%=RecSet("epost")%></A><BR>
  </TD>
  <TD WIDTH=200 ROWSPAN=2 VALIGN="top">
  <B>Intressen:</B><BR>

<%
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%>
<BR>
<%IF lan = True Then %>
Lan 
<%ELSE%>
Lan 2
<%END IF%>

  <B>Annat:</B><BR>
  *Inget snusk här inte*
</TD>
<TR>
  <TD WIDTH=110 HEIGHT=120 COLSPAN=2><DIV ALIGN="center"><IMG SRC="img/me.jpg" WIDTH=95></DIV></TD>
</TR>

</TABLE>

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

<!-- ***************************************************************************************************  -->
<TD WIDTH=100 BACKGROUND=""><!--#INCLUDE FILE="include/right.asp"//--></TD>

<TR>
<TD COLSPAN=3><DIV ALIGN="right">2002 © Daniel Björk, Thomas Björk</DIV></TD>
</TABLE> 

</HTML>

@ndersMedlem sedan juni 200032 967 inlägg

13 jan. 2002 16:35#2

Felmeddelandet säger att fältet roll inte finns i det recordset du använder.

Kontrollera att fältet verkligen heter så.

Mvh,

@ndersMedlem sedan juni 200032 967 inlägg

13 jan. 2002 16:37#3

Zaad, vårda ditt språk, även i kod du postar. Redigera gärna.

Vänligen,
@nders
Forumledare

Erik JuhlinMedlem sedan maj 200010 687 inlägg

13 jan. 2002 16:37#4

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 & "<br>"
Next 'f
Response.End

ZaadMedlem sedan dec. 200150 inlägg

13 jan. 2002 16:42#5

Då listas juh medlems dbn men det e inte i den roll ligger utan i intressen..
Det e den jag inte får fram

Erik JuhlinMedlem sedan maj 200010 687 inlägg

13 jan. 2002 16:45#6

Lite mystiskt eftersom att intressen joinas in... Hmm...

ZaadMedlem sedan dec. 200150 inlägg

13 jan. 2002 16:48#7

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

@ndersMedlem sedan juni 200032 967 inlägg

13 jan. 2002 16:50#8

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,

Erik JuhlinMedlem sedan maj 200010 687 inlägg

13 jan. 2002 16:57#9

Nej snabel, han joinar ju in från intressen också.

ZaadMedlem sedan dec. 200150 inlägg

13 jan. 2002 16:57#10

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
%>

<HTML>
  <HEAD>
    <LINK REL="stylesheet" HREF="css/normal.css">
  </HEAD>

<TABLE WIDTH=770 BORDER=0 BORDERCOLOR=#000000 CELLSPACING=0 CELLPADDING=6 ALIGN="center">
<TR>
<TD COLSPAN=3 BACKGROUND="img/logo.jpg" WIDTH=770 HEIGHT=130></TD>
</TABLE>

<TABLE WIDTH=770 BORDER=1 BORDERCOLOR=#000000 CELLSPACING=0 CELLPADDING=6 ALIGN="center">

<TR>
<TR VALIGN="top">
<TD WIDTH=130 BACKGROUND=""><!--#INCLUDE FILE="include/menu.asp"//--></TD>
<!-- ***************************************************************************************************  -->

<TD WIDTH=540>
<BR>
I have now loaded the entire world into a database, come and see the magnificent wonder! =)
<P>

<%
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%>

<P>
<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=0 WIDTH=100%>
<TR>
  <TD WIDTH=15><DIV ALIGN="center"><%=RecSet("nr")%></DIV></TD>
  <TD WIDTH=95><DIV ALIGN="center"><%=RecSet("titel")%></DIV></TD>
  <TD ROWSPAN=2 VALIGN="top">
  <%=RecSet("fornamn")%>, <%=RecSet("efternamn")%><BR>
  <%=RecSet("personnr")%><BR>
  <%=RecSet("adress")%><BR>
  <%=RecSet("postnr")%>, 
  <%=RecSet("postort")%><BR>
  <B>UIN:</B> <%=RecSet("icq")%><BR>
  <B>Epost:</B> <A HREF="mailto:<%=RecSet("epost")%>"><%=RecSet("epost")%></A><BR>
  </TD>
  <TD WIDTH=200 ROWSPAN=2 VALIGN="top">
  <B>Intressen:</B><BR>

<%IF recset("roll") Then %>
Rollspel 
<%ELSE%>
Rollspel 2
<%END IF%>
<BR>
<%IF recset("lan") Then %>Lan <%ELSE%>Lan 2<%END IF%>

  <B>Annat:</B><BR>
  *inget snusk här inte*
</TD>
<TR>
  <TD WIDTH=110 HEIGHT=120 COLSPAN=2><DIV ALIGN="center"><IMG SRC="img/me.jpg" WIDTH=95></DIV></TD>
</TR>

</TABLE>

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

<!-- ***************************************************************************************************  -->
<TD WIDTH=100 BACKGROUND=""><!--#INCLUDE FILE="include/right.asp"//--></TD>

<TR>
<TD COLSPAN=3><DIV ALIGN="right">2002 &copy; Daniel Björk, Thomas Björk</DIV></TD>
</TABLE> 

</HTML>

@ndersMedlem sedan juni 200032 967 inlägg

13 jan. 2002 17:10#11

Bra att det löste sig.

Erik: