--- title: "RecSet.update........FEL" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/7941-recset-update-fel" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "icaaq" published: "2001-01-31T12:57:00.000Z" updated: "2001-01-31T17:30:00.000Z" replies: 17 views: 163 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/7941-recset-update-fel" --- # RecSet.update........FEL ## #1 — icaaq, 2001-01-31T12:57Z har fått ett följande fel.. Microsoft OLE DB Provider for ODBC Drivers error '80004005' \[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Det går inte att uppdatera. Databasen eller objektet är skrivskyddat. /default.asp, line 248 rad 248 ser ut så här : ``` RecSet.Update ``` Permalänk: https://www.webforum.nu/p/7941 ## #2 — Rossifumi, 2001-01-31T13:01Z Har du kollat så att inte din databas är skrivskyddad / eller öppnad av någon annat program :q Och sedan använd inte IDG's Webstudios system med RecSet.Update utan använd följande: ``` SQL= "UPDATE Tabell SET faltNamn = " & NågotVärde & " WHERE nogotID = Någotannat" objConn.Execute(SQL) ``` Permalänk: https://www.webforum.nu/p/254734 ## #3 — JAreMANNEN, 2001-01-31T13:03Z Vad kör du för server/operativsystem?? Det kan inte bero på att mappen där databasen ligger är skrivskyddad eller att det är fel rättigheter på den!??? Permalänk: https://www.webforum.nu/p/254735 ## #4 — icaaq, 2001-01-31T13:03Z den ligger asso på servern så något annat program kan inte andvända db jag ska testa din sql-sats Permalänk: https://www.webforum.nu/p/254736 ## #5 — Rossifumi, 2001-01-31T13:07Z Som sagt, kolla även ifall du har skrivrättigheter till mappen :) Permalänk: https://www.webforum.nu/p/254737 ## #6 — icaaq, 2001-01-31T13:22Z hur gör jag det smidigast ...nu när jag har den på servern.... Permalänk: https://www.webforum.nu/p/254738 ## #7 — icaaq, 2001-01-31T13:49Z testade din sql-sats fick då detta meddelande: Microsoft VBScript runtime error '800a01a8' Object required: 'ObjConn' /default.asp, line 249 line 248--\> ``` SQL= "UPDATE svar SET Ja = " & Ja & " WHERE ID = 1" ObjConn.Execute(SQL) ``` Permalänk: https://www.webforum.nu/p/254739 ## #8 — @nders, 2001-01-31T13:57Z objConn är namnet på ett connection-objekt. byt ut det till namnet du angav när du skapade connectionobjektet högre upp i koden. mvh, Permalänk: https://www.webforum.nu/p/254740 ## #9 — PatrikB, 2001-01-31T13:57Z byt ut objConn mot din connection-variabel, den som börjar ngt liknande: Set Connection = Server.CreateObject("ADODB.Connection") cya, Permalänk: https://www.webforum.nu/p/254741 ## #10 — icaaq, 2001-01-31T14:01Z nu blev det: Microsoft OLE DB Provider for ODBC Drivers error '80040e10' \[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] För få parametrar angavs. 1 förväntades. /default.asp, line 249 rad 248 och framåt ``` SQL= "UPDATE svar SET Ja = " & Ja & " WHERE ID = 1" Connect.Execute(SQL) ``` Permalänk: https://www.webforum.nu/p/254742 ## #11 — @nders, 2001-01-31T14:03Z då verkar det som om variabeln Ja är tom. vad ska du ha in för värde? Permalänk: https://www.webforum.nu/p/254743 ## #12 — icaaq, 2001-01-31T14:06Z det är en omröstning där jag ska plusa på värdet ja med ett typ så här: ``` If Request.QueryString("fraga") = "Ja" Then Ja = RecSet("Ja") RecSet("Ja") = Ja -- 1 SQL= "UPDATE svar SET Ja = " & Ja & " WHERE ID = 1" Connect.Execute(SQL) ``` det har funkat förut...... Permalänk: https://www.webforum.nu/p/254744 ## #13 — Eclipse, 2001-01-31T14:07Z Förslag på kod: ``` SQL= "UPDATE svar SET post_1 = TRUE WHERE ID = 1" Connect.Execute(SQL) ``` Du kan ju inte ha en post som heter "ja", det betyder ju inget! \* Inga fjumpar när man frågar efter siffror eller TRUE/FALSE. \* # vid datum. \* Enkelfjumpar för text. Permalänk: https://www.webforum.nu/p/254745 ## #14 — Eclipse, 2001-01-31T14:14Z Äh... vad dum jag är... Du kan nästan bortse från mitt förra inlägg. Men bara nästan. Jag tycker inte din lösning verkar särskilt genomtänkt. Hur ska du göra med nästa fråga då!? Du kan ju inte hålla på att göra en databaslösning för varje fråga. Det är ju liksom hela vitsen med databaser! sorry... Permalänk: https://www.webforum.nu/p/254746 ## #15 — icaaq, 2001-01-31T14:42Z här är hela koden : ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &server.mappath("/icaaq-filer/snabbfraga") Set RecSet = Server.CreateObject("ADODB.Recordset") Visa = "SELECT Fraga FROM fraga" RecSet.Open Visa, Connect, 3, 3 %> <% =RecSet("Fraga") %> <% RecSet.Close%> <% If Request.Cookies("vote").haskeys = False And Request.QueryString("fraga") = "" Then %> <%Set RecSet = Server.CreateObject("ADODB.Recordset") Visa = "SELECT Ja, Nej FROM svar" RecSet.Open Visa, Connect, 3, 3 Yes = RecSet("Ja") No = RecSet("Nej") Summa = Yes -- No %>
<% YResultat = "0" NResultat = "0" If Yes => "1" Then YResultat = Round(Yes / Summa * 100) End If If No => "1" Then NResultat = Round(No / Summa * 100) End If %> Ja: <% =YResultat %> %
Nej: <% =NResultat %> %

