Non aggiorna il DB

[Mappa]

Salve a tutti e scusate la fanalità della domanda ma non riesco ad aggiornare il db:

sql = "SELECT * FROM tbDati "
Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source= " & Request.ServerVariables("APPL_PHYSICAL_PATH") & "dir1\db.mdb"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Conn,3,3

rs.addnew
rs("str1") = "pippo"
rs("str2") = "pluto"

rs.update

rs.close
Set rs = Nothing

ma non aggiorna nulla
Grazie mille e ciao

[asdfgasdfg]

che errore ti da??

[Mappa]

Ciao asdfgasdfg e grazioe per aver risposto
il problema che non mi da' nessun errore sembra che sia andato tutto a buon fine ma sul DB non scrive nulla. Come DB uso Access 2000

[manubox98]

prova a fare una QUERY di aggiornamento:

set rsINS = Server.CreateObject("ADODB.Recordset")
SQLINS = "INSERT INTO tbDati () VALUES ()"
rsINS.Open SQLINS, Conn,3,3

Lele

[Mappa]

Ciao lele manubox98
ho provato a farlo e la cosa è molto strana non mi è mai capitato:

sql = "INSERT INTO tbDati (campo, campo2, campo3) VALUES ('x', 'xx', 'xxx')"

Set objConn = Server.CreateObject ("ADODB.Connection")

objConn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source= " & Request.ServerVariables("APPL_PHYSICAL_PATH") & "FPDB\db.mdb"

Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Execute(sql)

Anche cosi' non aggiorna il database

[manubox98]

secondo me devi usare:

rs.Open sql, objConn, 3, 1

oppure

set rs = objConn.execute (sql)

Lele

[deivnet]

Non è che hai da qualche parte "on error resume next" e quindi non vedi l'errore...

[Mappa]

No non ho messo nessun on error resume next
ho messo 3 righe di codice semplice per testare. Legge i dati da Db ma non scrive e non aggiorna. Boh

[manubox98]

prova a scrivere, prima dell'esecuzione della QUERY:
response.write (sql)
response.end
e vedi se ti scrive correttamente la QUERY

Lele

[scorpio84]

si dovrebbe scrivere

rs.Open sql, objConn, 1, 3