---
title: "Hur gör man med recset.open?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/45692-hur-gör-man-med-recset-open"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "pettsson"
published: "2002-06-12T12:02:39.000Z"
updated: "2002-06-13T07:24:24.000Z"
replies: 16
views: 287
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/45692-hur-gör-man-med-recset-open"
---

# Hur gör man med recset.open?

## #1 — pettsson, 2002-06-12T12:02Z

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?

Permalänk: https://www.webforum.nu/p/45692

## #2 — FIgg3, 2002-06-12T12:05Z

Har du inkluderat adovbs.inc ???

Permalänk: https://www.webforum.nu/p/696394

## #3 — pettsson, 2002-06-12T12:08Z

jupp

Permalänk: https://www.webforum.nu/p/696398

## #4 — icaaq, 2002-06-12T12:16Z

```
[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

Permalänk: https://www.webforum.nu/p/696404

## #5 — pettsson, 2002-06-12T12:22Z

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

Permalänk: https://www.webforum.nu/p/696411

## #6 — icaaq, 2002-06-12T12:26Z

```
[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

Permalänk: https://www.webforum.nu/p/696418

## #7 — pettsson, 2002-06-12T12:29Z

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

Permalänk: https://www.webforum.nu/p/696420

## #8 — icaaq, 2002-06-12T12:32Z

Man skapar ett recordset med 

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

Hur låter hela felmedelandet?

Permalänk: https://www.webforum.nu/p/696423

## #9 — solbulle, 2002-06-12T12:36Z

Inget recset.open i den koden.

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

Permalänk: https://www.webforum.nu/p/696428

## #10 — pettsson, 2002-06-12T12:39Z

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

Permalänk: https://www.webforum.nu/p/696432

## #11 — icaaq, 2002-06-12T12:41Z

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 ;)

Permalänk: https://www.webforum.nu/p/696433

## #12 — icaaq, 2002-06-12T12:47Z

JAg skulle vilja se hur din kod blev :)

Permalänk: https://www.webforum.nu/p/696437

## #13 — pettsson, 2002-06-12T13:02Z

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?

Permalänk: https://www.webforum.nu/p/696451

## #14 — pettsson, 2002-06-12T16:28Z

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

Permalänk: https://www.webforum.nu/p/696607

## #15 — icaaq, 2002-06-12T19:18Z

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]
```

Permalänk: https://www.webforum.nu/p/696703

## #16 — pirro, 2002-06-13T07:20Z

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

Permalänk: https://www.webforum.nu/p/696846

## #17 — icaaq, 2002-06-13T07:24Z

opps :r

redigerar ;)

Permalänk: https://www.webforum.nu/p/696848

---

Tråden på webben: https://www.webforum.nu/amne/asp/45692-hur-gör-man-med-recset-open