Errore query database

[Carmen]

Ciao,

Aprendo una pagina la dove viene letto il contenuto di due campi DB la prima volta che la lancio mi dà l'errore sotto riportato:

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


Basta che faccio il refresh della pagina e funziona, chiudo il browser e riprova è il problema persiste, faccio il refresh e parte.

Lo stesso problema adesso me lo da in fase di scrittura. Questi problemi non me li dava prima. Per quanto riguarda io non o fatto modifiche che possano aver causato problemi...

Dove potrà mai essere il problema???


Ciao. :muro: :muro: :confused: :confused:

[cionci]

Prova a cambiare il tipo di cursore che usi nella Open...

[Carmen]

Io uso questo codice...


Set Conn = Server.CreateObject("ADODB.Connection")
Connect = MM_DB_STRING
Conn.Open (Connect)
Sql= "SELECT * FROM Impostazioni"
set rs=Conn.Execute(Sql):Sql=""

[cionci]

Togli la Execute...prova così...

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Connect = MM_DB_STRING
Conn.Open (Connect)
Sql= "SELECT * FROM Impostazioni"
rs.Open Sql, Conn, 3, 3

[Carmen]

Niente. La stessa cosa, sul codice segnato in grasseto e che mi dà l'errore


Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open MM_DB_STRING
Sql= "SELECT * FROM Impostazioni"
rs.Open Sql, Conn, 3, 3

if session("visitato")<>"si" then
visita=rs("Visitatore")
visita = visita + 1
session("visitato")="si"

SQL = "UPDATE Impostazioni Set Visitatore=" & visita
rs=conn.Execute(SQL):SQL="" 'linea che da errore
end if

[cionci]

Non devi usare la Execute !!!

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open MM_DB_STRING
Sql= "SELECT * FROM Impostazioni"
rs.Open Sql, Conn, 3, 3

if session("visitato")<>"si" then
visita=rs("Visitatore")
visita = visita + 1
session("visitato")="si"
rs.Close
SQL = "UPDATE Impostazioni Set Visitatore=" & visita
rs.Open SQL, Conn, 3, 3
end if

[Carmen]

Non ci crederai. ma mi da sempre lo stesso errore

Per l'operazione è necessaria una query aggiornabile.

SQL = "UPDATE Impostazioni Set Visitatore=" & visita
rs.Open SQL, Conn, 3, 3 ' quà da l'errore


Se faccio refresh del browser carica...

:muro: :muro: :muro: :muro:

[fabio_tarantino]

Scusa ma l'hai messo il permesso di scrittura alla cartella contenente il db (inetpub/wwwroot)?

[Carmen]

Ciao,

Infatti il problema era proprio i permessi di scrittura alla cartella db.

Non capisco perchè quando facevo un refresh della pagina funziona.