Visualizzazione dei risultati da 1 a 6 su 6

Discussione: Eliminare record da db

  1. #1

    Eliminare record da db

    Salve, vorrei eliminare un record dal campo "stato" dalla tabella "tabstati" del mio database. Io ho fatto un collegamento alla pagina "eliminarestato.asp" in questo modo:

    codice:
    ">Elimina
    cosi l'elinazione e relativa allo stato che scelgo, cioè quello con l'id appartenente.
    Nella pagina eliminarestato ho inserito questo codice, ma mi da errore:

    codice:
     <%
       Dim conn2
       Dim rs2
       Dim sSql2
     
     'Imposto la connessione
      Set conn2 = Server.CreateObject("ADODB.Connection")
       conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dbstati.mdb")
       
       'Imposto la stringa SQL di selezione dati
    idutente = cInt(request("ID")) 
    sSql2 = "DELETE FROM tabstati WHERE id ="&id&""
       'apro il Set di Record
       Set rs2 = Server.CreateObject("ADODB.Recordset")
       rs2.Open sSql2, conn2, 3, 3
      %>  
    <%                              
    'Chiudo il recordset e libero la memoria
          rs2.Close
          Set rs2 = Nothing
          'Chiudo la connessione al database e libero la memoria
          conn2.Close 
          Set conn2 = Nothing
       %>
    ma non mi elimina il record stato, mi da questo errore:

    Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
    [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id ='.


    come esempio vedete questa pagina: http://www.banconotemondiali.it/coll...ina2.asp?ID=26

    Grazie

  2. #2
    codice:
    <%
       Dim conn2
       Dim rs2
       Dim sSql2
       Dim idutente
    
     
     'Imposto la connessione
      Set conn2 = Server.CreateObject("ADODB.Connection")
       conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dbstati.mdb")
       
       'Imposto la stringa SQL di selezione dati
    idutente = cInt(request.queryString("ID")) 
    sSql2 = "DELETE FROM tabstati WHERE id ="&idutente&""
       'apro il Set di Record
       Set rs2 = Server.CreateObject("ADODB.Recordset")
       rs2.Open sSql2, conn2, 3, 3
      %>  
    <%                              
    'Chiudo il recordset e libero la memoria
          rs2.Close
          Set rs2 = Nothing
          'Chiudo la connessione al database e libero la memoria
          conn2.Close 
          Set conn2 = Nothing
       %>

  3. #3
    Io però farei così:
    codice:
    <%
    id = request.queryString("id")
    
    if isNumeric(id) then
    
      Set conn2 = Server.CreateObject("ADODB.Connection")
      conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\mdb-database\dbstati.mdb")
      sSql2 = "DELETE * FROM tabstati WHERE [id] = " & id
      conn2.execute(sSql2)
      conn2.Close 
      Set conn2 = Nothing
    
    end if
    %>

  4. #4
    GRAZIE FUNZIONA.....

  5. #5
    FUNZIONANO ENTRAMBI.....TENGO QUEST'ULTIMA...grazie

  6. #6
    scusami invce per fare l'aggiornamento record sempre di "stato" e "nota"?

    <%
    stato=request.form("stato")
    nota=request.form("nota")

    id = request.queryString("id")



    Set conn2 = Server.CreateObject("ADODB.Connection")
    conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\mdb-database\dbstati.mdb")
    sSql2 = UPDATE tabstati SET stato="stato", nota="nota" WHERE id ="idutente"
    conn2.execute(sSql2)
    conn2.Close
    Set conn2 = Nothing


    %>


    mi sa errore:
    Microsoft VBScript compilation error '800a0401'

    Expected end of statement

    /collezioni/aggiornadatistato.asp, line 782

    sSql2 = UPDATE tabstati SET stato="stato", nota="nota" WHERE id ="idutente"
    ---------------^

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 © 2025 vBulletin Solutions, Inc. All rights reserved.