Avatar billede kawaki Nybegynder
06. juni 2001 - 12:35 Der er 2 kommentarer og
1 løsning

Sql problemer!!

Så er jeg her igen kan ikke faa dette til at virke,
Jeg ved at det er en basal ting jeg har lavet forkert men her kommer lige fejlen og noget kille kode.

Fejlen:
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e07\'

[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.

/brugere_rediger_send.asp, linje 22

her kommer bruger_rediger_send.asp

<!--#include file=\"global.asp\"-->

<%if request.querystring=\"\" then %>
<html><head>
</head>
<body bgcolor=\"#FFFFFF\" marginwidth=\"0\" marginheight=\"0\" leftmargin=\"0\" topmargin=\"0\" bottummargin=\"0\">
<table align=\"center\" \"border=\"0\" width=\"60%\" height=\"19\">
<tr><td bgcolor=\"#108410\"><p align=\"center\"><font color=\"#FFFFFF\" size=\"5\"><b>Gas-zetten online</b></font></td></tr></table>
<br><br>
<%
if checkInput() then
source = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"db/brugere.mdb\")
Set connection = Server.CreateObject (\"ADODB.Connection\")
Set data = Server.CreateObject (\"ADODB.Recordset\")
connection.Open source
indsend = \"UPDATE userlist SET \"
indsend = indsend + \"username = \'\"    + Request.Form(\"username\") + \"\', \"
indsend = indsend + \"password = \'\"    + Request.Form(\"password\") + \"\', \"
indsend = indsend + \"status = \'\"      + Request.Form(\"status\")  + \"\', \"
indsend = indsend + \"navn = \'\"        + Request.Form(\"navn\")    + \"\' \"
indsend = indsend + \"WHERE userid = \'\" + Request.Form(\"userid\")  + \"\'\"
connection.execute(indsend)
connection.close
%>
<div align=\"center\"><p>Posten er opdateret.<br><br></p></div>
<table bgcolor=\"#108410\" align=\"center\" width=\"30%\">
<tr><td><div align=\"center\"><p><a href=\"nyheder.asp\" target=\"main\">Tilbage til Gas-zetten online.</a></p></div></td></tr>
</table>
<%else%>
<div align=\"center\"><p>Fejl i indtastningen !</p></div>
<%end if%>
</body></html>
<%end if%>

her kommer brugere_rediger.asp

<!-- LOGIN.ASP?OPRETFORM  INDTAST BRUGER TIL OPRETTELSE -->

<!--#include file=\"global.asp\"-->

<%if request.querystring=\"\" then%>
<html>
<body bgcolor=\"#eeeeee\" text=\"#000000\" link=\"#CDE0F3\" vlink=\"#8CB9E4\" alink=\"#8CB9E4\">

<center><h2>Opret en ny bruger</h2></center>

<br><br>
<form name=\"brugere_rediger\" method=\"POST\" action=\"brugere_rediger_send.asp\">

<%source = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"db/brugere.mdb\")
Set connection = Server.CreateObject (\"ADODB.Connection\")
connection.Open source
SQLcommand = \"select * from userlist WHERE userid = \" + Request.Form(\"userid\")
set data = connection.execute(SQLcommand)%>
<%Do While Not data.EOF%>
<table align=\"center\" border=\"5\"><tr><td>

<table align=\"center\">
<tr>
<td align=\"center\">Brugernavn</td><td><input type=text name=username size=25 value=\"<%=data(\"username\")%>\"></td>
</tr>
<tr>
<td align=\"center\">Password</td><td><input type=password name=password size=25 value=\"<%=data(\"password\")%>\"></td>
</tr>
<tr>
<td align=\"center\">Brugers Navn</td><td><input type=text name=navn size=25 value=\"<%=data(\"navn\")%>\"></td>
</tr>
</table>
<table align=\"center\">
<tr>
<td><p>Webmaster</p></td>
<td>
<%if data(\"status\") = 1 then%>
<input type=\"radio\" value=1 name=\"status\" checked></td>
<%else%>
<input type=\"radio\" value=1 name=\"status\"></td>
<%end if%>
<tr>
<td><p>Administrator</p></td>
<td>
<%if data(\"status\") = 2 then%>
<input type=\"radio\" value=2 name=\"status\" checked></td>
<%else%>
<input type=\"radio\" value=2 name=\"status\"></td>
<%end if%>
</tr>
<tr>
<td><p>Medarbejder</p></td>
<td>
<%if data(\"status\") >=3 then%>
<input type=\"radio\" value=3 name=\"status\" checked></td>
<%else%>
<input type=\"radio\" value=3 name=\"status\"></td>
<%end if%>
</tr>
</table>

</td></tr></table>
    <input name=\"userid\" type=\"hidden\" value=\"<%=data(\"userid\")%>\"
    <table align=\"center\" border=\"0\">
    <tr><td><input type=submit value=Rediger></td></tr>
    </table>
</form>
<%data.MoveNext%>
<%Loop%>
<%
data.close
connection.close
%>

    <script language=\"JavaScript\">
        <!--
            document.login_opret.username.focus();
        // -->
    </script>

</body>
</html>
<%end if%>


hvor er problemet???
Avatar billede nute Nybegynder
06. juni 2001 - 12:40 #1
prøv å bytte ut denne linje:

indsend = indsend + \"WHERE userid = \'\" + Request.Form(\"userid\")  + \"\'\"

med denne:

indsend = indsend + \"WHERE userid = \" + Request.Form(\"userid\")

En annen ting...du skriver i VBScript, og da skal du ikke benytte + for å konkatinere, men du skal bruke &...fx:

indsend = \"UPDATE userlist SET \"
indsend = indsend + \"username = \'\" & Request.Form(\"username\") & \"\', \"
indsend = indsend + \"password = \'\" & Request.Form(\"password\") & \"\', \"
indsend = indsend + \"status = \'\" & Request.Form(\"status\") & \"\', \"

/nute
Avatar billede kawaki Nybegynder
06. juni 2001 - 13:21 #2
Mange tak skal du have! det var lige det der var i vejen!!!! håber at du gider hjælpe mig igen hvis jeg skulle komme i problemer igen!!!
Avatar billede nute Nybegynder
06. juni 2001 - 13:23 #3
så er det bare å spørre :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester