Salve a tutti, ho un problema che mi sta facendo impazzire da diversi giorni ed è il seguente:
in una textarea ho il contenuto di un campo di un database e, quando modifico tale contenuto, voglio risalvarlo nel db all'interno dello stesso campo. Ora posto il codice cosi vi dico dove mi da il problema:
Sub AggiornaDB(DB,TAB)
Dim c
'Dim txtarea
Dim DBConn, objRS
c=CInt(Request.QueryString("txt"))
Dim aus
aus=1
Set DBConn = Server.CreateObject ("ADODB.Connection")
DBConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/resource/" & DB)
Set objRS = Server.CreateObject("ADODB.Recordset")
Dim strSQL
strSQL="SELECT sDescrizione FROM " & TAB
'objRS.CursorType = 0
'objRS.CursorLocation = 2
'objRS.LockType = 3
objRS.Open strSQL, DBConn, 3, 3
objRS.MoveFirst
do while not objRS.eof
if (aus=c) then
' objRS.AddNew
objRS("sDescrizione")=Request.QueryString("myTextarea")
objRS.Update
Response.Write("DATABASE AGGIORNATO!!!!!")
end if
aus=aus+1
objRS.movenext
loop
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing
End Sub
Mi dà errore nella riga objRS.Update e mi dice: Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC Microsoft Access] Impossibile aggiornare. Database o oggetto di sola lettura.
........Avete qualche idea??
in una textarea ho il contenuto di un campo di un database e, quando modifico tale contenuto, voglio risalvarlo nel db all'interno dello stesso campo. Ora posto il codice cosi vi dico dove mi da il problema:
Sub AggiornaDB(DB,TAB)
Dim c
'Dim txtarea
Dim DBConn, objRS
c=CInt(Request.QueryString("txt"))
Dim aus
aus=1
Set DBConn = Server.CreateObject ("ADODB.Connection")
DBConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/resource/" & DB)
Set objRS = Server.CreateObject("ADODB.Recordset")
Dim strSQL
strSQL="SELECT sDescrizione FROM " & TAB
'objRS.CursorType = 0
'objRS.CursorLocation = 2
'objRS.LockType = 3
objRS.Open strSQL, DBConn, 3, 3
objRS.MoveFirst
do while not objRS.eof
if (aus=c) then
' objRS.AddNew
objRS("sDescrizione")=Request.QueryString("myTextarea")
objRS.Update
Response.Write("DATABASE AGGIORNATO!!!!!")
end if
aus=aus+1
objRS.movenext
loop
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing
End Sub
Mi dà errore nella riga objRS.Update e mi dice: Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC Microsoft Access] Impossibile aggiornare. Database o oggetto di sola lettura.
........Avete qualche idea??
Ultima modifica:
