UPDATE che non funziona

[paolo bosani]

Ho questo aggiornamento da fare:

Set RsArticolo = Server.CreateObject("ADODB.Recordset")
	RsArticolo.ActiveConnection = MM_connection_STRING
	RsArticolo.CursorType = 1
	RsArticolo.CursorLocation = 2
	RsArticolo.LockType = 3
	rsArticolo.source="SELECT max(IDArticoloMenu) AS Ultimo FROM articoli"
	rsArticolo.open
	ultimo=rsArticolo("ultimo")
	strSql = "UPDATE articoli SET IDArticoloMenu = "& ultimo+1 & " WHERE IDArticoloMenu <> "& ultimo & ""
	rsArticolo.execute (strSql)
	rsArticolo.close

Mi da questo errore:
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'Execute'
/admin/admin_ins_articoli.asp, line 166

dove alla linea 166 c'è il comando: rsArticolo.execute (strSql)
Perchè mi fa così

[byluciani]

perchè il metodo EXECUTE è un metodo dell'oggetto CONNECTION e non dell'oggetto RECORDSET

[Xion Aritel]

Perchè non puoi far eseguire un'update da un recordset, puoi usare .Execute con una connessione...

[Dirk Pitt]

Prova così:

Set RsArticolo = Server.CreateObject("ADODB.Recordset")
	RsArticolo.ActiveConnection = MM_connection_STRING
	RsArticolo.CursorType = 1
	RsArticolo.CursorLocation = 2
	RsArticolo.LockType = 3
	rsArticolo.source="SELECT max(IDArticoloMenu) AS Ultimo FROM articoli"
	rsArticolo.open
	ultimo=rsArticolo("ultimo")
	strSql = "UPDATE articoli SET IDArticoloMenu = "& ultimo+1 & " WHERE IDArticoloMenu <> "& ultimo & ""
	MM_connection_STRING.execute (strSql)
	rsArticolo.close

[paolo bosani]

Originariamente inviato da Dirk Pitt
Prova così:

Set RsArticolo = Server.CreateObject("ADODB.Recordset")
	RsArticolo.ActiveConnection = MM_connection_STRING
	RsArticolo.CursorType = 1
	RsArticolo.CursorLocation = 2
	RsArticolo.LockType = 3
	rsArticolo.source="SELECT max(IDArticoloMenu) AS Ultimo FROM articoli"
	rsArticolo.open
	ultimo=rsArticolo("ultimo")
	strSql = "UPDATE articoli SET IDArticoloMenu = "& ultimo+1 & " WHERE IDArticoloMenu <> "& ultimo & ""
	MM_connection_STRING.execute (strSql)
	rsArticolo.close

Mi da ancora errore:
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: 'Provider=Microsoft.J'
/admin/admin_ins_articoli.asp, line 166

[Dirk Pitt]

E' un errore nella connessione.
Posta il codice della connessione al db.

Soprattutto nella riga 166 cosa c'è scritto?

[paolo bosani]

Originariamente inviato da Dirk Pitt
E' un errore nella connessione.
Posta il codice della connessione al db.

Soprattutto nella riga 166 cosa c'è scritto?

Eh, adesso ho modificato tutto e non so più com'era prima.
Comunque come si potrebbe far fare l'aggiornamento tramite recorset, ho visto in giro il comando: rs.addnew, non c'è uno anche per l'aggiornamento?

[Dirk Pitt]

Sì che c'è, rs.update.
Però te lo sconsiglio, più lento e non funziona con tutti i db (MySql ad esempio non lo digerisce bene, forse solo la versione 5 lo accetta correttamente).

Ma non vedo la difficoltà nell'usare la query di update, è anche più semplice da scrivere con un bel po' di codice in meno (infatti non devi creare il recordset e aprirlo).
Praticamente il codice che ti avevo mandato faceva tutto. L'errore è probabilmente nella connessione, ma se non mandi il codice aiutarti diventa impossibile.

[paolo bosani]

Originariamente inviato da Dirk Pitt
Sì che c'è, rs.update.
Però te lo sconsiglio, più lento e non funziona con tutti i db (MySql ad esempio non lo digerisce bene, forse solo la versione 5 lo accetta correttamente).

Ma non vedo la difficoltà nell'usare la query di update, è anche più semplice da scrivere con un bel po' di codice in meno (infatti non devi creare il recordset e aprirlo).
Praticamente il codice che ti avevo mandato faceva tutto. L'errore è probabilmente nella connessione, ma se non mandi il codice aiutarti diventa impossibile.

questa è la connessione:

Dim MM_connection_STRING
MM_connection_STRING =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/dati.mdb")"

Nella 166 mi pare c'era: MM_connection_STRING.execute (strSql)

[Dirk Pitt]

Io uso per Access questa stringa di connessione (ODBC):

set objConn = Server.CreateObject("ADODB.CONNECTION") 

objConn.open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ="& Server.MapPath("database/database.mdb")

Tu invece usa una connesisone OLEDB come questa:

set objConn = Server.CreateObject("ADODB.CONNECTION")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;"

Quale delle due sia migliore non so.

Prova però a scrivere così:

MM_connection_STRING =  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/dati.mdb")

Ma almeno la apri la connessione?