17 svar · 163 visningar · startad av icaaq
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
------------------
icaaq
---i suck ---
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)
------------------
"I have to return some video tapes" - Patrick Bateman, American Psycho
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!???
------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
E-post
den ligger asso på servern så något annat program kan inte andvända db jag ska testa din sql-sats
------------------
icaaq
---i suck ---
Som sagt, kolla även ifall du har skrivrättigheter till mappen :)
------------------
"I have to return some video tapes" - Patrick Bateman, American Psycho
[Redigerat av Rossifumi den 31 jan 2001]
hur gör jag det smidigast ...nu när jag har den på servern....
------------------
icaaq
---i suck ---
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)
------------------
icaaq
---i suck ---
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,
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
byt ut objConn mot din connection-variabel, den som börjar ngt liknande:
Set Connection = Server.CreateObject("ADODB.Connection")
cya,
------------------
Private Function OutPut(ByRef sString)
OutPut = "Who gives ..." & sString
End Function
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)
------------------
icaaq
---i suck ---
[Redigerat av icaaq den 31 jan 2001]
då verkar det som om variabeln Ja är tom.
vad ska du ha in för värde?
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
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......
------------------
icaaq
---i suck ---
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.
------------------
Never underestimate your opponents.
Ä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...
------------------
Never underestimate your opponents.
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 %>
<b>
<% =RecSet("Fraga") %>
</b></font></div>
</td>
<% RecSet.Close%>
</tr>
<tr>
<td valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<% 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 %>
<br>
<% 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 %>
<a href="default.asp?fraga=Ja">Ja:</a> <font color="#FF0000">
<% =YResultat %>
</font>%<br>
<a href="default.asp?fraga=Nej">Nej:</a> <font color="#FF0000">
<% =NResultat %>
</font>% </font>
<p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Antal svar hittills: <b>
<% =Summa %>
</b>
<% 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 %>
<br>
<% 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: <font color="#FF0000">
<% =YResultat %>
</font>%<br>
Nej: <font color="#FF0000">
<% =NResultat %>
</font>% </font>
<p align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Antal svar hittills: <b>
<% =Summa %>
</b>
<% 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 ..
------------------
icaaq
---i suck ---
[Redigerat av icaaq den 31 jan 2001]
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...
------------------
"I have to return some video tapes" - Patrick Bateman, American Psycho
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)
------------------
icaaq
---i suck ---
Swede.com har ett bra sådant på svenska :)
Demo: http://swede.com/support/poll/poll.asp
Ladda hem: http://swede.com/support/poll.zip
------------------
"I have to return some video tapes" - Patrick Bateman, American Psycho