webForumDet fria alternativet

Felmeddelande

3 svar · 194 visningar · startad av Erik Juhlin

Erik JuhlinMedlem sedan maj 200010 687 inlägg
#1

Vad har jag gjort för fel?

<%
Set rec = Server.CreateObject("ADODB.Connection")
rec.open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("edit.mdb") & ";UID=Erik Juhlin;PWD=;"

sql = "SELECT * From tblMp2d WHERE 1 = 2"

Set rs = rec.execute(sql)
Set rec = Nothing

rs.AddNew
rs("Mp2dText") = Request("mintext")
rs("Mp2dDate") = Now
rs.Update
rs.Close
Response.Redirect "default.asp"
%>

Feltyp:
ADODB.Recordset (0x800A0CB3)
Objektet eller providern kan inte utföra den begärda åtgärden.
/mp2d/new/edit.asp, line 10

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

LarsGMedlem sedan dec. 200012 464 inlägg
#2

Du använder recordset för att göra insert. Väldigt onödigt. Om du gör

set rs = conn.execute(sql)

så får du ett recordset som är readonly. Om man nu absolut vill ändra via recordset så får man använda open och sätta en bra cursortyp. Titta här i så fall.
http://msdn.microsoft.com/library/default.asp?URL=/library/psdk/dasdk/mdam4tgu.htm

Om man vill ha anseende och respekt i vissa kretsar så använder man sig av insert i SQL för att lägga till nya poster.

<%
Set rec = Server.CreateObject("ADODB.Connection")
rec.open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("edit.mdb") & ";UID=Erik Juhlin;PWD=;"
sql = "insert into tblMp2d " &  _
"(mp2dtext,mp2ddate) values('" & _
Request("mintext") & "',now())"

rec.execute sql,,128
rec.close
set rec = nothing
Response.Redirect "default.asp"
%>

------------------
essentitia preter non sans multiplicandum

Erik JuhlinMedlem sedan maj 200010 687 inlägg
#3

Äh, jag löste det så här istället. :)

<%
Set Mp2dCon = Server.CreateObject("ADODB.Connection")
Mp2dCon.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("edit.mdb") & ";UID=Erik Juhlin;PWD=;"
Set rs = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * From tblMp2d WHERE 1 = 2"

rs.Open sql, Mp2dCon, 1, 2
Set Mp2dCon = Mp2dCon

rs.AddNew
rs("Mp2dText") = Request("mintext")
rs("Mp2dDate") = Now
rs.Update
rs.Close
Response.Redirect "default.asp"
%>

------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/

@ndersMedlem sedan juni 200032 969 inlägg
#4

fel sätt.

gör om gör rätt! ;)

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>

128 ms totalt · 3 externa anrop · v20260731065814-full.beb2e261
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
125 ms — hämta tråd, inlägg och bilagor (db)