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
