Errore con metodo execute di un recordset

[tony83]

scusate come posso corregere questo tipo di errore?


[CODE]sub inserimento_db()
dim connessione
set connessione = server.createobject("Adodb.connection")
connessione.open "Provider=Microsoft.jet.oledb.4.0;Data Source = " & server.MapPath("tabella.mdb")
dim rs
set rs=server.createobject("adodb.recordset")

rs.ActiveConnection = Connessione
rs.open "select * from 2005",connessione, 0, ForWriting
nometab = session("anno")
for progr = progressivo1 to progressivo2
valore_data = cdate(vettore_data(progr+1))
valore_sistemazione_a = cstr(vettore_sistemazione_a(progr+1))
valore_sistemazione_b = cstr(vettore_sistemazione_b(progr+1))
valore_letto = cstr(vettore_letto(progr+1))
valore_riscaldamento = cstr(vettore_riscaldamento(progr+1))
strsql = "UPDATE " & nometab & " SET data='" & valore_data & "'," _
& "sistemazione_a='" & valore_sistemazione_a & "'," _
& "sistemazione_b='" & valore_sistemazione_b & "'," _
& "letto='" & valore_letto & "'," _
& "riscaldamento='" & valore_riscaldamento & "' " _
& "WHERE progressivo=" & progr
rs.execute(strsql)
next

rs.close
connessione.close
set connessione = nothing
set rs = nothing
end sub [/CODE

] Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'rs.execute'
/Prove_Antonio/tabella.asp, line 168

[nadia79]

rs.execute(strsql)?

devi mettere la connessione al posto del recordset

connessione.execute(strsql)

Almeno che io sappia funziona così...

[tony83]

Originariamente inviato da nadia79
rs.execute(strsql)?

devi mettere la connessione al posto del recordset

connessione.execute(strsql)

Almeno che io sappia funziona così...

no altrimenti dovrei aprire e chiudere la connessione all'interno di un ciclo e non funziona!

devo solo aggiornare senza chiudere!!

[Roby_72]

set rs = connessione.Execute(strSQL)

Roby

[nadia79]

Uhmmm

[tony83]

ok mi restituisce un'errore

Microsoft JET Database Engine (0x80040E0C)
Testo del comando non impostato per l'oggetto comando.

l'errore è su questa riga:

rs.open ,connessione, 0, ForWriting

ecco il codice

sub inserimento_db() 
	dim connessione
	set connessione = server.createobject("Adodb.connection")
	connessione.open "Provider=Microsoft.jet.oledb.4.0;Data Source = " & server.MapPath("tabella.mdb")
	dim rs
	set rs=server.createobject("adodb.recordset")

    rs.ActiveConnection = connessione
    rs.open ,connessione, 0, ForWriting
	nometab = session("anno")
	for progr = progressivo1 to progressivo2
	    valore_data = cdate(vettore_data(progr+1))
	    valore_sistemazione_a = cstr(vettore_sistemazione_a(progr+1))
		valore_sistemazione_b = cstr(vettore_sistemazione_b(progr+1))
		valore_letto = cstr(vettore_letto(progr+1))
		valore_riscaldamento = cstr(vettore_riscaldamento(progr+1))   
		strsql = "UPDATE " & nometab & " SET data='" & valore_data & "'," _
                                           & "sistemazione_a='" & valore_sistemazione_a & "'," _
										   & "sistemazione_b='" & valore_sistemazione_b & "'," _
										   & "letto='" & valore_letto & "'," _
										   & "riscaldamento='" & valore_riscaldamento & "' " _
		                                   & "WHERE progressivo=" & progr
	    set rs = connessione.Execute(strSQL)
	next

    rs.close
	connessione.close
	set connessione = nothing
	set rs = nothing
end sub

[tony83]

Originariamente inviato da nadia79
Uhmmm

??? :master:

[tony83]

Originariamente inviato da Roby_72

set rs = connessione.Execute(strSQL)

Roby

allora che utilizzo a fare il rs se poi lo inizializzo a connessione?

[Roby_72]

Originariamente inviato da tony83
allora che utilizzo a fare il rs se poi lo inizializzo a connessione?

EH?! VVoVe:

Roby

[optime]

Originariamente inviato da tony83
allora che utilizzo a fare il rs se poi lo inizializzo a connessione?

regalati un bel corso di programmazione per natale tanti carissimi auguri