Eliminare Da Due Tabelle Contemporaneamente

[lupo1978]

Salve,vorrei sapere come mai questo script non esegue l'eliminazione del record dalle 2 tabelle indicate bensi da una sola"OGGETTI IN VENDITA":

<%
Dim Recordset1
Dim Recordset1_numRows


Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connUtenti_1_STRING
Recordset1.Source = "SELECT * FROM [OGGETTI IN VENDITA]"

Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0

set elimina = Server.CreateObject("ADODB.Command")
elimina.ActiveConnection = MM_connUtenti_1_STRING
elimina.CommandText = "DELETE * FROM [OGGETTI IN VENDITA] WHERE scadenza < now()"
elimina.CommandType = 1
elimina.CommandTimeout = 0
elimina.Prepared = true
elimina.Execute()
dim email
dim username
dim oggetto
username=(Recordset1.Fields.Item("USERNAME").Value )
email=(Recordset1.Fields.Item("email").Value)
oggetto=(Recordset1.Fields.Item("NOME O").Value)
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.From = "SMTP.MARINODIPRINZIO.COM"
Mail1.To = email
Mail1.Subject = "OGGETTO NON VENDUTO"
Mail1.TextBody = username &"-IL TUO OGGETTO "&oggetto&"-non e' stato venduto!Ti inviatiamo a riprovare"
'Mail1.Send
Set Mail1 = Nothing

Dim Recordset2
Dim Recordset2_numRows
Recordset2_numRows = 0
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_connUtenti_1_STRING
Recordset2.Source = "SELECT * FROM [statistice utente]"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0

set elimina = Server.CreateObject("ADODB.Command")
elimina.ActiveConnection = MM_connUtenti_1_STRING
elimina.CommandText = "DELETE * FROM [statistice utente] WHERE scadenza < now()"
elimina.CommandType = 1
elimina.CommandTimeout = 0
elimina.Prepared = true
elimina.Execute()
%>
grazie

[fraude]

sicuro che esista nel dbase la tabella?:

[statistice utente]

[teorema55]

Magari si chiama

statistiche utente

[teorema55]

Inoltre....sei sicuro che sia necessario creare e aprire quel secondo recordset? Se non devi presentare i dati contenuti nella tabella "statistiche utente" (o statistice che sia) o usarli in qualche altra procedura, non c'è bisogno di alcun recordset per cancellare dei dati, basta la semplice istruzione DELETE (anche nella sua complicata versione MM)

[lupo1978]

grazie per la risposta,ma come cambieresti questo script?per un errore di scittura mio la tabella si chiama cosi...,il problema non e' cancellare il record bensi cancellarlo in base alla scadenza,quando l'oggetto scade si cancella solo nella tabella oggetti in vendita,e non nella citata tabella...

[teorema55]

La stringa di connessione che usi

MM_connUtenti_1_STRING

ti connette al database contenente la tabella "oggetti in vendita" (visto che lì la cancellazione funziona).

La stessa va bene anche per la tabella "statistice"? Cioè: quest'ultima è contenuta nello stesso file .mdb che contiene anche la prima tabella?

[teorema55]

Se sì, controlla che anche nella tabella "statistice" il campo scadenza abbia lo stesso nome.....e se proprio non ne vieni a capo, controlla il contenuto del comando scrivendo

response.write(elimina.CommandText)

non ho molta dimestichezza con questa sintassi, ma siccome non hai distrutto il precedente comando "elimina" che hai usato per cancellare dalla prima tabella, non vorrei che il comando fosse ancora il primo. Se così fosse, alla fine della prima procedura scrivi

set elimina = nothing

... e poi fai sapere.

[lupo1978]

risolto grazie,faccio una tabella ripetuta del secondo record con campi nascosti,e ripeto la procedura della prima e tutto e ok,grazie per gli ottimi consigli...

[teorema55]

De nada.