Visualizzazione dei risultati da 1 a 8 su 8

Discussione: delete sql

  1. #1
    Utente di HTML.it L'avatar di biocco
    Registrato dal
    Sep 2003
    Messaggi
    486

    delete sql

    Non riesco a eliminare i record avendo la conferma di oerazione eseguita o fallita. Mi restituisce questo errore perchè???

    ADODB.Recordset error '800a0e78'

    Operation is not allowed when the object is closed.

    codice:
    SQL = "DELETE * from Iscritti where Email = '"& xmail &"'"
    Dim Connect
    Set Connect = Server.CreateObject("ADODB.Connection")
    connect.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application("Informa") & ";Persist Security Info=False"
    set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, Connect, adOpenKeyset 
    if not rs.EOF then
    	response.write "Tutto bene sei eliminato!"
    
    else
         response.write "Eliminazione non completata."
    end if
    rs.close

  2. #2
    Utente di HTML.it L'avatar di diegoctn
    Registrato dal
    May 2001
    Messaggi
    2,118
    Ad occhio manca il rs.movenext e il loop

  3. #3
    Utente di HTML.it
    Registrato dal
    Jul 2003
    Messaggi
    254
    Perchè usi un recordset invece dell'execute?

  4. #4
    ma sei sicuro che se apri un recordset con una istruzione di delete ti dia nel recordset il numero di campi cancellati?

  5. #5

    Forse questo potrebbe aiutare?

    codice:
    <%@ Language=VBScript %>
    <% Option Explicit %>
    
    <html>
    <head>
       <title>Cancellazione record con EXECUTE DELETE</title>
    <%
    Dim OBJdbConn
    Dim sConnStr
    Dim iDeleted
    Dim src
    
    %>
    
    </head>
    <body>
       <%
       src = Server.MapPath("db1.mdb")
       sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src 
    
    'Crea e apre un oggetto Connection
       Set OBJdbConn = Server.CreateObject("ADODB.Connection") 
       OBJdbConn.Open  sConnStr
    
    'Esegue metodo EXECUTE
       OBJdbConn.Execute "DELETE pippo.campo FROM pippo WHERE (((pippo.campo)='<filtro>'))", iDeleted
       Response.Write "Cancellati " & iDeleted & " record(s)"
    
       Set OBJdbConn = Nothing
       %>
    </body>
    <html>
    Dovrebbe funzionare.
    This machine has no brain. Please, use your own!

  6. #6
    mai vista quella sintassi, però leggendo qui http://www.masterdrive.it/archive/in...p?t-11448.html sembrerebbe giusta come sintassi

  7. #7
    Originariamente inviato da santino83
    mai vista quella sintassi, però leggendo qui http://www.masterdrive.it/archive/in...p?t-11448.html sembrerebbe giusta come sintassi
    Infatti, riprovandola va che è una bomba!! :maLOL:
    Ovviamente si può modificare togliendo la parte relativa al filtro. In questo modo si cancellano tutti i record della tabella!
    This machine has no brain. Please, use your own!

  8. #8
    Originariamente inviato da luigi1970
    Infatti, riprovandola va che è una bomba!! :maLOL:
    Ovviamente si può modificare togliendo la parte relativa al filtro. In questo modo si cancellano tutti i record della tabella!
    non si finisce mai di imparare...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.