Buon giorno a tutti.
Ho un problema, praticamente ho scritto un codice per inserire dei dati in access.
L'ho fatto girare su un server esterno e funziona, mentre sè l'ho faccio girare sul il mio computer con IIS mi dà il seguente messaggio di errore:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Driver ODBC Microsoft Access] Impossibile aggiornare. Database o oggetto di sola lettura.
/progettoaggenzia/inc/Aggenzia_DB.inc, line 61
E' Questo quà sotto è il codice che mi serve per l'inserimento dei recodor nel database:
<%
' Definizione di variabili
dim txtnome
dim txtcognome
dim txtdatan
dim txtcitta
dim txtprov
dim txtcf
dim txtvia
dim txtnciv
dim txtcittar
dim txtprovr
dim txtcap
txtnome = request.form("nome")
txtcognome = request.form("cognome")
txtdatan = request.form("datan")
txtcitta = request.form("citta")
txtprov = request.form("prov")
txtcf = request.form("cf")
txtvia = request.form("via")
txtnciv = request.form("nciv")
txtcittar = request.form("cittar")
txtprovr = request.form("provr")
txtcap = request.form("cap")
dim strCode
strCode = "innovatel"
' Mappaggio del database
Set Conn = Server.CreateObject("ADODB.Connection") '
strConn = "driver={Microsoft Access Driver (*.mdb)}; " 'accede al programma access
strConn = strConn & " DBQ=" & Server.MapPath("anagrafica.mdb") ' trova il file database su dove deve scrivere in questo caso è presente nella stessa cartella
strConn = strConn & ";pwd=" & strCode
Conn.Open strConn
' Stringa di interrogazione sulla tabella anagrafica
sql = "SELECT * FROM anagrafica"
Set rs = Server.CreateObject("ADODB.Recordset") 'libreria ADODB per l'utilizzo della creazione dell' oggetto Recordset settato a Set rs
rs.Open sql, conn ,3,3
' Preparazione e scrittura nuovo record
rs.addnew ' Comando per aggiungere un nuovo record
rs(1) = txtnome 'rs(1) indica il primo campo in questo caso il nome
rs(2) = txtcognome 'rs(2) indica il secondo campo in questo caso cognome
rs(3) = txtdatan 'rs(3) indica il terzo campo in questo caso data nascita
rs(4) = txtcitta
rs(5) = txtprov
rs(6) = txtcf
rs(7) = txtvia
rs(8) = txtnciv
rs(9) = txtcittar
rs(10) = txtprovr
rs(11) = txtcap
rs.update
' Chiusura del database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
Può essere un problema di configurazione IIS o di codice?
Grazie per una risposta.
Rispondi quotando
