Filoweb.it

CREARE UNA TEBALLE PER INSERIRE I DATI


FB TW G+ whatsapp RSS FEED News letter
ASP
CREARE UNA TEBALLE PER INSERIRE I DATI


  <%
Sub CreaInserimento(tabella)

  SQLConn = " " '  stringa di conn

  set conn = server.createobject(" ADODB.Connection" )
  conn.open sqlconn

  if request(" inserimento" ) = " 1"  then
    ' inserisco

    '  ciclo su tutti i campi inviati tramite metodo POST
    for each item in Request.Form
      '  se i primi 4 char contengono SQL_
      if Mid(item, 1, 4) = " SQL_"  then
        SQL1 = SQL1 & Mid(item, 5) & " , " 
        SQL2 = SQL2 & " ' "  & Replace(Request.Form(item), " ' " , " ' ' " ) & " ' , " 
      end if
    next

    '  costruzione query ed inserimento
    SQL = " INSERT INTO "  & tabella & " ("  & Left(SQL1, Len(SQL1)-2)
    SQL = SQL & " ) VALUES ("  & Left(SQL2, Len(SQL2)-2) & " )" 
    conn.Execute SQL, aff

    '  informazione di debug: volendo si può rimuovere
    Response.write (" Query Eseguita:"  & SQL & " <br>" )

    if aff = 1 then
      Response.Write(" Record inserito con sucesso" )
    else
      Response.Write(" Record non inserito" )
    end if

  else
    '  ricavo struttura e form

    strSQL = " SELECT * FROM "  & tabella

    Set rs = conn.Execute(strSQL)

    '  ricavo il nome dei campi
    For i = 0 to RS.Fields.Count - 1
      intestazione = intestazione & " <tr><td>"  & RS(i).Name
      intestazione = intestazione & " </td><td><input type=" " text" "  name=" " SQL_"  & RS(i).Name & " " " ></td></tr>" 
    Next

    set rs = Nothing

    Response.Write (" <form method=post>" )
    Response.Write (" <input type=" " hidden" "  name=" " tabella" "  value=" " "  & tabella & " " " >" )
    Response.Write (" <input type=" " hidden" "  name=" " inserimento" "  value=" " 1" " >" )
    Response.Write (" <table border=1>" )
    Response.Write (intestazione)
    Response.Write (" <tr><td><input type=" " submit" "  value=" " Inserisci" " ></td></tr>" )
    Response.Write (" </table>" )

  end if

  conn.Close
  set Conn = Nothing
 

End Sub

call CreaInserimento(Request(" tabella" ))
%> 
FB TW G+ whatsapp RSS FEED News letter

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito sono di proprietà di Filippo Brunelli salvo diversamente indicato.
L'uso delle immagini e del testo è gratuito per uso personale ed è subbordinato alla citazione della fonte.
Brunelli Filippo declina ogni responsabilità per l'uso che viene fatto delle informazioni presenti nel sito.
FILOWEB.it Piccolo quaderno degli appunti. Argomento: ASP, Titolo:CREARE UNA TEBALLE PER INSERIRE I DATI. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it