Alimentazione progressivi su db access

[alasque]

Ciao a tutti,

avrei bisogno di aiuto per gestire l'invio, tramite modulo, di un'attribuzione di progressivo:

io ho 3 pagine, un modulo, un riepilogo ed un invio.

Con la prima, a_verif_disp.asp dovrei creare un progressivo ( ANNO, PROGRESSIVO ) e tenerlo disponibile per la seconda.

con lo script che segue sono solo riuscito ad inviare i dati alla seconda (Riepilogo.asp)

'è qualcuno che mi può aiutare?

Grazie

[wallrider]

sia per la prima che per la seconda il trucco è lo stesso:
metti in dei campi nascosti i dati che vuoi passare "alla pagina successiva", per esempio nella prima generi il progressivo e lo metti in un campo hidden, quando fai il submit la pagina Riepilogo.asp riceverà il progressivo e il resto

[alasque]

ciao wallrider,

il problema non è passare i dati alla pagina di riepilogo ma di generare i progressivi nella relativa tabella

[lucalicc]

con una select estrai il recordo con il progressivo più alto e lo incrementi di uno
se la soluzione non è questa, allora spiega meglio quello che devi fare
che non è cosi chiaro come credi.
luca

[alasque]

Ciao lucalicc,

spero di non essere stato inopportuno e ti chiedo, se puoi di dare un'occhiata al codice:

[io ho:
- Db= prenota.mdb
- Tabelle= RichiesteProgressivi e RichiesteDati
- RichiesteProgressivi contiene i campi Anno e NumProgressivo

poi ho una pagina che si chiama a_ver_disp.asp che ha sostanzialmente 2 script:
uno per generare il progressivo e l'altro per passare i parametri ad una seconda pagina di riepilogo

i dati vengono puntualmente passati alla pagina di riepilogo e va bene ma non riesco a GENERARE il progressivo di prenotazione:

ecco lo script:


<%
Dim rsAnagrafica__Param1
rsAnagrafica__Param1 = "-1"
If (Request("id") <> "") Then
rsAnagrafica__Param1 = Request("id")
End If
%>
<%
Dim rsAnagrafica
Dim rsAnagrafica_cmd
Dim rsAnagrafica_numRows

Set rsAnagrafica_cmd = Server.CreateObject ("ADODB.Command")
rsAnagrafica_cmd.ActiveConnection = MM_Regioni_STRING
rsAnagrafica_cmd.CommandText = "SELECT * FROM Strutture WHERE id = ?"
rsAnagrafica_cmd.Prepared = true
rsAnagrafica_cmd.Parameters.Append rsAnagrafica_cmd.CreateParameter("param1", 5, 1, -1, rsAnagrafica__Param1) 'adDouble

Set rsAnagrafica = rsAnagrafica_cmd.Execute
rsAnagrafica_numRows = 0
%>
<%
a=request.form("Anno")
b=request.form("NumProgressivo")
'apro la connessione
set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")

OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("/mdb-database/Prenota.mdb")


Set rs=server.CreateObject("ADODB.Recordset")
rs.Open "RichiesteProgressivi",OBJdbConnection,3,3
rs.AddNew
rs("Anno")=a
rs("NumProgressivo")=b
rs.update
rs.Close
OBJdbConnection.Close
%>

<%
a=request.form("Cognome")
b=request.form("Nome")
c=request.form("Email")
d=request.form("Telefono")
e=request.form("N_Notti")
f=request.form("Arrivo")
g=request.form("Partenza")
h=request.form("N_Adulti")
i=request.form("N_Bambini")
l=request.form("Tipo_Trattamento")
m=request.form("Importo")
n=request.form("Ulteriori_Richieste")
'apro la connessione
set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")

OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("/mdb-database/Prenota.mdb")


Set rs=server.CreateObject("ADODB.Recordset")
rs.Open "RichiesteDati",OBJdbConnection,3,3
rs.AddNew
rs("Cognome")=a
rs("Nome")=b
rs("Email")=c
rs("Telefono")=d
rs("N_Notti")=e
rs("Arrivo")=f
rs("Partenza")=g
rs("N_Adulti")=h
rs("N_Bambini")=i
rs("Tipo_Trattamento")=l
rs("Importo")=m
rs("Ulteriori_Richieste")=n
rs.update
rs.Close
OBJdbConnection.Close
%> [/CODE]

[lucalicc]

ammetto i miei limiti, ma non riesco a seguire il codice che hai postato.
cmq, devi estrarre l'ultimo numero di prenotazione inserito nel
database e incrementarlo di uno,
da es. se il numero di prenotazione è nel campo nr_prenot
fai una query sql dove estrai l'ultimo numero di prenotazione

select * top 1 from nometabella order by nr_prenot desc

trovi l'ultimo numero di prenotazione e lo incrementi di uno

nuova_prenotazione = rs("nr_prenot") + 1

poi passi il valore nuova_prenotazione alle pagine che
devono inserire il record come campo hidden.
Luca

[alasque]

nella query del rs non mi accetta il top 1 ma comunque l'ho inserito nello script e il secondo script come lo inserisco? (nuova_prenotazione = rs("nr_prenot") + 1
)