---
title: "Hjälp med fel."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/126897-hjälp-med-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Boorg"
published: "2005-04-22T11:01:32.000Z"
updated: "2005-04-22T14:02:42.000Z"
replies: 4
views: 215
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/126897-hjälp-med-fel"
---

# Hjälp med fel.

## #1 — Boorg, 2005-04-22T11:01Z

```
	For i = 0 To Ubound(ArryDatum)
	If Not ArryDatum(i) = "" then
	Datum = Left(ArryDatum(i),10)
	cell = Right(ArryDatum(i),1)
		sql = "SELECT * FROM _Portal_projekt_tidplan Where JobNo = '" & JobNo & "' AND TaskCode = '" & Cell & "' And Monday = '" & Datum & "' "
		ra.open sql, con, 1, 2
		ra("Monday") = M

		sql = "SELECT * FROM _Portal_projekt_tidplan Where JobNo = '" & JobNo & "' AND TaskCode = '" & Cell & "' And Monday = '" & Datum & "' "
		rs.open sql, con, 1, 2
	If Datum = M Then 
		rs("Quantity") = Timmar
		rs.Update
		rs.close
	End If
		ra.close
	End If
	Next
	con.close
```

Denna är säkert lång och onödig kod...

Jag får ett fel med den.. den gillar inte när jag stänger ra och den gillar inte om jag inte stänger ra

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

## #2 — Boorg, 2005-04-22T11:04Z

fel:
ADODB.Recordset (0x800A0C93)
Operation is not allowed in this context.

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

## #3 — Engine^, 2005-04-22T11:29Z

Jag försökte tolka din kod och svarar på följande sätt

```
For i = 0 To Ubound(ArryDatum)
  If Not ArryDatum(i) = "" then
    Datum = Left(ArryDatum(i),10)
    cell = Right(ArryDatum(i),1)

    [blue]'sql = "SELECT Monday FROM _Portal_projekt_tidplan" & _
    '  " WHERE JobNo = '" & JobNo & "' AND TaskCode = '" & Cell & "' And Monday = '" & Datum & "'"
    'set ra= con.Execute(sql, , 1)

    'ra("Monday") = M
    'Vad är det tänkt att dessa rader ska göra?[/blue]

    sql = "UPDATE _Portal_projekt_tidplan" & _
      " SET Quantity = " & Timmar & _
      " WHERE JobNo = '" & JobNo & "' AND TaskCode = '" & Cell & "' AND Monday = '" & Datum & "'"
    con.Execute sql, , 128
  End If
Next

con.Close
set con = nothing
```

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

## #4 — J.N., 2005-04-22T11:42Z

HEJ!

> **Boorg skrev:**
>
> fel:
> ADODB.Recordset (0x800A0C93)
> Operation is not allowed in this context.

Inget radnummer? Jag tolkar det som att du använder rs på felaktigt sätt, och då gissar jag på raden ra("Monday") = M.

Man kan väl inte tilldela något till ett recordset på detta sätt?

Tips:
Det underlättar också om du indenterar din kod så if-satser framträder tydligare.

En bättre rubrik på din tråd vore på sin plats; alla har vi något fel om vi startar trådar.

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

## #5 — Guffa, 2005-04-22T14:02Z

Eftersom du inte har någon ra.Update så antar jag att du försöker läsa ifrån recordsetet, inte ändra det.

Vid tilldelning så sätter man variabeln som man vill tilldela ett värde till vänster om likhetstecknet.

ra("Monday") = M

ska alltså vara:

M = ra("Monday")

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/126897-hjälp-med-fel