[ASP] SALVARE VALORE SELECT OPTION SU CAMPO TABELLA ACCESS

sg2019

Nuovo Utente
17 Apr 2019
18
2
3
SICILIA
www.bronteportal.it
salve vorrei capire come fare per salvare il valore di una select option che deriva da una tabella access e una volta scelta l'opzione giusta poter salvare il risultato su un record di una altra tabella. faccio l'esempio:

ho la tabella patente dove sono indicati i tipi di patente. io voglio utilizzare una select option dove escono tutte le patenti prelevate dalla tabella patente, ed una volta che trovo la patente che mi serve (ad esempio CQC) poter salvare questo dato sulla tabella allievi dove c'e' il campo categoria.
Ho provato con l'esempio che posto ma vengono salvati gli altri record tipo cognome e nome ma nella categoria è vuoto.

grazie a tutti per l'aiuto.
Felice..
 

sg2019

Nuovo Utente
17 Apr 2019
18
2
3
SICILIA
www.bronteportal.it
ecco il codice della pagina del form:

<TABLE border="1" id="table5" style="width: 100%">
<TR class="cabe">
<TD bgcolor="#FFFFFF">CATEGORIA</TD>

</TR>
<%
Dim strSearch

set conn=server.createobject("adodb.connection")
conn.open = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/sg2019.mdb")
sql="select * from patente order by patente asc"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1, 3

%>
<TR>
<TD bgcolor="#D9D9D9">
<form name="form" method="post" action="addcli.asp" >

<p><select size="1" name="categ" onchange="this.form.update()" style="background-color: #D9D9D9" onChange="invia()">
<option></option>

<%


Set Rs = Conn.Execute(SQL)
do While Not rs.EOF%>
<option>
<% =rs("patente") %>
</option>
<%rs.MoveNext
loop

%>

</select>

</form>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing

%>

</select></TR></TABLE>

--------------------------------------------

ora il codice per salvare i dati in tabella:

<%
' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/sg2019.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
' CONTROLLA SE TUTTI I CAMPI SONO STATI COMPILATI
IF Len(Request("cognome")) <3 or Len(Request("nome")) <3 then
%>
<p align="center"><font face="Verdana" size="4" color="#FF0000"><b>Campi non compilati correttamente!</b></font></p>
<%
Else
' CAMPI COMPILATI
' RICEVE L'OPERAZIONE DA SVOLGERE (AGGIUNGERE/MODIFICARE NEWS)
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM ALLIEVI"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
RecSet.Addnew

RecSet("cognome") = Replace(Request.Form("cognome"), "'", "&#8242;")
RecSet("nome") = Replace(Request.Form("nome"), "'", "&#8242;")
RecSet("categoria") = Replace(Request.form("categ"), "'", "&#8242;")

non sono tutti i campi. quello che mi interessa è categoria che resta vuoto. non salva i dati.

grazie
Felice
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
550
13
18
Italy
www.riciclarte.info
Prova cosi:
Codice:
<%

    Dim strSearch

    set conn=server.createobject("adodb.connection")
        conn.open = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/sg2019.mdb")
        sql="select * from patente order by patente asc"
        set rs=server.createobject("adodb.recordset")
        rs.open sql, conn, 1, 3

%>
<form name="form" method="post" action="addcli.asp" >
<div>
<select size="1" name="categ" style="background-color: #D9D9D9" onChange="invia()">
    <option value=""> </option><%
  
' effettuo il ciclo della categoria patente
    Set Rs = Conn.Execute(SQL)
        do While Not rs.EOF

    %><option value="<%=rs("patente")%>"><%=rs("patente")%></option><%

    rs.MoveNext
    loop

%>
</select>
</div>
<%

        rs.close
        conn.close
    set rs=nothing
    set conn=nothing

%>
</form>
Nel tag select non puoi mettere due "onChange":
Codice:
<select size="1" name="categ" onchange="this.form.update()" style="background-color: #D9D9D9" onChange="invia()">
 

sg2019

Nuovo Utente
17 Apr 2019
18
2
3
SICILIA
www.bronteportal.it
ciao e grazie della risposta.
si ho visto questo ma l'onchange invia() non è collegato a niente e quindi è come se non ci fosse. ma lo togliero' subito. in ogni caso non è questo il problema. io credo che per fare il replace di una select option ci vuole qualco'altro, magari una funzione javascript o jquery. boh... hai qualche idea?
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
550
13
18
Italy
www.riciclarte.info
...in pratica non viene valorizzata la variabile, sicuramente il problema sta nel fatto, mi sembra di aver capito, che il submit lo fa uno javascipt e non un pulsante submit.
Prova a modificare questo per vedere se lo script funziona:
Codice:
<form name="form" method="get" action..
in pratica, modificando da post a get vedrai la variabile nell'url, se non la vedi aggiungi un pulsante invio e vedi che succede
 

