Sv:Hämta data sorterat i kategorier

Hämta data sorterat i kategorier

Postades av 2006-05-22 15:29:06 - Marcus Wennerberg, i forum asp - allmänt, Tråden har 17 Kommentarer och lästs av 567 personer

Hej

Jag behöver hjälp med att hämta data från en annan tabell i samma databas.
Rubriken (namn) i tabellen klubbar ska vara samma som kolumnen klubb i tabellen spelare. Så att bara spelarna i AIK tex ligger under AIK osv.

Har försökt lite men får att inte till att fungera.


<% Response.Buffer = True %>
<LINK REL=stylesheet HREF="../stil.css" TYPE="text/css">
<%

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb")&";"

Set news = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT * FROM klubbar WHERE id = " &Request.QueryString("visa")
news.Open Addera, Conn, 1, 2
%>

<html>
<head>
<link rel="stylesheet" href="../.././stil.css" type="text/css">
</head>
<body link="#000000" vlink="#000000" alink="#000000" style="font-family: Verdana">

<table>
  <tr>
    <td width="100%">
	<img  src="<%=news("Bild_nyhet")%>" style="border: 2px solid #000000" width="400" height="200"></td>
  </tr>
  <tr>
    <td width="100%">
	<i><font size="1">
	<%=news("bild_text")%><br>
	</font></i><br>
	<b><font size="4">
	<%=news("klubb")%></font></b><br>
<br></td>
  </tr>
  <tr>
    <td width="100%"><font >
	<font style="font-size: 8pt"><%=Replace(news("fakta"),vbCrLf,"<br>")%></font>&nbsp;</font></td>
  </tr>
  


'Hämtar spelarna

<%
Addera = "SELECT * FROM spelare WHERE plats='Målvakt' AND klubb = " &Request.QueryString("visa")
news.Open Addera, Conn, 1, 2
%>
  
<td width="100%"><font >
<font style="font-size: 8pt">Målvakter<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>

<%
Addera = "SELECT * FROM spelare WHERE plats='försvarare' AND klubb = " &Request.QueryString("visa")
news.Open Addera, Conn, 1, 2
%>

<td width="100%"><font >
<font style="font-size: 8pt">Försvarare<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>

<%
Addera = "SELECT * FROM spelare WHERE plats='Mittfältare* AND klubb = " &Request.QueryString("visa")
news.Open Addera, Conn, 1, 2
%>

<td width="100%"><font >
<font style="font-size: 8pt">Mittfältare<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>

<%
Addera = "SELECT * FROM spelare WHERE plats='Anfallare' AND klubb = " &Request.QueryString("visa")
news.Open Addera, Conn, 1, 2
%>

<td width="100%"><font >
<font style="font-size: 8pt">Anfallare<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>

<%
Addera = "SELECT * FROM spelare WHERE plats='Tränare' AND klubb = " &Request.QueryString("visa")
news.Open Addera, Conn, 1, 2
%>
  
<td width="100%"><font >
<font style="font-size: 8pt">Tränare<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>
</table>

<%
news.Close
Conn.Close
Set news = nothing
Set Conn = nothing
%>

</body>
</html>

jag får felmeddelandet:

ADODB.Recordset (0x800A0E79)
Åtgärden är inte tillåten när objektet är öppet.

Hur ska jag göra för att få det att fungera?
Hoppas ni försår hur det ska fungera

Tacksam för all hjälp

Svara

Sv: Hämta data sorterat i kategorier

Postades av 2006-05-22 16:05:37 - Johan Djupmarker

Du måste stänga recordsetet news innan du kan öppna det igen. Lägg till "news.Close" innan du hämtar uppgifter ur tabellen spelare.

/Johan

Svara

Sv:Hämta data sorterat i kategorier

Postades av 2006-05-22 16:44:33 - Marcus Wennerberg

ok, har lagt in
<%
news.Close
%>

efter varje, men får nu ett annat felmeddelande:

Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck.

på raden nere vid målvakterna
news.Open Addera, Conn, 1, 2

Vad kan det vara för fel? eller är det fel på hela uttrycket
Addera = "SELECT * FROM spelare WHERE plats='Målvakt' AND klubb = " &Request.QueryString("visa")

Svara

Sv: Hämta data sorterat i kategorier

Postades av 2006-05-22 21:39:40 - Johan Djupmarker

Du har missat "fnuttarna" runt klubb, borde vara såhär:

Addera = "SELECT * FROM spelare WHERE plats='Målvakt' AND klubb = '" &Request.QueryString("visa") & "'"

