inserimento dati su due tabelle con id tipo contatore e numerico

[alessandrot84]

ciao a tutti. vorrei esporvi un mio dubbio.

per il sito che sto progettando prevedo una fase di inserimento di valori in 2 tabelle collegate tramite id. fino ad oggi i campi erano entrambi di tipo numerico e tutto funzionava. ora il mio supervisore vuole che il tipo di dato del primo id sia contatore quindi quello che faccio non funziona più. prima l'utente inseriva l'id che voleva da una form e in entrambe le tabelle il valore dell'id era quello. ora il tipo contatore attribuisce lui il valore alla prima tabella ma..come faccio a far salvare lo stesso valore anche nella seconda tabella?

spero di essere stato chiaro

vi posto il mio codice...

con questo prelevo i valori dalla form

<%
Areadaverificare = request.Form("area_da_verificare")
Macroarea = request.Form("macroarea")
Anno = request.Form("anno")
Mese = request.Form("mese")
Dataverifica = request.Form("data_verifica")
Dataregistrazione = request.Form("data_registrazione")
Datainserimento = request.Form("data_inserimento")
Datascadenza = request.Form("data_scadenza")
Verificatore = request.Form("verificatore")
Accompagnatore = request.Form("accompagnatori")
Ditta = request.Form("ditta")
Descrizione = request.Form("descrizione")
Commento = request.Form("commento")
Rilievo = request.Form("Descr_rilievo")
%>

con questo vado ad aggiungere dati sulla prima tabella (quella il cui id è di tipo contatore)

<%
'Codice inserimento dati in database
set OBJdbConnection=Server.CreateObject("ADODB.Connection")

'Server.MapPath si riferisce alla directory corrente del dominio

 OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/SITO/database/verifichedisistema.mdb")
 Set rs=server.CreateObject("ADODB.Recordset")

 rs.Open "vds_generale",OBJdbConnection,3,3
 rs.AddNew
 rs("ID") = id
 rs("area_da_verificare") = areadaverificare
 rs("anno") = anno
 rs("mese") = mese
 rs("data_verifica") = dataverifica
 rs("data_registrazione") = dataregistrazione
 rs("verificatore") = verificatore
 rs("accompagnatori") = accompagnatore
 
 
 rs.update
 rs.Close
 OBJdbConnection.Close

con questo inserisco i dati sul secondo (id_vds è di tipo numerico)

 

 OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/SITO/database/verifichedisistema.mdb")
 Set rs=server.CreateObject("ADODB.Recordset")
 rs.Open "vds_dettaglio",OBJdbConnection,3,3
 rs.AddNew

 rs("ID_vds") = id 
 rs("macroarea") = macroarea
 rs("data_inserimento") = datainserimento
 rs("data_scadenza") = datascadenza
 rs("ditta") = ditta
 rs("descrizione") = descrizione
 rs("commento") = commento
 rs("Descr_rilievo") = rilievo
 
 rs.update
 rs.Close
 
 OBJdbConnection.Close
%>

la riga incriminata è sicuramente quella in rosso..cosi è come la usavo prima..come potrei correggerla per far prendere il valore id di tipo contatore?

grazie mille per l'aiuto

Alessandro

[alemux]

Devi fare un passaggio in più.
Prima inserisci il record nella tabella con l'ID autoincrementale, poi ne ricavi il valore e lo inserisci nell'altra tabella. E' questo quello di cui avevi bisogno?

[alessandrot84]

vediamo se ho capito quello che dici:

il mio utente attualmente clicca su un link che apre la pagina per l'inserimento. inseriti tutti i dati c'è un bottone che passa i dati nella seconda pagina dove i dati vengono salvati nel db e poi mostrati a video.

tu mi stasesti suggerendo di creare una pagina che genera l'id..questa pagina manda alla seconda (magari con una redirect) dove si inseriscono i dati..e poi si arriva alla pagina di salvataggio...ho capito bene?

inoltre, visto che voi ve ne intendete di sicuro più di me vorrei un consiglio: è più corretto usare entrambi i campi numerici con l'id dato dall'utente oppure farlo con un campo contatore e uno numerico?

