Detta felmeddelande:
http://www.webforum.nu/showthread.php?s=&postid=895089#post895089
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?
Öppna access table i ett annat
25 svar · 354 visningar · startad av Meng · sida 2 av 2
Frågan, av Meng
Hej jag har gjort en sida som visar specifika info om en post. Den öppnas vanligt genom förfrågan om vilken id posten har: <%Set RS=Conn.Execute("Select From opgave Where id=" & Request.QueryString("ID"))%> Detta funkar prima men nu vill jag hämta in saker från ett annat table i databasen och också visa detta på den specifika posten. Det är då svar till posten och ska bli lite f
Läs frågan i sin helhet →
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.
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"))%>
<tr>
<td width="120" align="left" valign="top" style="font-size: 10px;">#<%=RS("id")%></td><td align="left" valign="top" style="font-size: 10px;">Svar af: <b><%=RS("navn")%></b> | Oprettet: <b><%=FormatDateTime(RS("dato"),2)%> (<%=FormatDateTime(RS("dato"),4)%> )</b> <%If RS("dato_edit") <> "" Then%>| Redigeret: <b><%=FormatDateTime(RS("dato_edit"),2)%> (<%=FormatDateTime(RS("dato_edit"),4)%> )</b><%End If%></td>
</tr>
<tr>
<td width="120" align="left" valign="top" style="font-size: 10px;"></td><td align="left" valign="top" style="font-size: 10px;">Svar: <%=Replace(RS("besvar"),vbCrLf,"<br>")%></td>
</tr>
<%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?
Detta rätt?
<%Set RS=Conn.Execute("Select * From besvar Where opgave_id=" & Request.QueryString("ID"))%>
<%If RS.EOF Then%>
<tr>
<td colspan="2" align="center" valign="top" style="font-size: 10px;">Ingen svar</td>
</tr>
<%Else%>
<%Do While Not RS.EOF%>
<tr>
<td width="120" align="left" valign="top" style="font-size: 10px;">#<%=RS("id")%></td><td align="left" valign="top" style="font-size: 10px;">Svar af: <b><%=RS("navn")%></b> | Oprettet: <b><%=FormatDateTime(RS("dato"),2)%> (<%=FormatDateTime(RS("dato"),4)%> )</b> <%If RS("dato_edit") <> "" Then%>| Redigeret: <b><%=FormatDateTime(RS("dato_edit"),2)%> (<%=FormatDateTime(RS("dato_edit"),4)%> )</b><%End If%></td>
</tr>
<tr>
<td width="120" align="left" valign="top" style="font-size: 10px;"></td><td align="left" valign="top" style="font-size: 10px;">Svar: <%=Replace(RS("besvar"),vbCrLf,"<br>")%></td>
</tr>
<%Count = Count + 1
RS.MoveNext
Loop%>
<%End If%>
<%RS.Close
Set RS = Nothing%>
Det ser väl rätt ut.
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%>
<tr>
<td colspan="2" align="center" valign="top" style="font-size: 10px;">Ingen svar</td>
</tr>
<%Else
Dim vClass, i
vClass = Array("even", "odd")
i = 0 %>
<%While Not RS.EOF %>
<tr class="<%=vClass(i Mod 2)%>">
<td width="120" align="left" valign="top" style="font-size: 7pt;"><img src="bilder/ico_svar.gif" hspace="0" vspace="0" align="absmiddle"> <b><%=RS("navn")%></b></td>
<td align="left" valign="top" style="font-size: 7pt;">
<a href="opgave_besvar.asp?do=inne&action=change&id=<%=RS("id")%>&opgave_id=<%=Request.Querystring("id")%>" title="Ändra"><img src="bilder/ico_edit_svar.gif" border="0" hspace="0" vspace="0" valign="abscenter" align="right" alt="Redigere i ditt svar?" style="filter:alpha(opacity=50); " onMouseover="this.style.filter='alpha(opacity=100)';" onMouseout="this.style.filter='alpha(opacity=50)';"></a>
| Oprettet: <b><%=FormatDateTime(RS("dato"),2)%> (<%=FormatDateTime(RS("dato"),4)%> )</b> <%If RS("dato_edit") <> "" Then%>| Redigeret: <b><%=FormatDateTime(RS("dato_edit"),2)%> (<%=FormatDateTime(RS("dato_edit"),4)%> )</b><%End If%> |
</td>
</tr>
<tr>
<td colspan="2" height="1" bgcolor="#F0F0F0"></td>
</tr>
<tr>
<td class="<%=vClass(i Mod 2)%>" width="120" align="left" valign="top" style="font-size: 7pt;">#<%=RS("id")%></td>
<td class="<%=vClass(i Mod 2)%>" align="left" valign="top" style="font-size: 10pt;"><%=Replace(RS("besvar"),vbCrLf,"<br>")%></td>
</tr>
<%RS.MoveNext
i = i + 1
Wend%>
<%End If%>
<%RS.Close
Set RS = Nothing%>