Antal svar hittills: <% =Summa %> <% RecSet.Close Connect.Close Else Set RecSet = Server.CreateObject("ADODB.Recordset") Visa = "SELECT Ja, Nej FROM svar" RecSet.Open Visa, Connect, 3, 3 If Request.QueryString("fraga") = "Ja" Then Ja = RecSet("Ja") RecSet("Ja") = Ja -- 1 SQL= "UPDATE svar SET Ja = " & Ja & " WHERE ID = 1" Connect.Execute(SQL) Response.Cookies("vote")("rost") = "voted" Response.Cookies("vote").Expires = Date + 1 ElseIf Request.QueryString("fraga") = "Nej" Then Nej = RecSet("Nej") RecSet("Nej") = Nej -- 1 ´såhär hade jag förut RecSet.Update Response.Cookies("vote")("rost") = "voted" Response.Cookies("vote").Expires = Date + 1 ElseIf Request.QueryString("fraga") = " " Then Ja = RecSet("Ja") Nej = ResSet("Nej") End If Yes = RecSet("Ja") No = RecSet("Nej") Summa = Yes -- No %>
<% YResultat = "0" NResultat = "0" If Yes => "1" Then YResultat = Round(Yes / Summa * 100) End If If No => "1" Then NResultat = Round(No / Summa * 100) End If %> Ja: <% =YResultat %> %
Nej: <% =NResultat %> %

Antal svar hittills: <% =Summa %> <% RecSet.Close Connect.Close End If ``` jag har bara en omröstning som jag ändrar frågan på en admin sida (som jag inte vet om den funkar nu heller, men det är nästa fråga..) det kanske är en dum lösning men den funkade ju förut ...har bytt server nu .. Permalänk: https://www.webforum.nu/p/254747 ## #16 — Rossifumi, 2001-01-31T14:56Z En sak jag ser som är fel är att du har fnuttar runt tal: ``` If Yes => "1" ``` Det skall man inte ha, då uppfattas dom inte som tal längre... Permalänk: https://www.webforum.nu/p/254748 ## #17 — icaaq, 2001-01-31T16:27Z hela koden bygger på IDG\`s poll script så jag har inte skrivit det själv bara ändrat lite efter mina behov......jag skrotar det och försöker skriva ett själv....ett som funkar(förhopningsvis) Permalänk: https://www.webforum.nu/p/254749 ## #18 — Rossifumi, 2001-01-31T17:30Z Swede.com har ett bra sådant på svenska :) Demo: Ladda hem: Permalänk: https://www.webforum.nu/p/254750 --- Tråden på webben: https://www.webforum.nu/amne/asp/7941-recset-update-fel