Läs även på om sql-injection så slipper du den tråkiga nyheten att någon har 'hackat' din site.

/Johan

Svara

Sv:Hämta data sorterat i kategorier

Postades av 2006-05-22 22:24:25 - Marcus Wennerberg

ok, nu får jag ett annat felmeddelande:
ADODB.Field (0x80020009)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.

vad kan det vara för fel nu :S???

Svara

Sv: Hämta data sorterat i kategorier

Postades av 2006-05-23 07:44:49 - Johan Djupmarker

Det saknas information om någon "plats" i databasen, du får lägga en if-sats runt utskriften:

<code>
<%
Addera = "SELECT * FROM spelare WHERE plats='Målvakt' AND klubb = '" &Request.QueryString("visa") & "'"
news.Open Addera, Conn, 1, 2

if not news.eof then
%>

<td width="100%">
Målvakter 
<%=news("namn")%> </td>
</tr>
<%
end if
news.close

Addera = "SELECT * FROM spelare WHERE plats='försvarare' AND klubb = " &Request.QueryString("visa")
news.Open Addera, Conn, 1, 2
if not news.eof then
%>

<td width="100%">
Försvarare 
<%=news("namn")%> </td>
</tr>
<%
end if
news.close
</code>

osv...

/Johan

Svara

Sv:Hämta data sorterat i kategorier

Postades av 2006-05-23 09:29:35 - Marcus Wennerberg

ok, tack, men får ett annat felmeddelande nu :S

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Drivrutin för ODBC Microsoft Access] Typblandningsfel i villkorsuttryck.

<%
Addera = "SELECT * FROM spelare WHERE plats='Målvakt' AND klubb = '" &Request.QueryString("visa") & "'"
news.Open Addera, Conn, 1, 2
if not news.eof then
%>
  
<td width="100%"><font >
<font style="font-size: 8pt">Målvakter<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>

<%
end if
news.close

Addera = "SELECT * FROM spelare WHERE plats='försvarare' AND klubb = " &Request.QueryString("visa")
news.Open Addera, Conn, 1, 2
if not news.eof then
%>

<td width="100%"><font >
<font style="font-size: 8pt">Försvarare<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>

<%
end if
news.close

Addera = "SELECT * FROM spelare WHERE plats='Mittfältare' AND klubb = '" &Request.QueryString("visa") & "'"
news.Open Addera, Conn, 1, 2
if not news.eof then
%>

<td width="100%"><font >
<font style="font-size: 8pt">Mittfältare<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>

<%
end if
news.close

Addera = "SELECT * FROM spelare WHERE plats='Anfallare' AND klubb = '" &Request.QueryString("visa") & "'"
news.Open Addera, Conn, 1, 2
if not news.eof then
%>

<td width="100%"><font >
<font style="font-size: 8pt">Anfallare<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>

<%
end if
news.close

Addera = "SELECT * FROM spelare WHERE plats='Tränare' AND klubb = '" &Request.QueryString("visa") & "'"
news.Open Addera, Conn, 1, 2
if not news.eof then
%>
  
<td width="100%"><font >
<font style="font-size: 8pt">Tränare<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>
</table>

<%
end if
news.close
%>

jag gjorde väll rätt?
felet ligger på första raden news.Open Addera, Conn, 1, 2

Svara

Sv: Hämta data sorterat i kategorier

Postades av 2006-05-23 11:16:33 - Johan Djupmarker

Du har missat fnuttarna i slutet av sql-satsen till försvarare. Eftersom det är samma meddelande som du fick tidigare kanske det kan vara läge att kolla vad du förändrade för att få det att fungera den gången? :)

/Johan

Svara

Sv:Hämta data sorterat i kategorier

Postades av 2006-05-23 12:49:19 - Marcus Wennerberg

ok, nu får jag ett annat felmeddelande:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel i sträng i frågeuttrycket 'plats='försvarare' AND klubb = '53'

men den hämtar ju ID numret i &Request.QueryString("visa") & , jag vill att klubbensnamn ska vara samma som spelarens klubb

Svara

Sv: Hämta data sorterat i kategorier

Postades av 2006-05-23 13:34:15 - Johan Djupmarker

Fortfarande fel på fnuttarna för försvarare, gör på samma sätt som för alla andra "platser":

Addera = "SELECT * FROM spelare WHERE plats='försvarare' AND klubb = '" &Request.QueryString("visa") & "'"

/Johan

Svara

Sv:Hämta data sorterat i kategorier

Postades av 2006-05-23 14:27:59 - Marcus Wennerberg

