Ciao a tutti,
provo a inserire dati in un db access tramite lo script seguente ma la mia inabilità con access fa si che io riesca solo a creare db di sola lettura, e che quindi non possono essere modificati tramite codice asp, infatti il browser restituisce:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
Chiedo gentilmente se qlcn può indicarmi se il problema è nel codice o nel db e come risolverlo, ecco il codice:
<%
' Definizione della variabile
dim strTitolo
strTitolo = request.form("titolo")
dim strAutore
strAutore = request.form("autore")
dim strGenere
strGenere = request.form("genere")
dim strCode
strCode="innovatel"
' Mappaggio del database
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("libreria.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
' Stringa di interrogazione sulla tabella libri
sql = "SELECT * FROM libri"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
' Preparazione e scrittura nuovo record
rs.addnew
rs(1) = strTitolo
rs(2) = strAutore
rs(3) = strGenere
rs.update
' Chiusura del database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
Ciao e grazie
provo a inserire dati in un db access tramite lo script seguente ma la mia inabilità con access fa si che io riesca solo a creare db di sola lettura, e che quindi non possono essere modificati tramite codice asp, infatti il browser restituisce:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
Chiedo gentilmente se qlcn può indicarmi se il problema è nel codice o nel db e come risolverlo, ecco il codice:
<%
' Definizione della variabile
dim strTitolo
strTitolo = request.form("titolo")
dim strAutore
strAutore = request.form("autore")
dim strGenere
strGenere = request.form("genere")
dim strCode
strCode="innovatel"
' Mappaggio del database
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("libreria.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
' Stringa di interrogazione sulla tabella libri
sql = "SELECT * FROM libri"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
' Preparazione e scrittura nuovo record
rs.addnew
rs(1) = strTitolo
rs(2) = strAutore
rs(3) = strGenere
rs.update
' Chiusura del database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
Ciao e grazie