Erreur Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
junserval
Messages postés1Date d'inscriptionmardi 28 mars 2006StatutMembreDernière intervention12 juillet 2006
-
12 juil. 2006 à 18:55
mehdi7604
Messages postés118Date d'inscriptionjeudi 11 mai 2006StatutMembreDernière intervention 6 mars 2015
-
17 févr. 2007 à 00:38
Bonjour !
Voici mon pb :
Erreur de compilation Microsoft VBScript error '800a0401'Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Microsoft OLE DB Provider for ODBC Drivers
error '80040e14'[Microsoft][Pilote ODBC Microsoft Access] Erreur de syntaxe (opérateur absent) dans l'expression 'id_pays= '.
/itcos/caddie.asp, line 65
le code :
<%
if session("item")=0 then
response.redirect "caddievide.asp"
end if
Temp=Session("Caddy")
select case request("Action")
case "Vider le Caddy"
session("pays")=request("livraison_pays")
session("Item")=0
response.redirect "caddievide.asp"
case "Commander"
session("pays")=request("livraison_pays")
direc="commande.asp?paiement="&request.querystring("paiement")
response.redirect direc
case "Recalculer"
session("pays")=request("livraison_pays")
for i=0 to session("item")-1
Qte="quantite"&i
if isNumeric(request(Qte)) then
if int(request(Qte))>0 then
Temp(2,i)=int(request(Qte))
end if
end if
Session("Caddy")=Temp
next
response.redirect "caddie.asp"
end select
If IsObject(Session("boutique_conn")) Then
Set conn = Session("boutique_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
' chaine de connexion
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/produits.mdb"
conn.Open connstring
Set Session("boutique_conn") = conn
End If
' calcul des totaux
totalHt=0
TotalPort=0
Qte=0
for i=0 to session("Item")-1
TotalHt=TotalHt+temp(3,i)*temp(2,i)
TotalPort=TotalPort+temp(4,i)*temp(2,i)
Qte=Qte+temp(2,i)
next
strtotal=replace(cstr(totalport),",",".")
sql = "SELECT port.* FROM port WHERE ("& strtotal &">port.Kgbase_Port) "
Set port = Server.CreateObject("ADODB.Recordset")
port.Open sql, conn, 3, 3
port.movelast
sql = "SELECT pays.* FROM pays where id_pays="&session("pays")
Set pays = Server.CreateObject("ADODB.Recordset")
pays.Open sql, conn, 3, 3
pays. movefirst
%>
<%
TotalPort=port.fields("Prix").value*pays.fields("Port_pays").value
<%
'sélection des devise disponibles
sql = "SELECT devises.* FROM devises WHERE Id_devise="&session("devise")
Set devise = Server.CreateObject("ADODB.Recordset")
devise.Open sql, conn, 3, 3
devise. movefirst
%>
<%
'sélection des pays disponibles
sql = "SELECT pays.* FROM pays "
Set pays = Server.CreateObject("ADODB.Recordset")
pays.Open sql, conn, 3, 3
pays. movefirst
%>
<small>Pays de
livraison : </small><select name="livraison_pays" size="1">
<% pays.movefirst
do while not pays.eof
%> <option <%if cint(pays.fields("id_pays").value)=cint(session("pays")) then %> selected
<% end if%> value="<%=pays.fields("id_pays").value%>"><%=pays.fields("titre_pays").value%></option>
<% pays.movenext
Loop
%> </select> ,
<small>Pour supprimer une ligne du Caddy, cliquez sur la petite poubelle à
gauche dans la ligne. Pour ajouter un produit, cliquez sur le produit en
sélection dans la barre de navigation sur le gauche ou en haut sur produits. Pour commander plusieurs produits identiques, modifiez la quantité, puis cliquez sur
"recalculer".
Vous pouvez commander par chèque ou par carte Bleue, dans ce cas vous fournirez vos
informations personnelles sur un espace sécurisé.</small> </td>
mehdi7604
Messages postés118Date d'inscriptionjeudi 11 mai 2006StatutMembreDernière intervention 6 mars 2015 17 févr. 2007 à 00:38
sur un problème j'avais le meme code d'erreure 80040e14 l'erreure que j'ai faite est d'utiliser des noms reservés dans les noms de champs de la base de données ( date,.....)
mehdi7604
Messages postés118Date d'inscriptionjeudi 11 mai 2006StatutMembreDernière intervention 6 mars 2015 17 févr. 2007 à 00:38
Cette erreur survient lorsque le serveur tente de traiter une page
contenant un comportement de serveur Insérer l'enregistrement.
Cette erreur résulte généralement d'un ou de plusieurs problèmes,
cités ci-dessous, relatifs au nom d'un champ, d'un objet ou d'une
variable de la base de données :
<li> Utilisation d'un mot réservé en tant que nom. La majorité des
bases de données disposent d'un jeu de mots réservés. Par exemple,
« date » est un mot réservé et ne peut pas être utilisé pour les noms
de champs d'une base de données.
</li>
<li>
Utilisation de caractères spéciaux dans le nom, tels que ceux mentionnés ci-dessous :
. / * : ! # & - ?
</li>
<li>
Utilisation d'un espace dans le nom.
</li>
L'erreur peut également survenir lorsqu'un masque d'entrée est
défini pour un objet de la base de données et que les données insérées
ne sont pas conformes au masque.
Pour résoudre le problème, évitez d'utiliser des mots réservés tels
que « date », « name », « select », « where » et « level » lorsque vous
spécifiez des noms de colonnes dans votre base de données. Eliminez
également les espaces et les caractères spéciaux.