Nur mal ein ganz schneller schuss ins blaue >adLockReadOnly = 1 aendern in 0
gruss Roman Pittroff Consulting Bangkok, Thailand >-----Original Message----- >From: Uwe Maier [mailto:[EMAIL PROTECTED]] >Sent: Monday, March 04, 2002 11:21 PM >To: ASP Diskussionsliste fuer Anfaenger >Subject: [aspdebeginners] Auch wiedermal ne Fehlermeldung: >RecordSet kann nicht aktualisiert werden. > > >Microsoft OLE DB Provider for ODBC Drivers- Fehler '80004005' > >[Microsoft][ODBC Microsoft Access Driver] Aktualisieren nicht >m�glich; Datenbank oder Objekt ist schreibgesch�tzt. > >/ntxlan/bugs/replaceUser.asp, line 175 > >hi liste, bei dem quellcode unten kann ich eigentlich keinen >fehler erkennen. und mit genau dem dsn-file etc. klappt es >auch in einer anderen asp-seite problemlos. er mault bei >rs.update... ich hoffe mir kenn jemand einen tip geben, ich >verzweifel grad :) > >--------------- > >adOpenKeyset = 1 >adOpenDynamic = 2 >adOpenStatic = 3 >adLockReadOnly = 1 >adLockPessimistic = 2 >adLockOptimistic = 3 >adLockBatchOptimistic = 4 >adCmdText = 1 >adCmdTable = 2 >adCmdStoredProc = 3 >adCmdUnknown = 4 > >function FuncOpenRecordSet(recordSet, SQL, connection) > set recordSet = Server.CreateObject("ADODB.Recordset") > recordSet.Open SQL, connection, adOpenKeySet, >adLockOptimistic end function > >set connection = Server.CreateObject("ADODB.Connection") >helpString = "FileDSN=" & Server.MapPath("database") & >"/db1.dsn;" connection.CommandTimeout = 0 >connection.ConnectionTimeout = 0 >connection.Open(helpString) > > >dim SQL1 >dim recordSet1 >SQL1 = "SELECT * FROM bug, bugstatus WHERE bug.statusID = >bugstatus.bugstatusID AND bugstatus.bugstatus NOT IN ('" & >sta4 &"') AND (bug.reporterID = '" & user & "' OR >bug.developerID = '" & user & "')" > >FuncOpenRecordSet recordSet1, SQL1, connection ---->(funktion >siehe oben) > > if not(recordSet1.BOF or recordSet1.EOF) then > do while not recordSet1.EOF > if recordSet1("reporterID") = user then > recordSet1("reporterID") = reporter > recordSet1.Update -------------------------z. >175 ---------------- > end if > recordSet1.MoveNext > loop > end if > >------------------- > >| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ >| [aspdebeginners] als [EMAIL PROTECTED] subscribed >| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie >| knnen sich unter folgender URL an- und abmelden: >| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp > | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