ok, nu får jag inget felmeddelande, men ingenting hämtas och visas från den andra tabellen som skulle visa Målvakter osv. all kod jag har nu är:

<% Response.Buffer = True %>
<LINK REL=stylesheet HREF="../stil.css" TYPE="text/css">
<%

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb")&";"

Set news = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT * FROM klubbar WHERE id = " &Request.QueryString("visa")
news.Open Addera, Conn, 1, 2
%>

<html>
<head>
<link rel="stylesheet" href="../.././stil.css" type="text/css">
</head>
<body link="#000000" vlink="#000000" alink="#000000" style="font-family: Verdana">

<table border="0" width="306" id="table1" cellspacing="0" cellpadding="0">
	<tr>
		<td>
		<p align="left"><font face="Verdana" style="font-size: 7pt">
		<a style="text-decoration: none" href="../../../allsvenskan/index.asp">
		<font color="#000000">Allsvenskan</font></a> /
		<a style="text-decoration: none" href="klubbar.asp">Klubbar</a> / </font><span style="font-size: 7pt"><b><%=news("klubb")%></b></span></td>
		<td>
		<p align="left">&nbsp;</td>
	</tr>
</table>
<table border="0" width="178" id="table2">
	<tr>
		<td>&nbsp;</td>
	</tr>
</table>

<table width="450">
  <tr>
    <td width="100%">
	<img  src="<%=news("Bild_nyhet")%>" style="border: 2px solid #000000" width="400" height="200"></td>
  </tr>
  <tr>
    <td width="100%">
	<i><font size="1">
	<%=news("bild_text")%><br>
	</font></i><br>
	<b><font size="4">
	<%=news("klubb")%></font></b><br>
<br></td>
  </tr>
  <tr>
    <td width="100%"><font >
	<font style="font-size: 8pt"><%=Replace(news("fakta"),vbCrLf,"<br>")%></font>&nbsp;</font></td>
  </tr>
  
<%
news.Close
%>


<%
Addera = "SELECT * FROM spelare WHERE plats='Målvakt' AND klubb = '" &Request.QueryString("visa") & "'"
news.Open Addera, Conn, 1, 2
if not news.eof then
%>
  
<td width="100%"><font >
<font style="font-size: 8pt">Målvakter<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>

<%
end if
news.close

Addera = "SELECT * FROM spelare WHERE plats='försvarare' AND klubb = '" &Request.QueryString("visa") & "'" 
news.Open Addera, Conn, 1, 2
if not news.eof then
%>

<td width="100%"><font >
<font style="font-size: 8pt">Försvarare<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>

<%
end if
news.close

Addera = "SELECT * FROM spelare WHERE plats='Mittfältare' AND klubb = '" &Request.QueryString("visa") & "'"
news.Open Addera, Conn, 1, 2
if not news.eof then
%>

<td width="100%"><font >
<font style="font-size: 8pt">Mittfältare<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>

<%
end if
news.close

Addera = "SELECT * FROM spelare WHERE plats='Anfallare' AND klubb = '" &Request.QueryString("visa") & "'"
news.Open Addera, Conn, 1, 2
if not news.eof then
%>

<td width="100%"><font >
<font style="font-size: 8pt">Anfallare<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>

<%
end if
news.close

Addera = "SELECT * FROM spelare WHERE plats='Tränare' AND klubb = '" &Request.QueryString("visa") & "'"
news.Open Addera, Conn, 1, 2
if not news.eof then
%>
  
<td width="100%"><font >
<font style="font-size: 8pt">Tränare<br>
<%=news("namn")%></font>&nbsp;</font></td>
</tr>
</table>

<%
end if
news.close
%>

<%
Conn.Close
Set news = nothing
Set Conn = nothing
%>

</body>
</html>

Svara

Sv: Hämta data sorterat i kategorier

Postades av 2006-05-23 15:17:49 - Daniel Åsberg

Prova om den här fungerar:

<code>
<% Response.Buffer = True %>
<LINK REL=stylesheet HREF="../stil.css" TYPE="text/css">

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb")&";"

Set news = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT * FROM klubbar WHERE id = " &Request.QueryString("visa")
news.Open Addera, Conn, 1, 2
%>

<html>
<head>
<link rel="stylesheet" href="../.././stil.css" type="text/css">
</head>
<body link="#000000" vlink="#000000" alink="#000000" style="font-family: Verdana">

<table>
<tr>
<td width="100%">
<img src="<%=news("Bild_nyhet")%>" style="border: 2px solid #000000" width="400" height="200"></td>
</tr>
<tr>
<td width="100%">

