Salve, ho un piccolo problema nell'inserimento di alcuni record in un db access, in pratica quando effettuo un ordinazione mi risulta nel db un doppio inserimento dello stesso oggetto, qualcuno ha esperienza in merito?
Vi ringrazio in anticipo.
Se vi serve posso anche includere il codice sia del form che della pagina di transazione.
Massimo.
forse con un po di codice è meglio
Questa è la parte relativa alla transazione:
<%
Dim oggetto1,proprietario,sesso,destinatario,mastro,gi orno,sessod,mese,pagato,anno,imgogg1,desogg1,dedic a,regalo,prezzo
Dim razza,araldica,numero,NO
oggetto1 = Request.Form("oggetti")
numero = Request.Form("numero")
proprietario = Request.Form("proprietario")
destinatario = Request.Form("destinatario")
sesso = Request.Form("sesso")
mastro = Request.Form("carpentiere")
regalo = Request.Form("regalo")
sessod = Request.Form("sessod")
NO = "NO"
dedica = Request.Form("dedica")
Set adoCon = Server.CreateObject("ADODB.Connection")
strDbPathAndName = Server.MapPath("/db/db.mdb")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDbPathAndName
adoCon.connectionstring = strCon
adoCon.Open
Set rsCommon = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM catalogo WHERE id = " & oggetto1 & ""
rsCommon.Open strSQL, strCon
If NOT rsCommon.EOF Then
imgogg1 = rsCommon("imgogg1")
desogg1 = rsCommon("desogg1")
prezzo = rsCommon("prezzo")
oggetto = rsCommon("oggetto1")
else response.write("vuoto")
end if
rsCommon.Close
set rsCommon=Nothing
Set adoCon = Server.CreateObject("ADODB.Connection")
strDbPathAndName = Server.MapPath("/db/db.mdb")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strDbPathAndName
adoCon.connectionstring = strCon
adoCon.Open
Set RS = Server.CreateObject ("ADODB.RecordSet")
strDbPathAndName = "SELECT * FROM aquisti"
RS.Open strDbPathAndName,adoCon,3,3
RS.AddNew
RS("pagato") = "NO"
RS("oggetto1") = oggetto
RS("prezzo") = prezzo
RS("proprietario") = proprietario
RS("destinatario") = destinatario
RS("sesso") = sesso
RS("imgogg1") = imgogg1
RS("desogg1") = desogg1
RS("mastro") = carpentiere
RS("numero") = numero
RS("stato") = "ottimale"
RS("data") = now()
if regalo = "SI" then
RS("destinatario") = destinatario
RS("sessod") = sessod
RS("dedica") = dedica
else
end if
RS.update
RS.Close
set RS=Nothing
response.redirect("conferma.asp")
%>
Non credo sia qui l'errore perche mi sembra tutto regolare, ci sto' sbattendo la testa, credo sia piu nel form che è questo:
<html>
<head>
<meta http-equiv="Content-Language" content="it">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Laboratorio</title>
<script>
function vai() {
document.vendi.action="transvendic.asp";
document.vendi.submit();
}
</script>
</head>
<body bgcolor="#000000" text="#FFEDAB">
<font face="Verdana">
<p align="center">Laboratorio dei Carpentieri</p>
<div align="center">
<center>
</p>
</center>
</div>
</font>
<form name="vendi" action="" method="post">
<font face="Verdana">
<div align="center">
<center>
</p>
</center>
</div>
<div align="center">
<center>
<font color="#FFFF00" size="2">
</font>Vendi Prodotti Catalogo</p>
</center>
</div>
</font><div align="center">
<center>
<font face="Verdana"><select name="sesso" size="1" id="sesso">
<option selected>Ser</option>
<option>Lady</option>
</select>
<input name="Proprietario" type="text" id="Proprietario" size="20">
</font></p>
<font face="Verdana">Categoria
<select name="Categoria" id="Categoria" onChange="submit()">
<option value="" selected>Seleziona</option>
<option value="A">A</option>
<option value="B">B</option>
<option value="C">C</option>
<option value="D">D</option>
</select>
</font></p>
</center>
</div>
<%
f_cat = Request.Form("categoria")
if len(f_cat)>0 then
Dim strDataBasePath 'Variabile
Dim cString 'Variabile
Dim adoCon 'Variabile
Dim strSQL 'Variabile
f_ogg = Request.Form("oggetti")
%>
<font face="Verdana"></font><font face="Verdana"><div align="center">
<center>
Prodotto
<select name="oggetti" id="oggetto1" >
<option value="" selected>Seleziona</option>
<%
Set adoCon = Server.CreateObject("ADODB.Connection")
strDataBasePath = "/db/db.mdb"
'------------------------------------------------------------------------------------
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath)
adoCon.Open cString
set rs = Server.CreateObject("ADODB.recordset")
strSQL = "SELECT DISTINCT oggetto1, catalogo.id FROM catalogo INNER JOIN categorie ON catalogo.cat = categorie.cat WHERE categorie.cat='"&f_cat&"'"
rs.Open strSQL, adoCon
do until rs.EOF
oggetto1 = rs.Fields("oggetto1")
id = rs.Fields("ID")
%>
<option value="<%=id%>" ><%=oggetto1 & "(" & id & ")"%> </option>
<%
rs.MoveNext
loop
rs.close
end if
%>
</select>
</p>
</center>
</div>
<div align="center">
<center>
Quantità
<select name="numero" size="1" id="numero">
<option selected>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
<option>7</option>
<option>8</option>
<option>9</option>
<option>10</option>
<option>11</option>
<option>12</option>
<option>13</option>
<option>14</option>
<option>15</option>
<option>16</option>
<option>17</option>
<option>18</option>
<option>19</option>
<option>20</option>
<option>21</option>
<option>22</option>
<option>23</option>
<option>24</option>
<option>25</option>
<option>26</option>
<option>27</option>
<option>28</option>
<option>29</option>
<option>30</option>
<option>31</option>
<option>32</option>
<option>33</option>
<option>34</option>
<option>35</option>
<option>36</option>
<option>37</option>
<option>38</option>
<option>39</option>
<option>40</option>
<option>41</option>
<option>42</option>
<option>43</option>
<option>44</option>
<option>45</option>
<option>46</option>
<option>47</option>
<option>48</option>
<option>49</option>
<option>50</option>
</select>
</p>
</center>
</div>
<p align="center">Dono di
<select name="dono" size="1" id="dono">
<option selected>Ser</option>
<option>Lady</option>
</select>
<input name="destinatario" type="text" id="destinatario" size="20">
</p>
<p align="center">Dedica
<input name="dedica" type="text" id="dedica" size="20">
</p>
</font>
<p align="center">
<input type="submit" value="Inserisci" name="B3" onClick="javascript: vai();">
</p>
</form>
</body>
</html>
Ma aime ho ricontrollato visto e rivisto e non capisco dove cavolo sbaglio!!!
Chiedo scusa ma è urgente, questo catalogo dovevo finirlo per il mese scorso.
se intendi inserimento doppio nella base dati dov'è la query di INSERT?
un occhiata veloce vedo che tu
fai addnew e poi update e poi rimandi alla pagina
conferma.asp
se sicuro che in conferma.asp non lo inserisci di nuovo?
o che forse non hai ben architettato l'insieme, prevedendo la non duplicazione dell'id del record?
La pagina conferma.asp è una semplicissima pagina in cui viene confermato l'ordine e non rimanda da nessuna parte, piuttosto mi fa' pensare il form di immissione dove si trova la parte in javascript, in pratica quando uno sceglie la categoria fa un submit per caricare nella lista le armi, poi quando la invia esegue il javascript "vai", io credo che forse è in quel frangente che effettua il doppio ordine....ho questa sensazione...pero' non capisco una cosa....in locale non me lo fa', mentre in remoto si e non capisco che cosa cambia...il server è aruba.
99eros9
spe...L'ID cambia
ID oggetto1 proprietario destinatario sesso mastro imgogg1 desogg1 dedica sessod prezzo araldica razza numero pagato data committente stato sessom cat des codice
204 Frecce lunghe massimo Ser /images/freccelunghe.jpg 100 10 NO 26/09/2004 10.58.58 ottimale
205 Frecce lunghe massimo Ser /images/freccelunghe.jpg 100 10 NO 26/09/2004 10.58.59
ottimale
Vedi ID e orario ripete due volte l'inserimento
ma l'id è chiave primaria?
Permessi di invio
Rispondi quotando