Hjälp med fel.

4 svar · 209 visningar · startad av Boorg 22 apr. 2005

BoorgMedlem sedan okt. 2004409 inlägg

Frågan22 apr. 2005 11:01#1

	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

BoorgMedlem sedan okt. 2004409 inlägg

22 apr. 2005 11:04#2

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

Engine^Medlem sedan dec. 20003 887 inlägg

22 apr. 2005 11:29#3

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

J.N.Medlem sedan apr. 20031 660 inlägg

22 apr. 2005 11:42#4

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.

GuffaMedlem sedan juni 2004533 inlägg

22 apr. 2005 14:02#5

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