<%=news("bild_text")%> 
 

<%=news("klubb")%> 
 </td>
</tr>
<tr>
<td width="100%">
<%=Replace(news("fakta"),vbCrLf," ")%> 

<%
news.close

Addera = "SELECT * FROM spelare WHERE klubb = '" &Request.QueryString("visa") & "' ORDER BY plats""
news.Open Addera, Conn, 1, 2
do until news.eof

if news("plats") <> strPlats then
response.write "</td></tr><tr><td width=""100%"">" & news("plats")
end if

response.write " " & news("namn")
news.movenext
loop
news.close
%>

</td>
</tr>
</table>
</code>

Svara

Sv: Hämta data sorterat i kategorier

Postades av 2006-05-23 15:18:35 - Johan Djupmarker

Då beror det på att det inte finns några matchande poster i tabellen spelare. Vad innehåller Request.QueryString("visa") och kolumnen klubb i spelare? Eftersom du matchar Request.QueryString("visa") mot kolumnen id i klubbar kan man ju gissa på att du i spelare har klubbens namn istället för id. I sådana fall får du hämta klubbnamnet från klubbar och använda det i sökningen istället.

/Johan

Svara

Sv:Hämta data sorterat i kategorier

Postades av 2006-05-23 16:04:16 - Marcus Wennerberg

denna Request.QueryString("visa") söker efter ID så det är väll därför inga spelare kommer fram, men hur ska jag skriva istället?

Svara

Sv: Hämta data sorterat i kategorier

Postades av 2006-05-23 16:12:38 - Jonas Hallgren

Överst i ditt script så kollar du (väl) klubben med SQL-satsen

Addera = "SELECT * FROM klubbar WHERE id = " &Request.QueryString("visa")
news.Open Addera, Conn, 1, 2

Nu vet inte jag vad kolumnen med klubbnamn heter men jag låtsas att den heter klubbnamn, då kan du lagra resultatet i en variabel, tex såhär:

<%

Dim strKlubbnamn
strKlubbnamn = news("klubbnamn")

%>

Sen i nästa fråga så använder du den variablen istället för request.querystring("visa"), dvs:

Addera = "SELECT * FROM spelare WHERE klubb = '" & strKlubbnamn & "' ORDER BY plats""
news.Open Addera, Conn, 1, 2

Men i ärlighetens namn så tycker jag att du borde byta ut kolumnen klubb mot en kolumn som heter tex klubb_id där du lagrar dom ID:n som finns i tabellen klubbar istället. Då kan du också kontrollera att variabeln intKlubbID (som vi skapar istället) bara innehåller siffror och ingen elak kod.

Lycka till!

Svara

Sv:Hämta data sorterat i kategorier

Postades av 2006-05-23 16:30:07 - Marcus Wennerberg

ok, denna lägger jag innan HTML-koden?
<%
Dim strKlubb
strKlubb = news("klubb")
%>

i tabellen Spelare så heter kolumnen Klubb, samt i tabellen Klubbar så heter kolumnen oxå klubb.

Gjorde en koumn till för spelarna vid namn klubb_id, och då funkade det, men hur gör man då på adminsidan, så att rätt klubb_id ska sparas.

Svara

Sv: Hämta data sorterat i kategorier

Postades av 2006-05-23 19:01:20 - Marcus Wennerberg

Det löste sig visst efter lite tänkande :D

Svara

Sv:Hämta data sorterat i kategorier

Postades av 2006-05-30 11:43:54 - Jonas Hallgren

Lysande :)

Det tar ett tag att få in rätt tänk i början men det är egentligen ganska lätt, eller hur?! ;)

/Jonas

Svara

Hämta data sorterat i kategorier

Sv: Hämta data sorterat i kategorier

Sv:Hämta data sorterat i kategorier

Sv: Hämta data sorterat i kategorier

Sv:Hämta data sorterat i kategorier

Sv: Hämta data sorterat i kategorier

Sv:Hämta data sorterat i kategorier

Sv: Hämta data sorterat i kategorier

Sv:Hämta data sorterat i kategorier

Sv: Hämta data sorterat i kategorier

Sv:Hämta data sorterat i kategorier

Sv: Hämta data sorterat i kategorier

Sv: Hämta data sorterat i kategorier

Sv:Hämta data sorterat i kategorier

Sv: Hämta data sorterat i kategorier

Sv:Hämta data sorterat i kategorier

Sv: Hämta data sorterat i kategorier

Sv:Hämta data sorterat i kategorier

Nyligen

Sidor

Statistik

Kontakta oss