sg2019

Nuovo Utente
17 Apr 2019
18
2
3
SICILIA
www.bronteportal.it
ciao Paolo. Funziona !!!!!! allora ti dico. Ho cambiato da post a get ed ho visto che mi faceva vedere tutti i collegamenti nell'url ma categoria non c'era....
mi sono accorto che stranamente avevo due form , cosi' ne ho tolto uno ed ha funzionato..
sei stato grande a dirmi come fare.. grazie ancora Paolo. Se ho altri problemi posso disturbarti? hehehe
grazie ancora
e buona serata
Felice
 
  • Like
Reactions: Paolo69
Discussioni simili
Autore Titolo Forum Risposte Data
M Form ASP su MsSQL salvare 2 campi in 1 Classic ASP 4
M JavaScript: lanciare funzione ASP per salvare dati in database Javascript 0
I Salvare form file.asp Classic ASP 2
J Salvare un documento in DB access in progetto ASP.NET ASP.NET 15
felino ASP.net MVC: Exception e chiamata AJAX ASP.NET 1
W Rinominare Documenti Con Form Asp Classic ASP 9
G Registrazione utente su pagina asp Classic ASP 13
R Sviluppatore ASP.NET Offerte e Richieste di Lavoro e/o Collaborazione 0
seranto [ASP] Controllare il testo inserito in Textarea Classic ASP 6
F classic asp popolare combo box javascript Presentati al Forum 1
P Passagio dati complessi tra una ASP.NET webapi e Angular ASP.NET 1
A [ASP.Net] Gestire il profilo ADMIN in un progetto ASP NET e pattern MVC ASP.NET 0
P [ASP.Net] Problema ERR_INCOMPLETE_CHUNKED_ENCODING 206 (Partial Content) con Font ASP.NET 4
A [ASP] Confronto tra dati Form e DB Classic ASP 2
A Mantenere la validazione reindirizzandoci su un secondo sito WEb. (ASP.NET) ASP.NET 0
StephenSoftware [ASP.Net] Pagina Master ed eventi... ASP.NET 0
K [ASP] Visualizzare nome del file selezionato Classic ASP 3
S [ASP] rubrica telefonica Classic ASP 2
M MySQL e classic ASP Classic ASP 5
D [ASP] Eliminare gli zeri che nn servono Classic ASP 1
G [ASP] Ciclare i valori di 2 array Classic ASP 2
S [RISOLTO] aggiorna tabella da select option asp classic Classic ASP 7
S elimina record sql asp classic Classic ASP 5
D [ASP] Autocomplete cerca su 2 campi del db Classic ASP 1
D [ASP] Leggere Campo decimal MYSQL Classic ASP 1
NuviaSoftware [Retribuito] [Cerco] Programmatore ambienti ASP.NET,. Net Azure web apps, Javascript Offerte e Richieste di Lavoro e/o Collaborazione 0
D [ASP] scaricare articoli Classic ASP 8
D [ASP] Mysql insert e update Classic ASP 2
V [ASP.Net] avento keydown crh13 enter ASP.NET 0
A [ASP.Net] Dropdownlist ASP.NET 0
S [ASP.Net] [ASP] Upload Image ASP.NET 6
V Ricevere messaggi email certificata con CDO o altro oggetto in ASP Classic ASP 0
A [ASP] query wish list Classic ASP 3
riminese77 [ASP.Net] Popup Bootstrap in datagrid ASP.NET 0
D [ASP] si può fare? Classic ASP 29
D [ASP] ordinamento query Classic ASP 2
M [ASP] Upload file da form controllo Classic ASP 5
S SQL, ACCESS & ASP CLASSIC - QUERY Classic ASP 3
G [ASP] Incrementare un valore on the fly su selezione select Classic ASP 3
K [ASP.Net] Realizzazione menu a tendina dipendenti ASP.NET 1
Tommy03 Aprire un file .asp nel browser Classic ASP 5
E [ASP.Net] Access 2016 ? Non si usa Microsoft Jet 4.0 ma Engine 2016 o 2010. Non va ! ASP.NET 2
D csrf : Cross Site Request Forgery in classic asp Classic ASP 0
D [ASP] Motore di ricerca interno su 2 tabelle Classic ASP 3
M [ASP.Net] [ASP] geoblocking e web.config ASP.NET 3
N Cerco sviluppatore ASP per aggiornamento sito e-commerce esistente Offerte e Richieste di Lavoro e/o Collaborazione 0
D prima prova con ASP... dove sbaglio? Classic ASP 13
L [ASP.Net] Realizzare modulo contatti PopUp ! ASP.NET 1
P Da ASP a PHP... movenext? do while not? PHP 5
A Retribuito: Sviluppatore Asp classico esperto in sicurezza webserver IIS e SQL Offerte e Richieste di Lavoro e/o Collaborazione 0

Discussioni simili