Hjälp!!! Databas

6 svar · 265 visningar · startad av Erx 5 mars 2002

ErxMedlem sedan dec. 200019 inlägg

Frågan5 mars 2002 16:46#1

Vad är fel?
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db/users.mdb")
ost = "Select * From prylz Where ID = '" & Request.Querystring("id") & "'"
RecSet.Open ost, Connect, adOpenStatic, adLockOptimistic
RecSet("klicks") = RecSet("klicks") + 1
RecSet.Update
Response.Redirect RecSet("url")
Conn.Close
Set Conn = nothing
%>

felmedelande:

Technical Information (for support personnel)

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/community/prylut.asp, line 14

Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Page:
GET /community/prylut.asp

Time:
den 5 mars 2002, 17:44:16

More information:
Microsoft Support

RinaldoMedlem sedan mars 20014 214 inlägg

5 mars 2002 16:49#2

Du har blandat ihop Conn och Connect lite grann.

Så här ska det se ut.

<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
Set RecSet = Server.CreateObject("ADODB.Recordset") 
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db/users.mdb") 
ost = "Select * From prylz Where ID = '" & Request.Querystring("id") & "'" 
RecSet.Open ost, Connect, adOpenStatic, adLockOptimistic 
RecSet("klicks") = RecSet("klicks") + 1 
RecSet.Update 
Response.Redirect RecSet("url") 
Connect.Close 
Set Connect = nothing 
%>

ErxMedlem sedan dec. 200019 inlägg

5 mars 2002 17:52#3

Det funkar inte ändå... samma felmedelande...

ErxMedlem sedan dec. 200019 inlägg

5 mars 2002 17:54#4

Fwlmedelandet skulle vara:
Technical Information (for support personnel)

Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/community/prylut.asp, line 16

Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Page:
GET /community/prylut.asp

Time:
den 5 mars 2002, 18:52:01

More information:
Microsoft Support

RinaldoMedlem sedan mars 20014 214 inlägg

5 mars 2002 18:03#5

Och vilken är rad nr 16?

@ndersMedlem sedan juni 200032 969 inlägg

5 mars 2002 18:03#6

Du använder ado-konstanter när du öppnar ditt recordset. Har du inkluderat adovbs på sidan?

Annars kan du använda siffervärdena direkt. Jag är osäker, men 3 kan vara rätt för både adOpenStatic och adLockOptimistic, men mycket osäker är jag. :)

RecSet.Open ost, Connect, 3, 3

Mvh,

LarsGMedlem sedan dec. 200012 464 inlägg

5 mars 2002 18:05#7

Du har inte definierat konstantera adLockOptimistic etc.

<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
Set RecSet = Server.CreateObject("ADODB.Recordset") 
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db/users.mdb") 
ost = "Select * From prylz Where ID = '" & Request.Querystring("id") & "'" 
RecSet.Open ost, Connect, 3, 3 
RecSet("klicks") = RecSet("klicks") + 1 
RecSet.Update 
Response.Redirect RecSet("url") 
Connect.Close 
Set Connect = nothing 
%>

eller ännu bättre är att du struntar i recordset

<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("db/users.mdb") 
ost = "update prylz set klicks = klicks + 1 Where ID = '" & Request.Querystring("id") & "'" 
connect.execute ost,,128
Connect.Close 
Set Connect = nothing 
Response.Redirect RecSet("url") 
%>