Visa senaste inlägget

6 svar · 229 visningar · startad av berntg 12 feb. 2003

berntgMedlem sedan feb. 200187 inlägg

Frågan12 feb. 2003 10:09#1

Känner mig villrådig.

Följande sida ska visa senaste inlägget i en nyhetsdatabas.
<%
Option Explicit
Response.Buffer = True
%>

<%
Dim Connect, SQL, RS
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../meddelande/news_97.mdb")
%>
<html>
<head>
<title>Meddelanden</title>
<link rel="STYLESHEET" type="text/css" href="../css/huvudsida.css">
</head>
<body>
<h4>Meddelande</h4>
<%
Set RS=Connect.Execute("Select top 1 from nyheter order by id desc;")
%>
<%= rs("datum") %> - <%= rs("nyhet") %>

<%
RS.Close
Connect.Close
Set RS = Nothing
Set Connect = Nothing
%>
</body>
</html>

Jag får följande felmeddelande:

Microsoft OLE DB Provider for ODBC Drivers fel '80040e14'

[Microsoft][Drivrutin för ODBC Microsoft Access] SELECT-uttrycket innehåller ett reserverat ord eller argument som antingen är felstavat eller utelämnat, eller så är skiljetecknen felaktigt använda.

Om jag i stället för top 1 skriver * (alla) får jag inte felmeddelande. Var är felet?

VideMedlem sedan dec. 19998 577 inlägg

12 feb. 2003 10:11#2

Set RS=Connect.Execute("Select top 1 [b]*[/b] from nyheter order by id desc;")

mikulMedlem sedan aug. 20013 824 inlägg

12 feb. 2003 10:19#3

Fixade till den lite ;)

<% 
Option Explicit 
Response.Buffer = True 

Dim Connect, SQL, RS 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../meddelande/news_97.mdb") 
%> 
<html> 
<head> 
<title>Meddelanden</title> 
<link rel="STYLESHEET" type="text/css" href="../css/huvudsida.css"> 
</head> 
<body> 
<h4>Meddelande</h4> 

<% 
Set RS=Connect.Execute("Select top 1 * from nyheter order by id desc;") 
Response.write rs("datum") &" - "& rs("nyhet") 
 
RS.Close Set : RS = Nothing 
Connect.Close : Set Connect = Nothing 
%> 
</body> 
</html>

berntgMedlem sedan feb. 200187 inlägg

12 feb. 2003 11:09#4

Tack så mycket!

berntgMedlem sedan feb. 200187 inlägg

13 feb. 2003 16:29#5

När jag inte har något meddelande i databasen får jag ett felmeddelande. Jag vill i stället att det ska stå: För tillfället inget meddelande. Hur åstadkommer jag detta?

m_soderlundMedlem sedan sep. 20026 425 inlägg

13 feb. 2003 16:33#6

Lägg till denna kod efter Set Rs=Connect.Execute...:

If Rs.EOF Then
Rs.Close : Set Rs = Nothing
Connect.Close : Set Connect = Nothing
Response.Write "Det finns inga poster i databasen än.."
Else
'Vanliga koden om det finns grejor i databasen

End If

berntgMedlem sedan feb. 200187 inlägg

13 feb. 2003 16:50#7

Tack, tack