Ho creato uno script di prova, ho eliminato la relazione con la tabella clienti e rinominato il campo "CODICE" della tabella "dettaglio_ordini" in "CODICEFILM", ecco il codice:
codice:
<%
data = Day(Date()) & "/" & Month(Date())& "/" & Year(Date())
set conn = server.createobject ("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("database\audiovisivi.mdb")
sql = "SELECT ordini.CODICE, dettaglio_ordini.codicefilm, dettaglio_ordini.ordine, ordini.cliente, ordini.data FROM ordini INNER JOIN dettaglio_ordini ON ordini.codice = dettaglio_ordini.ordine"
Set rscarrello = Server.CreateObject("ADODB.Recordset")
rscarrello.Open sql, conn ,3,3
rscarrello.addnew
rscarrello("cliente") = 1
rscarrello("data") = data
rscarrello("codicefilm") = 65
rscarrello("ordine") = 1 'deve inserire la chiave primaria dalla tabella ordini
rscarrello.update
rscarrello.close
set rscarrello = nothing
conn.close
set conn = nothing
%>
mi restituisce il seguente errore:
Microsoft JET Database Engine (0x80040E21)
Impossibile aggiungere o modificare il record. Nella tabella "ordini" è necessario un record correlato.
riferimento alla riga 23
ovvero: rscarrello.update