Ciao, scusate ma è da una mattinata che nn riesco a risolvere, ho provato a cercare sul forum ma nn ho trovato soluzione
IL mio problema è il seguente. Devo compilare attraverso un form un database, il problema è che alcuni campi sono numerici infatti la tabella è giocatore_statistiche (Giocatore [Numerico], Partita [Numerico], Punti [Numerico] ....) tutti numerici.
i form (1 per giocatore) hanno questo codice
Mentre la pagina che dovrebbe inviare i dati ha questo codicecodice:<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr> <td></td><td align="center">PT</td><td align="center">MG</td> <td align="center">AS</td><td align="center">RD</td><td align="center">RO</td> <td align="center">PP</td><td align="center">PR</td><td align="center">FF</td> <td align="center">FS</td><td align="center">2T</td><td align="center">2R</td> <td align="center">3T</td><td align="center">3R</td><td align="center">LT</td> <td align="center">LR</td><td align="center">ST</td></tr> <% dim strCode2 strCode2="innovatel" dim intVolta2 intVolta2="0" Set Conn=Server.CreateObject("ADODB.Connection") strConn="driver={Microsoft Access Driver (*.mdb)}; " strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/partite.mdb") strConn=strConn & ";pwd=" & strCode1 Conn.Open strConn sql = "SELECT giocatore_base.ID, giocatore_base.Cognome, giocatore_base.Nome FROM giocatore_squadra, partita, giocatore_base WHERE giocatore_base.ID=giocatore_squadra.Giocatore And giocatore_squadra.Categoria=partita.categoria AND partita.ID=" & strNPartita & " order by giocatore_base.Cognome" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn ,3,3 do while not(rs.eof) %> <form name="form" method="post" action="valida.asp?Giocatore=<%=rs(0)%>?Partita=<%=strNPartita%>"> <tr><td><p style="margin-left: 15px; margin-right:10px"><%=rs(1)%><%=rs(2)%></td> <td align="center"><input type="text" name="Punti" size='2'></td> <td align="center"><input type="text" name="MG" size='2'></td> <td align="center"><input type="text" name="AT" size='2'></td> <td align="center"><input type="text" name="RD" size='2'></td> <td align="center"><input type="text" name="RO" size='2'></td> <td align="center"><input type="text" name="PP" size='2'></td> <td align="center"><input type="text" name="PR" size='2'></td> <td align="center"><input type="text" name="FF" size='2'></td> <td align="center"><input type="text" name="FS" size='2'></td> <td align="center"><input type="text" name="T2" size='2'></td> <td align="center"><input type="text" name="R2" size='2'></td> <td align="center"><input type="text" name="T3" size='2'></td> <td align="center"><input type="text" name="R3" size='2'></td> <td align="center"><input type="text" name="LT" size='2'></td> <td align="center"><input type="text" name="LR" size='2'></td> <td align="center"><input type="text" name="ST" size='2'></td> <td align="center"><font face="Verdana"> <input type="submit" name="invia" value="Aggiorna" style="font-family: Verdana"></font></td> </tr> <% rs.movenext loop rs.Close set rs = Nothing conn.Close set conn = Nothing %></td> </table>
L'errore è il seguente Provider error '80020005' Type mismatch.codice:<% Dim ID ID = Session("ID") ' Definizione della variabile dim Giocatore Giocatore = request("Giocatore") dim Partita Partita = request("strNPartita") dim Punti Punti = request.form("Punti") dim MG MG = request.form("MG") dim AT AT = request.form("AT") dim RO RO = request.form("RO") dim RD RD = request.form("RD") dim PP PP = request.form("PP") dim PR PR = request.form("PR") dim FF FF = request.form("FF") dim FS FS = request.form("FS") dim T2 T2 = request.form("T2") dim R2 R2 = request.form("R2") dim T3 T3 = request.form("T3") dim R3 R3 = request.form("R3") dim LT LT = request.form("LT") dim LR LR = request.form("LR") dim ST ST = request.form("ST") %> <html> <body> <% dim strCode strCode="innovatel" ' Mappaggio del database Set Conn=Server.CreateObject("ADODB.Connection") strConn="driver={Microsoft Access Driver (*.mdb)}; " strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/partite.mdb") strConn=strConn & ";pwd=" & strCode Conn.Open strConn ' Stringa di interrogazione sulla tabella libri sql = "SELECT * FROM giocatore_statistiche" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn ,3,3 ' Preparazione e scrittura nuovo record rs.addnew rs(0) = Giocatore rs(1) = Partita rs(2)= Punti rs(3) = MG rs(4) = AT rs(5) = RD rs(6) = RO rs(7) = PP rs(8) = PR rs(9) = FF rs(10) = FS rs(11) = T2 rs(12) = R2 rs(13) = T3 rs(14) = R3 rs(15) = LT rs(16) = LR rs(17) = ST rs.update ' Chiusura del database rs.Close set rs = Nothing conn.Close set conn = Nothing Response.Redirect "tabellino.asp" %> </body> </html>
Ho già provato il CINT ma senza risultati
Grazie a chi vorra rispondere
Rispondi quotando
