Aggiunta Record a tabella Access

[DrugsMatt]

Ciao a tutti, stavo provando ad aggiungere un record alla mia tabella di access tramite questo file:

<%
Dim dcnDB  ' as ADODB.Connection
Dim rsQuery 'as ADODB.recordset
Dim Azienda

Set dcnDB = Server.CreateObject("ADODB.Connection")
dcnDB.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\wwwroot\crm.mdb")

Set rsQuery = Server.CreateObject ("ADODB.Recordset")
Azienda ="SELECT * FROM tbl_feedback where id>0;"
rsQuery.Open Azienda, dcnDB, adOpenKeyset, adLockOptimistic
 

rsQuery.AddNew
rsQuery ("CompanyName") = "Compagnia di Ventura"
rsQuery ("Phone") = "800-11007-12"
rsQuery.Update
rsQuery.Close
%>

Solo che all'esecuzione mi da l'errore:

Tipo di errore:
ADODB.Recordset (0x800A0CB3)
Il set di record corrente non supporta l'aggiornamento. Potrebbe trattarsi di una limitazione del provider o del tipo di blocco selezionato.
/NewRecord.asp, line 15


il è solo il file con i valori dei parametri Cursor e Lock Type

Qualcuno sa dirmi come mai? o ancora meglio un metodo alternativo per includere nuovi record alle tabelle? questo proprio non mi funziona

[Roby_72]

Il metodo principale è la INSERT INTO nometabella (campo1, campo2) VALUES (valore1, valore2)

Roby

[DrugsMatt]

<%
Dim dcnDB  ' as ADODB.Connection
Dim rsQuery 'as ADODB.recordset
Dim Azienda

Set dcnDB = Server.CreateObject("ADODB.Connection")
dcnDB.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\wwwroot\crm.mdb")

Set rsQuery = Server.CreateObject ("ADODB.Recordset")
Azienda ="SELECT * FROM tbl_feedback where id>0;"
rsQuery.Open Azienda, dcnDB, adOpenKeyset, adLockOptimistic
 
Dim strsql
	strsql = "INSERT INTO tbl_feedback ( CompanyName, Phone) VALUES (Compagnia di Ventura, 800-11007-12)"

rsQuery.Update
rsQuery.Close
Set rsQuery = Nothing
dcnDB.Close
Set dcnDB = Nothing
%>

Così? mi ridà lo stesso errore di prima sempre sulla stringa

rsQuery.AddNew

[Roby_72]

Set dcnDB = Server.CreateObject("ADODB.Connection")
dcnDB.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\wwwroot\crm.mdb")
Dim strsql
strsql = "INSERT INTO tbl_feedback ( CompanyName, Phone) VALUES ('Compagnia di Ventura', '800-11007-12')"
dcnDB.Execute(strsql)
dcnDB.Close
Set dcnDB = Nothing

Roby

[DrugsMatt]

<%
Dim dcnDB  ' as ADODB.Connection
Dim rsQuery 'as ADODB.recordset
Dim Azienda, strSQLAzienda

Set dcnDB = Server.CreateObject("ADODB.Connection") 
dcnDB.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Inetpub\wwwroot\crm.mdb")
 

Dim strsql 
strsql = "INSERT INTO tbl_feedback ( CompanyName, Phone) VALUES ('Compagnia di Ventura', '800-11007-12')" 
dcnDB.Execute(strsql) 
dcnDB.Close 
Set dcnDB = Nothing
%>

Tipo di errore:
Microsoft JET Database Engine (0x80004005)
Per l'operazione è necessaria una query aggiornabile.
/Newrecord.asp, line 13

su ----> dcnDB.Execute(strsql)


???

[Roby_72]

Non hai permessi di scrittura sul db da assegnare allo IUSR_NOMETUOPC

Roby

[DrugsMatt]

E come si settano? non ne ho la minima idea...

[Roby_72]

Tasto destro sulla cartella che contiene il db, "Condivisione e protezione", tab "Protezione", aggiungi lo user IUSR_nometuopc e metti tutte le spunte alle cose che può fare.

Roby

[DrugsMatt]

Ok, su Proprietà cartella - Condivisione locale a protezione ci sono

solo che da spuntare qua ho solo "Condividi la cartella in rete" e "Consenti agli utenti di rete di modificare il file" nient'altro, non c'è nessun'altro ambiente sul quale andare.

anche spuntando la modifica non mi va.

Io cmq sono amministratore della macchina, è un portatile completamente sbloccato a livelli utenza.

[Roby_72]

Non mi pare di aver detto Proprietà cartella...

Roby