recset.addnew

8 svar · 346 visningar · startad av antar 10 maj 2002

antarMedlem sedan dec. 2001289 inlägg

10 maj 2002 13:53#1

vad är felet?
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access]Fel i rad
/Bilder/Community/Medlemmar/rosta.asp, line 113

fel = recset.addnew
<%
if request.querystring("rosta") = "ja" then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../../Database/Members.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members Where id = " &Request.QueryString("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.AddNew
recset("Poangtotal") = recset("Poangtotal")+1
RecSet.Update
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

response.redirect "rosta.asp"
end if%>

LarsGMedlem sedan dec. 200012 464 inlägg

10 maj 2002 14:09#2

Varför gör du addnew? Vill du inte uppdatera posten?
I så fall är det väldigt onödigt att använda recordset

if request.querystring("rosta") = "ja" then 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../../Database/Members.mdb") 

query = "update members set poangtotal = poangtotal + 1  Where id = " &Request.QueryString("id") 
Connect.execute query,,128

Om du vill göra addnew så måste du tilldela värden till fler kolumner. Det är nog därför du får fel, om du har kolumner som är obligatoriska.

antarMedlem sedan dec. 2001289 inlägg

10 maj 2002 14:16#3

om jag gör så här får jag samma fel

<%
if request.querystring("rosta") = "ja" then
RecSet.AddNew
recset("Poangtotal") = recset("Poangtotal")+1
recset("Poangbild") = request.form("skala")
RecSet.Update
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

response.redirect "rosta.asp"
end if%>

antarMedlem sedan dec. 2001289 inlägg

10 maj 2002 15:11#4

hallå

PaceMedlem sedan juni 20019 024 inlägg

10 maj 2002 15:41#5

Hej, hej.

antarMedlem sedan dec. 2001289 inlägg

10 maj 2002 15:43#6

response.redirect "rosta.asp"
end if%>

@ndersMedlem sedan juni 200032 969 inlägg

10 maj 2002 16:17#7

Läs LarsGs inlägg igen.

antarMedlem sedan dec. 2001289 inlägg

10 maj 2002 16:24#8

jag har inga kolumner som e obligatoriska!!
vad menas med tilldela värden?

GimboMedlem sedan dec. 20001 626 inlägg

11 maj 2002 00:44#9

Testa detta...

<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../../Database/Members.mdb")&"" 
Set RecSet = Server.CreateObject("ADODB.Recordset") 
Updatera = "Select * From members Where id = " &Request.QueryString("id") 
RecSet.Open Updatera, Connect, adOpenStatic, adLockOptimistic 

if request.querystring("rosta") = "ja" then 
recset("Poangtotal") = recset("Poangtotal")+1 
recset("Poangbild") = request.form("skala") 

RecSet.Update 
RecSet.Close 
Connect.Close 
Set RecSet = nothing 
Set Connect = nothing 

response.redirect "rosta.asp" 
end if
%>