Hur gör man med recset.open?

16 svar · 279 visningar · startad av pettsson 12 juni 2002

pettssonMedlem sedan jan. 20021 122 inlägg

Frågan12 juni 2002 12:02#1

Det är nåt knas med recset.open.

Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.

set oppna=server.createobject("ADODB.connection")
oppna.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("db\marken")
set recset=server.createobject("ADODB.recordset")

if request.querystring("ordning")="avdelning" then
dbed="SELECT * FROM scoutm ORDER BY avdelning"

elseif request.querystring("ordning")="namn" then
dbed="SELECT * FROM scoutm ORDER BY marke"

elseif request.querystring("ordning")="placering" then
dbed="SELECT * FROM scoutm ORDER BY placering"

end if
recset.open dbed, oppna, adopenstatic, adlockoptimistic <-- felet ligger här

Koden fungerar om jag tar bort alla ifar och sån't

set oppna=server.createobject("ADODB.connection")
oppna.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("db\marken")
set recset=server.createobject("ADODB.recordset")
dbed="SELECT * FROM scoutm ORDER BY avdelning"
recset.open dbed, oppna, adopenstatic, adlockoptimistic

Vad har recset.open för inställning till if:ar igentligen?

FIgg3Medlem sedan sep. 2001354 inlägg

12 juni 2002 12:05#2

Har du inkluderat adovbs.inc ???

pettssonMedlem sedan jan. 20021 122 inlägg

12 juni 2002 12:08#3

jupp

icaaqMedlem sedan okt. 20005 273 inlägg

12 juni 2002 12:16#4

[red]
set oppna=server.createobject("ADODB.connection")
oppna.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("db\marken")

if request.querystring("ordning")="avdelning" then
dbed="SELECT * FROM scoutm ORDER BY avdelning"

elseif request.querystring("ordning")="namn" then
dbed="SELECT * FROM scoutm ORDER BY marke"

elseif request.querystring("ordning")="placering" then
dbed="SELECT * FROM scoutm ORDER BY placering"

end if
Set recset = oppna.Execute(dbed)
[/red]

testa så om inte det funkar så skriv ut dbed innan den executas med

[red]
Response.Write dbed
[/red]

Fan va glad jag är :D

pettssonMedlem sedan jan. 20021 122 inlägg

12 juni 2002 12:22#5

det funkade inte. Skulle recset.open vara med nånstans i den koden? response.write (dbed) ger SELECT * FROM scoutm ORDER BY marke när ordning är = namn

icaaqMedlem sedan okt. 20005 273 inlägg

12 juni 2002 12:26#6

[red]
set oppna=server.createobject("ADODB.connection")
oppna.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("db\marken")

if request.querystring("ordning")="avdelning" then
dbed="SELECT * FROM scoutm ORDER BY 'avdelning'"

elseif request.querystring("ordning")="namn" then
dbed="SELECT * FROM scoutm ORDER BY 'marke'"

elseif request.querystring("ordning")="placering" then
dbed="SELECT * FROM scoutm ORDER BY 'placering'"

end if
Set recset = oppna.Execute(dbed)
[/red]

det ska vara enkelfnuttar(') runt textfält

pettssonMedlem sedan jan. 20021 122 inlägg

12 juni 2002 12:29#7

det blir fortfarande problem med recset.open, var ska den sitta egentligen?

icaaqMedlem sedan okt. 20005 273 inlägg

12 juni 2002 12:32#8

Man skapar ett recordset med

[red]
Set recset = oppna.Execute(dbed)
[/red]

Hur låter hela felmedelandet?

solbulleMedlem sedan mars 20015 287 inlägg

12 juni 2002 12:36#9

Inget recset.open i den koden.

Inte behöver man / ska man ha fnuttar när det är "order by" ?

pettssonMedlem sedan jan. 20021 122 inlägg

12 juni 2002 12:39#10

utan fjuttar och recset.open fungerade det! tack så mycket! det lustiga är att koden fungerade förut...

icaaqMedlem sedan okt. 20005 273 inlägg

12 juni 2002 12:41#11

Testa

[red]
set oppna=server.createobject("ADODB.connection")
oppna.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("db\marken")
set recset=server.createobject("ADODB.recordset")

if request.querystring("ordning")="avdelning" then
dbed="SELECT * FROM scoutm ORDER BY avdelning"

elseif request.querystring("ordning")="namn" then
dbed="SELECT * FROM scoutm ORDER BY marke"

elseif request.querystring("ordning")="placering" then
dbed="SELECT * FROM scoutm ORDER BY placering"

end if
recset.open dbed, oppna, 3, 3
[/red]

Solbulle-> nej det behöver man ju inte ;)

icaaqMedlem sedan okt. 20005 273 inlägg

12 juni 2002 12:47#12

JAg skulle vilja se hur din kod blev :)

pettssonMedlem sedan jan. 20021 122 inlägg

12 juni 2002 13:02#13

koden ser ut så här:

set oppna=server.createobject("ADODB.connection")
oppna.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("db\marken")
set recset=server.createobject("ADODB.recordset")

if request.querystring("ordning")="avdelning" then
dbed="SELECT * FROM scoutm ORDER BY avdelning"

elseif request.querystring("ordning")="namn" then
dbed="SELECT * FROM scoutm ORDER BY marke"

elseif request.querystring("ordning")="placering" then
dbed="SELECT * FROM scoutm ORDER BY placering"

elseif request.form("find") then
dbed="SELECT * FROM scoutm WHERE marke LIKE '%" & replace(request.form("find"),"'","''") & "%'"

end if
set recset = oppna.execute(dbed)

sökfunktionen längst ner fick jag av Lars G, men jag har inte riktigt kommit på hur den fungerar än ;)
recset.open dbed, oppna, 3, 3 fungerade. Får man gissa att 3orna står för adlockstatic och adlockoptimistic?

pettssonMedlem sedan jan. 20021 122 inlägg

12 juni 2002 16:28#14

Jaha, nu får jag ett 'odefinerat fel' på rad 18 alltså:

oppna.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("db\marken")

Det fungerar första gången man går in på sidan, sen fungar det inte mer

icaaqMedlem sedan okt. 20005 273 inlägg

12 juni 2002 19:18#15

Jag hade lagt in det du ska köra ORDER by i QueryStringen och på det sättet sluppit alla dessa IF satser
Då skulle det kunna se ut så här:

[red]
<%
'************************************************
Dim strOrderBy

'************************************************
strOrderBy = Cstr(Request.QueryString("ordning"))

'************************************************
If Request.Form > "" Then
	dbed="SELECT * FROM scoutm ORDER BY "&strOrderBy
Else	
	dbed="SELECT * FROM scoutm WHERE marke LIKE '%" & replace(request.form("find"),"'","''") & "%'"
End If
'************************************************
Set objCon = Server.CreateObject("ADODB.Connection")
	objCon.Provider = "Microsoft.Jet.OLEDB.4.0"
	objCon.ConnectionString = "Data Source="& Server.MapPath("db\marken.mdb")
	objCon.open
	set recset = objCon.Execute(dbed)
'************************************************
%>	
[/red]

pirroMedlem sedan aug. 2001226 inlägg

13 juni 2002 07:20#16

& server.mappath("db\marken")
ska väl va
& server.mappath("db\marken.mdb")

icaaqMedlem sedan okt. 20005 273 inlägg

13 juni 2002 07:24#17

opps :r

redigerar ;)