Controllo presenza record prima di eseguire una query

[Leggero82]

Sto provando ad aggiornare alcune pagine ASP dedicate alla gestione di un piccolo DB Access.
In pratica vorrei abbandonare il seguente metodo per la cancellazione dei record:

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db.mdb")
Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql="Select * from Tabella"
Rs.Open Sql, Conn, 2,2

if Rs.eof then
session("messaggio") = "Non è presente nessun record"
response.redirect "errore.asp"
else
session("messaggio") = "Record eliminato correttamente"
response.redirect "conferma.asp"

(manca il codice di chiusura della chiamata al DB)

per passare a quello eseguito direttamente dalla query:

dim conn, rs
set conn=Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db.mdb")
sql = "DELETE * FROM Tabella"
set rs = conn.execute(sql)

if rs.eof then
session("messaggio") = "Non sono presenti record da eliminare"
response.redirect "errore.asp"
end if

conn.close()
set conn=nothing

session("messaggio") = "Record eliminato correttamente"
response.redirect "conferma.asp"

In questo modo però mi restituisce il seguente errore nella linea che richiama il controllo sulla presenza di record nella tabella (if rs.eof then):

ADODB.Recordset error '800a0e78'
Operation is not allowed when the object is closed.

Non riesco a capire :master:

[Mizushi]

Set Rs=Server.CreateObject("ADODB.RecordSet")
....
Rs.Open Sql, Conn, 3, 3

[Leggero82]

ops scusa, forse non si capiva dal mio primo post..

l'errore restituito è relativo al secondo codice postato; il primo l'ho copia-incollato solo per fare l'esempio del cambiamento che sto provando ad apportare alle pagine

[Mizushi]

dim conn, rs
set conn=Server.CreateObject("ADODB.Connection")

Set Rs=Server.CreateObject("ADODB.RecordSet")

conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db.mdb")
sql = "DELETE * FROM Tabella"
set rs = conn.execute(sql)

if rs.eof then
session("messaggio") = "Non sono presenti record da eliminare"
response.redirect "errore.asp"
end if

conn.close()
set conn=nothing

session("messaggio") = "Record eliminato correttamente"
response.redirect "conferma.asp"

[Leggero82]

veramente l'errore è relativo al controllo if rs.eof then... con il quale verifico se ci sono o meno records da eliminare.

se lo metto in quella posizione mi viene restituito l'errore che ho scritto sopra: Operation is not allowed when the object is closed.

non sono forse riuscito a spiegare la mia problematica?

[codicealpha]

fai in modo che se non ci sono record non chiudi il recordset, capita anche a me..

[Leggero82]

veramente nel codice che ho postato non ci sono comandi che chiudono il recordset, è quello che non riesco a capire

[codicealpha]

Originariamente inviato da Leggero82
veramente nel codice che ho postato non ci sono comandi che chiudono il recordset, è quello che non riesco a capire

nel tuo posto hai scritto ad un certo punto..


(manca il codice di chiusura della chiamata al DB)


objRs.Close (per intenderci)

[br1]

Ad una query che non restituisce un recordset (come una DELETE) e' sempre possibile associare un parametro che viene riempito da ADO con il numero di record coinvolti nella query stessa... pertanto dopo l'istruzione

conn.execute "DELETE * FROM Tabella", quanti

in quanti ritroverai il numero di records cancellati oppure 0 se nessun record e' stato eliminato.

Con queste premesse realizzare il controllo che ti serve dovrebbe essere semplice...

ciao

ps: l'errore lo ricevi proprio perche' la tua query non restituisce un recordset...

[Leggero82]

grazie br1, ora provo

codicealpha: la prima parte di codice che avevo postata era messa lì solamente per fare un esempio del codice che volevo cambiare.
l'errore si riferiva al secondo pezzo di codice postato.

forse in effetti postando il primo esempio ho fatto un po' di confusione..