|
|
Vous êtes ici : Forums > Langage SQL > Probleme de requete MAJ
Probleme de requete MAJ
Bonjour,
Je cherche a effectuer une requête mise à jour dans une base access, mais ça ne marche, il me renvoit systématiquement la page d'erreur
ci-dessous le code de ma page asp
Merci d'avance
<%
function Modify_String_for_SQL(byVal stringtocheck)
pos_apo_tmp = 1
long_chaine = Len(stringtocheck)
pos_apo = Instr(stringtocheck,"'")
Do while pos_apo <> 0
stringtemp = stringtemp & Mid(stringtocheck,pos_apo_tmp,(pos_apo-pos_apo_tmp + 1)) & "'"
pos_apo_tmp = pos_apo+1
pos_apo = Instr((pos_apo+2),stringtocheck,"'")
Loop
stringtemp = stringtemp & right(stringtocheck,(long_chaine - (pos_apo_tmp-1)))
Modify_String_for_SQL = stringtemp
end function
if session("login")="" or session("password")="" then response.redirect "Pass1-1.asp" end if
Dim conn
Dim rs
Dim myacces
Dim sql
Dim connstring
Dim i
Set conn = Server.CreateObject("ADODB.Connection")
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/../admin/ems07.mdb"
conn.Open connstring
sql = "SELECT * from acces where password = '"&session("password")&"' and login = '"&session("login")&"'"
Set myacces = Server.CreateObject("ADODB.Recordset")
myacces.open sql, conn
if myacces.EOF then response.redirect "erreur.html" end if
%>
<html>
<head>
<title>Page administrateur Analyse.fr</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" vlink="#FF0000">
<br>
<div align="left">
<%
sql = "SELECT * from upload "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
SQL = "UPDATE upload SET classification='"&Modify_String_for_SQL(Request.QueryString("classification"))
SQL= SQL & "' WHERE num = " & Request.QueryString("num")
set myRCset = conn.Execute (SQL,nb,1)
%> </div>
<table width="100%" border="0">
<tr>
<td height="115">
<div align=center>
<table width="50%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bgcolor="#678EC7">
<tr>
<td colspan="3" height="2">
<p align="center"><br>
<b><font color="#FFFFFF" face="Arial, Helvetica, sans-serif">!!
Mise à jour effectuée !!</font></b> <br>
<br>
</p>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<form action="revueadmin.asp?" method=get>
<div align="center">
<input type="submit" value="Continuer">
<input type=hidden name="login" value="<%=Request.QueryString("login")%>">
<input type=hidden name="password" value="<%=Request.QueryString("password")%>">
</div>
</form>
</td>
</tr>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>
Message posté le 26/10/2006
par nicolasferraris
Répondre à ce message |
|
|
|
A RETENIR CETTE SEMAINE |
04/07/2008 -
Suivez les étudiants français à la finale mondiale d’Imagine Cup !
Cette année, la finale a lieu à Paris et les Français ont fait honneur à leur réputation : 6 équipes ...
|
04/07/2008 -
Des applications Cobol sous Windows
Micro Focus et Microsoft collaborent pour faire tourner des applications Cobol sous Windows, et prév ...
|
04/07/2008 -
Avec Equipt, Microsoft va proposer Office sur abonnement
Equipt. C'est le nom qu'a choisi Microsoft pour baptiser sa prochaine suite logicielle contenant not ...
|
04/07/2008 -
Utiliser les spécifications des protocoles Open Protocol Specifications
L’annonce réalisée par Microsoft sur l’ouverture de ses protocoles avaient rendu sceptiques les gran ...
|
04/07/2008 -
Les nouvelles bornes Express Pro de la SNCF plus attractives et performantes
La technologie de développement d'interface Microsoft Windows Presentation Foundation du Framework . ...
|
04/07/2008 -
Internet Explorer 8 promet d’être plus sécurisé
Le navigateur emportera avec lui des cryptages particuliers de défense contre les cookies trop curie ...
|
03/07/2008 -
Commencer bien l'été en téléchargeant les versions Express de Visual Studio 2008
Téléchargez gratuitement les outils de développement Microsoft pour les développeurs débutants ou am ...
|
|
|
