[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

Csp85

Nuovo Utente
4 Mar 2013
7
0
0
Salve riapro questo thread perchè pure a me capita questa tipologia di errore , il sito è funzionante da parecchio tempo su aruba. L'errore si verifica nei permessi di scrittura sul db vi posto il codice :

errore : Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

Codice

Codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/accesso.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="index.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the update
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_accesso_STRING
    MM_editCmd.CommandText = "UPDATE INTO Segnalazioni ([Data], Condominio, Segnalazione, Segnalatore, Manutentore, SegnalatoDa, Nota) VALUES (?, ?, ?, ?, ?, ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 135, 1, -1, MM_IIF(Request.Form("Data"), Request.Form("Data"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 60, Request.Form("Condominio")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 200, Request.Form("Segnalazione")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 60, Request.Form("Segnalatore")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 60, Request.Form("Manutentore")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 20, Request.Form("SegnalatoDa")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 200, Request.Form("Nota")) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "Segnalazioni.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
Dim Inserimento
Dim Inserimento_cmd
Dim Inserimento_numRows

Set Inserimento_cmd = Server.CreateObject ("ADODB.Command")
Inserimento_cmd.ActiveConnection = MM_accesso_STRING
Inserimento_cmd.CommandText = "SELECT [Data], Condominio, Segnalazione, Segnalatore, Manutentore, SegnalatoDa, Nota FROM Segnalazioni" 
Inserimento_cmd.Prepared = true

Set Inserimento = Inserimento_cmd.Execute
Inserimento_numRows = 0
%>
<%
Dim Condomini
Dim Condomini_cmd
Dim Condomini_numRows

Set Condomini_cmd = Server.CreateObject ("ADODB.Command")
Condomini_cmd.ActiveConnection = MM_accesso_STRING
Condomini_cmd.CommandText = "SELECT * FROM Condomini ORDER BY Condominio ASC" 
Condomini_cmd.Prepared = true

Set Condomini = Condomini_cmd.Execute
Condomini_numRows = 0
%>
<%
Dim Manutentori
Dim Manutentori_cmd
Dim Manutentori_numRows

Set Manutentori_cmd = Server.CreateObject ("ADODB.Command")
Manutentori_cmd.ActiveConnection = MM_accesso_STRING
Manutentori_cmd.CommandText = "SELECT * FROM Manutentori ORDER BY Manutentore ASC" 
Manutentori_cmd.Prepared = true

Set Manutentori = Manutentori_cmd.Execute
Manutentori_numRows = 0
%>

l'errore si verifica in riga 61 precisamente
Codice:
 MM_editCmd.Execute

Ringrazio chi mi vorrà aiutare già da ora
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
552
13
18
Italy
www.riciclarte.info
Se il sito ti ha funzionato da diverso tempo e te non hai toccato nulla ti conviene aprire un ticket sul supporto "Aruba" per verificare che tutto sia funzionante.
Ovviamente prima ti consiglio di:
. controllare i permessi sulla cartella (lettura/scrittura);
. controllare l'integrità del database access, scaricalo, ottimizzalo con acces e ricaricalo.

Facci sapere ;)
 
