0x80040E10

HEj,

Får detta medelade när jag kör denna kod.
Jag är säker på att strängara innhåller värden....
får detta fel meddelande.

Microsoft JET Database Engine (0x80040E10)
No value given for one or more required parameters.

Nån som vet vad det kan vara ?

Mvh
Martin

----------------------------------------------------------------------

<% @Language = VBScript %>
<% Option Explicit %>
<% Response.ExpiresAbsolute = Now() - 1 %>

<%
Dim mdbfile, Connect
    

mdbfile = Server.MapPath( "database.mdb" )

    Set Connect = Server.CreateObject( "Adodb.Connection" )
    Connect.Provider = "Microsoft.Jet.OLEDB.4.0"
    Connect.ConnectionString = "Data Source='" & mdbfile & "'"
    Connect.Open

   Dim str_count, str_type
   str_count = Request.QueryString("count")
   str_type = Request.QueryString("type2")

   Dim str_date, str_resource, str_ampm, str_time

   str_date = Request.Form("date")
   str_resource = Request.Form("resource")
   str_time = Request.Form("time")

Response.Write(""& str_date &"<BR>")
Response.Write(""& str_resource &"<BR>")

Response.Write(""& str_time &"<BR>")

Dim SQL01

SQL01 = "DELETE FROM reservations WHERE date = '"& str_date &"' AND resource = '"& str_resource &"' AND ampm = '"& str_time &"'" 

connect.execute(SQL01) 
connect.close 

%>

En sökning på Google gav denna sida: adopenstatic.com/faq/80040e10.asp. :D

/r - Dessutom är date ett reserverat ord i SQL. Döp om fältet till ex. dt_date eller dt.
Sen har du ju inte deklarerat alla variabler heller..

Dim str_date, str_resource, str_time

... och en sökning på webForum gav:

många skrev:

Lägg kod inom [kod]-taggar så den blir så lättläst som möjligt!

Mvh,

Skriv ut din sql-sats och kolla så alla värden följer med dit, det verkar inte som om dem gör det.

ex.

[red]SQL01 = "DELETE FROM reservations WHERE date = '"& str_date &"' AND resource = '"& str_resource &"' AND ampm = '"& str_time &"'"
Response.Write SQL01
Response.End[/red]

Häng mig och släpa mig efter en bil...

Jag skrev fel namn för en kollum..

Och jag ska börja använda kod-taggar...

Tack ändå !!

:r