Databas fel

8 svar · 234 visningar · startad av mappe 27 juli 2002

mappeMedlem sedan juli 200218 inlägg

27 juli 2002 16:31#1

Får dett felmeddelande:
Microsoft OLE DB Provider for ODBC Drivers fel '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/chatt/online.asp, rad 8

vad kan det vara?

koden på sidan är:

<% Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("\chatt\asd.mdb")

Set RecSet = Server.CreateObject("ADODB.RecordSet")

uppdatera = "SELECT* FROM online WHERE chattnamn = " & Session("chattnamn") & " "
RecSet.Open uppdatera, conn, adOpenStatic, adLockOptimistic

RecSet.Update
RecSet.Close

del = "SELECT* FROM online WHERE datum < #" & dateAdd("n",-10,now()) &"#"
RecSet.Open del, conn, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF
RecSet.Delete
RecSet.MoveNext
Loop
RecSet.Close

visa = "SELECT* FROM online"
RecSet.Open visa, conn, adOpenStatic, adLockOptimistic
%>

<html>
<head>
<title>online</title>
<meta http-equiv="Refresh" content="20">
</head>

<body bgcolor="#FFFFFF" text="#000000">
Online:

<% Do Until RecSet.EOF
farg = RecSet("kon")
namn = RecSet("chattnamn")%>
>"><%=namn%> 
<%
RecSet.MoveNext
Loop
RecSet.Close
conn.Close
%>

</body>
</html>

mappeMedlem sedan juli 200218 inlägg

27 juli 2002 16:32#2

Rad 8 är: RecSet.Open uppdatera, conn, adOpenStatic, adLockOptimistic

EkströmMedlem sedan feb. 20022 594 inlägg

27 juli 2002 16:41#3

Det ska vara mellanslag mellan SELECT och *

mappeMedlem sedan juli 200218 inlägg

27 juli 2002 16:54#4

Fast det funkar om man gör så här:

chattnamn = Session("chattnamn")

uppdatera = "SELECT* FROM online WHERE chattnamn = chattnamn "
RecSet.Open uppdatera, conn, adOpenStatic, adLockOptimistic

Kan det vara att man inte kan anväda Session i formlen?

CatZMedlem sedan jan. 20022 440 inlägg

27 juli 2002 16:55#5

Ekström skrev:

Det ska vara mellanslag mellan SELECT och *

uppdatera = "SELECT * FROM online WHERE chattnamn = chattnamn "
RecSet.Open uppdatera, conn, adOpenStatic, adLockOptimistic

Håller med föregående talare :)

CatZMedlem sedan jan. 20022 440 inlägg

27 juli 2002 16:55#6

Varför är det alltid så att man aldrig hittar sina egna stavfel men har lätt att se andras ?

mappeMedlem sedan juli 200218 inlägg

27 juli 2002 16:57#7

Men ni vet inte hur man får in Session("chattnamn") i formlen?

LarsGMedlem sedan dec. 200012 464 inlägg

27 juli 2002 17:00#8

uppdatera = "SELECT* FROM online WHERE chattnamn = '" & replace(Session("chattnamn"),"'","''") & "'"

Det behövs inte ett mellanslag mellan select och *

CatZMedlem sedan jan. 20022 440 inlägg

28 juli 2002 08:04#9

AHA! Då har jag lärt mig något nytt idag igen ;)