[alemux]

Puoi fare tutto tranquillamente sulla stessa pagina.

<%
Areadaverificare = request.Form("area_da_verificare")
Macroarea = request.Form("macroarea")
Anno = request.Form("anno")
Mese = request.Form("mese")
Dataverifica = request.Form("data_verifica")
Dataregistrazione = request.Form("data_registrazione")
Datainserimento = request.Form("data_inserimento")
Datascadenza = request.Form("data_scadenza")
Verificatore = request.Form("verificatore")
Accompagnatore = request.Form("accompagnatori")
Ditta = request.Form("ditta")
Descrizione = request.Form("descrizione")
Commento = request.Form("commento")
Rilievo = request.Form("Descr_rilievo")


set OBJdbConnection=Server.CreateObject("ADODB.Connection")

'Server.MapPath si riferisce alla directory corrente del dominio

 OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/SITO/database/verifichedisistema.mdb")
 Set rs=server.CreateObject("ADODB.Recordset")

 rs.Open "vds_generale",OBJdbConnection,3,3
 rs.AddNew
'  rs("ID") = id    questo certamente non ti serve più, essendo ID autoincrementale
 rs("area_da_verificare") = areadaverificare
 rs("anno") = anno
 rs("mese") = mese
 rs("data_verifica") = dataverifica
 rs("data_registrazione") = dataregistrazione
 rs("verificatore") = verificatore
 rs("accompagnatori") = accompagnatore
 
 
 rs.update
 rs.Close
 OBJdbConnection.Close

 'cosi recuperi l'ID
 Set rs=server.CreateObject("ADODB.Recordset")
 sql = "select ID from nometabella order by ID DESC limit 0,1;"
 rs.open sql, OBJdbConnection
 if rs.bof and rs.eof then
 else
     
    newId = rs("ID")

 end if
 rs.close
 set rs=nothing
 


Set rs=server.CreateObject("ADODB.Recordset")
 rs.Open "vds_dettaglio",OBJdbConnection,3,3
 rs.AddNew

 rs("ID_vds") = newId
 rs("macroarea") = macroarea
 rs("data_inserimento") = datainserimento
 rs("data_scadenza") = datascadenza
 rs("ditta") = ditta
 rs("descrizione") = descrizione
 rs("commento") = commento
 rs("Descr_rilievo") = rilievo
 
 rs.update
 rs.Close


%>

[alessandrot84]

allora..ho provato e riprovato tutta la mattina ma non funziona. o meglio...mi aggiunge i dati all'interno della tabella vds_generale che ha il campo di tipo contatore ma non nella vds_dettaglio che ce l'ha numerico..

quindi credo che i prblemi comincino più o meno qui..

 
 'cosi recuperi l'ID
 Set rs=server.CreateObject("ADODB.Recordset")
 sql = "select ID from nometabella order by ID DESC limit 0,1;"
 rs.open sql, OBJdbConnection
 if rs.bof and rs.eof then
 else
     
    newId = rs("ID")

 end if
 rs.close
 set rs=nothing

come fa lui a sapere che deve riprendere proprio quello appena creato?
quando mi scrivi "nometabella" io ho inserito la tabella VDS_generale..cioè quella col contatore..sbaglio?

la seconda parte invece l'ho modificata come mi hai scritto tu..

[alessandrot84]

ho provato anche a dimensionare il valore newid prima di assegnargli il valore rs("id") ma evidentemente il problema non era quello

[br1]

Questo e' un metodo alternativo:

' creo un codice ragionevolmente univoco
Randomize : temporaneo = CStr(Timer() + Rnd())
myConnection.execute "insert into Tabella (CampoTesto) values ('" & temporaneo & "')"
' leggo il contatore assegnato
set rs = myConnection.execute("select CampoId from Tabella where CampoTesto = '" & temporaneo & "'")
IdAssegnato = rs("CampoId")
' modifico il record appena creato con i valori reali
....
' uso l'ID trovato
...

[alemux]

Hai qualche messaggio di errore? Così a stima è un pelo complicato....