strano errore - L'operazione non è consentita se l'oggetto è chiuso.

[tosto73]

il codice è il seguente ma dov'è il problema?

dim dataitaliana, giorno, mese, anno
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/dbase/miopdb.mdb") & ";pwd=1234"

giorno=datepart("d",date)
mese=datepart("m",date)
anno=datepart("yyyy",date)
dataitaliana=giorno & "/" & mese & "/" & anno

set objRS=server.createObject("ADODB.Recordset")

sql = "DELETE * FROM annunci WHERE datascadenza < #" & dataitaliana & "#"

objConn.Execute(sql)

objRS.Close

set objRS=nothing

objConn.Close
Set objConn = Nothing

:master:

[Roby_72]

Per eseguire la DELETE non ti occorre il recordset:

dim dataitaliana, giorno, mese, anno 
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/dbase/miopdb.mdb") & ";pwd=1234" 

giorno=datepart("d",date) 
mese=datepart("m",date) 
anno=datepart("yyyy",date) 
dataitaliana=giorno & "/" & mese & "/" & anno 

sql = "DELETE * FROM annunci WHERE datascadenza < #" & dataitaliana & "#" 
objConn.Execute(sql) 

objConn.Close 
Set objConn = Nothing

Roby

[tosto73]

cosi non da errori ma i record non li cancella! boooO!

'elimino gli annunci vecchi
dim dataitaliana, giorno, mese, anno
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/dbase/miodb.mdb") & ";pwd=1234"

giorno=datepart("d",date)
mese=datepart("m",date)
anno=datepart("yyyy",date)
dataitaliana=giorno & "/" & mese & "/" & anno

sql = "DELETE * FROM annunci WHERE datascadenza < #" & dataitaliana & "#"
objConn.Execute(sql)

objConn.Close
Set objConn = Nothing

[Roby_72]

Quello è un altro discorso...
Prova ad invertire il mese con il giorno nella variabile "dataitaliana".

Roby

[tosto73]

cosi funziona , io ricostruivo la data uguale a prima intendi dire?

[max1975_na]

Salve
Ho lo stesso errore anche io, ma nel mio caso faccio una SELECT e il record set è necessario!

SQL = "SELECT * FROM USERSRICARICHE WHERE USE_ID = " & wid
 Set rs_edit = conn.execute(Sql)

.................................
'faccio pulizia

<%
conn.Close()
Set conn = Nothing

rs_edit.Close() 'qui mi restituisce l'errore, se lo commento funziona!
Set rs_edit = Nothing

%>

errore:
ADODB.Recordset error '800a0e78'
L'operazione non è consentita se l'oggetto è chiuso.

Mi illuminate per favore!
Grazie

[optime]

ciccio, hai riesumato una discussione di sette anni fa!!! sarebbe buona educazione aprirne una nuova e spiegare tutto per bene daccapo

[max1975_na]

Originariamente inviato da optime
ciccio, hai riesumato una discussione di sette anni fa!!! sarebbe buona educazione aprirne una nuova e spiegare tutto per bene daccapo

Non avevo visto la data del post.. pensavo fosse piu comodo continuare su questo.

[Roby_72]

Prima devi chiudere il recordset e poi la connessione.
Hai invertito le chiusure a fondo pagina.

Roby

[max1975_na]

Originariamente inviato da Roby_72


Prima devi chiudere il recordset e poi la connessione.
Hai invertito le chiusure a fondo pagina.

Roby

Perfetto Roby funziona!
Sintetico e preciso come sempre