Discussioni simili
Autore Titolo Forum Risposte Data
C Microsoft OLE DB Provider for ODBC Drivers error '80040e37' Classic ASP 0
R Microsoft OLE DB Provider for ODBC Drivers error '80004005' Classic ASP 4
B Microsoft OLE DB Provider for ODBC Drivers error '80004005' Classic ASP 7
G Appicazione HTML per inserimento dai in Database Access Microsoft HTML e CSS 0
L microsoft oauth codeigniter PHP 0
W Microsoft OLE DB Provider for Visual FoxPro error '80040e14' Function name is missing ). Classic ASP 0
W Errore di run-time di Microsoft VBScript error '800a0035' Impossibile trovare il file Classic ASP 0
G PHP e Microsoft Teams: generare link videocall PHP 15
G mettere account posta in Microsoft outlook 2016 di gmail Posta Elettronica 0
ges Microsoft ACCESS oltre ogni limite (tre manuali) Altri Annunci 2
G Con Microsoft Outlook 2016 come si possono cancellare le mail doppie? Posta Elettronica 0
maria_ia Microsoft Access Windows e Software 0
E [ASP.Net] Access 2016 ? Non si usa Microsoft Jet 4.0 ma Engine 2016 o 2010. Non va ! ASP.NET 2
G Non mi arriva più la posta in microsoft outlook 2007 Posta Elettronica 23
Best Engage [Offro] lavoro [Retribuito] sistemista MICROSOFT E VMWARE SENIOR a Roma Offerte e Richieste di Lavoro e/o Collaborazione 0
L microsoft print PDF Windows e Software 18
otto9due Problema installazione "Microsoft Camera Codec Pack (6.3.9721.0)" su win 7 64bit Windows e Software 4
felino Microsoft Excel: somma su un'intera colonna Windows e Software 1
F I titolari di P. IVA, possono usare la versione non commerciale di Microsoft Word? Leggi, Normative e Fisco 0
filippino Microsoft Outlook, IMAP e cancellazione posta Posta Elettronica 0
T [Microsoft SQL Server 2008 (SP3)] log delle transazioni è pieno Database 1
A [CERCO LAVORO] Microsoft .NET - Analista programmatore Offerte e Richieste di Lavoro e/o Collaborazione 0
M Creazione di una videoteca in collegamento fra Access 2003 e Microsoft Visual Web Dev ASP.NET 1
R Microsoft SQL Manager Studio Database 0
F Cercasi System Engineer Microsoft JUNIOR - Torino Altri Annunci 0
F System Engineer Microsoft - Unified Communications Altri Annunci 0
voldemort Microsoft Office for Mac VS. iWork Mac e Software 1
F Assumiamo Sistemista Microsoft Offerte e Richieste di Lavoro e/o Collaborazione 0
F [Retribuito] Cercasi System Engineer Microsoft - Unified Communications Offerte e Richieste di Lavoro e/o Collaborazione 0
F Ricerca Sistemista Microsoft Offerte e Richieste di Lavoro e/o Collaborazione 0
Elychan Cambio password Microsoft Outlook Exchange Web Windows e Software 3
E Job position: Application developer microsoft dynamics ax Offerte e Richieste di Lavoro e/o Collaborazione 0
M anteprima con Microsoft Expression Web HTML e CSS 3
S Fino a quanto durerá il supporto di Microsoft ad ASP? Classic ASP 3
grottafelix Microsoft VBScript compilation error '800a0401' Classic ASP 3
B meta name="Microsoft Border" HTML e CSS 1
G Disponibile Microsoft Windows XP SP3 in italiano Windows e Software 1
D Siti web con Microsoft Visual Web Developer 2005 Express Edition ASP.NET 0
J Microsoft JET Database E+Errore non previsto del driver del database esterno (11265). Classic ASP 4
R Microsoft JET Database Engine error '80040e37' Classic ASP 7
M Che cosa ne pensate di Microsoft Expression? Discussioni Varie 5
T problemi con Microsoft outlook Windows e Software 0
P collegamento ad outlook microsoft Javascript 1
R Creare un file di Microsoft Word con ASP : Testo Ok. E le immagini? Classic ASP 1
N Webcast Microsoft su un prodotto per gestire e controllare l'infrastruttura IT Altri Annunci 1
A Aggiungere templates a Microsoft FrontPage Windows e Software 0
S errore -->microsoft message HTML e CSS 2
claverx Concorso Gatekeeper Test della Microsoft Sicurezza e Virus 0
metalgemini Microsoft JET Database Engine error '80040e37' Classic ASP 2
S microsoft word. Windows e Software 9

Discussioni simili