webForumDet fria alternativet

Adderas inte med 1

ASP

7 svar · 186 visningar · startad av ampy

Medlem sedan feb. 20011 498 inlägg
Frågan#1
<%

Set con = Server.CreateObject("ADODB.Connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("intervjuer.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "UPDATE intervjuer SET klick = klick + 1 WHERE id = " & Request.Querystring("id")

Dim Con
Dim rst
Dim strSQL
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = 1
strSQL = "Select * from intervjuer WHERE id ="& Request.Querystring("id")

Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, Con, adOpenStatic, _
adLockReadOnly, adCmdText

%>

När jag skriver denna kod så adderas inte databasen med 1, varför?

------------------
Ampy.cjb.net

Medlem sedan juni 200032 967 inlägg
#2

Du exekverar aldrig din update-sats.

Medlem sedan feb. 20011 498 inlägg
#3

Hur gör man det?

------------------
Ampy.cjb.net

Medlem sedan dec. 200012 464 inlägg
#4
<%
Dim con
Set con = Server.CreateObject("ADODB.Connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("intervjuer.mdb")

Addera = "UPDATE intervjuer SET klick = klick + 1 WHERE id = " & Request.Querystring("id")

[b]con.execute addera,,128[/b]
Dim rst
Dim strSQL
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = 1
strSQL = "Select * from intervjuer WHERE id ="& Request.Querystring("id")

Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, Con, adOpenStatic, _
adLockReadOnly, adCmdText

%>

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

Medlem sedan feb. 20011 498 inlägg
#5

Då får jag detta felmeddelande:

Microsoft OLE DB Provider for ODBC Drivers fel '80004005' 
[Microsoft][Drivrutin för ODBC Microsoft Access] Operationen måste använda en fråga som kan uppdateras. 

/intervju2.asp, line 98

Rad 98 var den rad jag la till som LarsG skrev.

------------------
Ampy.cjb.net

Medlem sedan okt. 20005 273 inlägg
#6

Detta var upp tidigare idag
http://cgi.webforum.nu/wf/Forum11/HTML/008455.html

mvh

------------------
-::|ic@@q|::-

Medlem sedan feb. 20011 498 inlägg
#7

Tack så mycket icaaq, jag har löst det nu :D

------------------
Ampy.cjb.net

Medlem sedan okt. 20005 273 inlägg
#8

Jag gjorde ju inget(skickade bara en länk), Det är LarsG och snabelanders du ska tacka.....

mvh icaaq

------------------
-::|ic@@q|::-

259 ms totalt · 4 externa anrop · v20260731065814-full.2f471f9e
119 ms — deklarationer (db)
0 ms — hämta statistik (cache)
135 ms — hämta tråd, inlägg och bilagor (db)
121 ms — ändringar (db)