"Klaus Egebjerg" <klausegebjerg@get2net.dk> skrev i en meddelelse
news:IBSM7.329$K4.49985@news010.worldonline.dk...
> Hej
>
> Jeg har førsøgt at opdatere en database på følgende måde:
>
> OpenConn("bryg.mdb")
> Set rs = Server.CreateObject ("ADODB.Recordset")
> rs.ActiveConnection = Conn
> rs.CursorType = adOpenForwardOnly
> For Each item in BagItems.childNodes
> strQ = "SELECT Lager FROM Katalog WHERE Varenummer=" & nVarenummer
> Set rs = Conn.Execute (strQ)
>
> Antal = ""&item.GetAttribute("Qty")
>
> Antal = Antal & item.text
> ny = int(rs("Lager")) - Int(Antal)
> rs("Lager") = ny
>
> rs.Update
> rs.Requery
> Response.Write ny
> Response.Write Antal
>
> Next
> Conn.Close
> Set rs = Nothing
> Set Conn = Nothing
> End Function
>
> Jeg får følgende fejl:
>
> ADODB.Recordset error '800a0cb3'
>
> Object or provider is not capable of performing requested operation.
>
> /checkout.asp, line 61
>
> Linie 61 er denne rs("Lager") = ny
>
> Nogle gode forslag ?
>
> Med venlig hilsen
>
> Klaus Egebjerg
>
>
Hej Klaus
Jeg har hørt noget om at det du foreslår på en eller anden måde kan virke.
Men da jeg ikke ved hvordan vil jeg istedet foreslå en anden metode.
************************
Antal = Antal & item.text
ny = int(rs("Lager")) - Int(Antal)
rs("Lager") = ny
rs.Update
rs.Requery
Response.Write ny
************************
De ovenstående linjer skal se ud som følger:
************************
Antal = Antal & item.text
ny = int(rs("Lager")) - Int(Antal)
strQ2 = "UPDATE Katalog set Lager = " & ny & " WHERE Varenummer=" &
nVarenummer
Conn.Execute(strQ2)
************************
Håber det var hjælp nok..
Ellers skriv igen
--
MK
http://www.msdesign.dk
Professionelt webdesign til fornuftige priser