Mysko fel vid användandet av 2 databaser

3 svar · 438 visningar · startad av DarkFuneral 17 aug. 2003

DarkFuneralMedlem sedan juli 200333 inlägg

Frågan17 aug. 2003 14:03#1

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("x.mdb")&";"

SQL2 = "Select id, namn FROM kategorier ORDER BY namn"
Set RS2 = Connect.Execute(SQL2)
%>
<p align="center"><b><font size="2" face="Verdana">KATEGORI</font></b></p>
<% 
do until rs2.eof 
katnamn = rs2("namn")
%>
<div align="center">
  <center>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500">
    <tr>
      <td width="100%">
      <p align="center"><b><font face="Verdana" size="2"><%= katnamn%></font></b></td>
    </tr>
<% 
SQL = "Select * FROM recensioner WHERE kat="& katnamn &" ORDER BY namn"
Set RS = Connect.Execute(SQL)

do until rs.eof %>
    <tr>
      <td width="100%"><b><font face="Verdana" size="2"><%= rs("namn")%></font></b></td>
    </tr>
<%
rs.movenext
loop
%>
  </table>
  </center>
</div>
<% 
rs2.movenext
loop
%>

Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.

/recensioner.asp, line 100

Väldigt irriterande.. :/

Denna rad är line 100
--> SQL = "Select * FROM recensioner WHERE kat="& katnamn &" ORDER BY namn"

DarkFuneralMedlem sedan juli 200333 inlägg

17 aug. 2003 14:35#2

Felet fixat hos aspsidan.nu :)

Glömde ' ' :)

NickemannenMedlem sedan aug. 20003 575 inlägg

17 aug. 2003 14:59#3

Antar att du menade olika tabeller och inte databaser ;).

Även om du hittade felet så är kanske det bättre med en sql sträng

<p align="center"><b><font size="2" face="Verdana">KATEGORI</font></b></p>
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("x.mdb")&";"

strSql = "Select * FROM kategorier,recensioner where kategorier.namn = recensioner.kat ORDER BY kategorier.namn"
Set RS = Connect.Execute(strSql)

 
Do Until Rs.eof 

If not Rs("kategorier.namn") = strTemp Then
Response.Write	"<div align=""center"">"&_
 		"<center>"&_
 		"<table border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""500"">"&_
  		"<tr>"&_
		"<td width=""100%"">"&_
		"<p align=""center""><b><font face=""Verdana"" size=""2"">"&Rs("kategorier.namn")&"</font></b></td>"&_
		"</tr>"
End If
 

Response.Write	"<tr>"&_
		"<td width=""100%""><b><font face=""Verdana"" size=""2"""&Rs("recensioner.namn")&"</font></b></td>"&_
		"</tr>"

If not Rs("kategorier.namn") = strTemp Then	Response.Write	"</table></center></div>"	End If

strTemp = Rs("kategorier.namn")
Rs.MoveNext
Loop
%>

DarkFuneralMedlem sedan juli 200333 inlägg

17 aug. 2003 15:23#4

Stämmer bra nicke.. :D Vet inte vart jag höll hus egentligen.

Tack.