Pb ecriture DBRésolu

Question

Bonjour à tous et toutes, je demande votre aide car je suis confronté à un problème que je ne comprends pas. j'ai récupéré un script pour uploader un fichier sur ce site. cela fonctionne tres bien. je cherche ensuite à enregistrer le nom de fichier dans une base de donnée et c'est la que ca se corse. voici le script : <% version=request.querystring("version") If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Set Fields = GetUpload() FilePath = Server.MapPath(".") & "\doc" & Fields("File1").FileName Fields("File1").Value.SaveAs FilePath fichier=Fields("File1").FileName sql="insert into scan (pj) values ('"&fichier&"') where version='"&version&"' ;" response.write(sql) set rs=conn.Execute(sql) End If %> l'erreur retournée : Microsoft JET Database Engine error '80040e14' Point-virgule absent à la fin de l'instruction SQL. /scan/upload.asp , line 25 A votre bon coeur m'sieur dame...

cs_ghuysmans99 · Accepted Answer

pas possible ... _______________________________________________________________________ VB.NETis good ...VB6is better

isu_san · Answer

Petite précision, lorsque j'enlève le where dans la requete sql, le nom de fichier s'ecrit bien dans la base sur l'enregistrement suivant.

cs_ghuysmans99 · Answer

il ne faut simplement pas mettre de where ... et en + ton truc est sensible l'injection !! voici le même code en amélioré ... <% Function Pure(S) Pure = Replace(S, "'", "''") End Function

Dim version, Fields, FilePath, fichier, sql version = Request.querystring("version") If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Set Fields = GetUpload() FilePath = Server.MapPath(".") & "\doc\" & Fields("File1").FileName Fields("File1").Value.SaveAs FilePath fichier = Fields("File1").FileName sql = "insert into scan (pj,version) values ('" & Pure(fichier) & "','" & Pure(version) & "');" response.write (sql) Set rs = conn.Execute(sql) End If , ---- By Renfield %> _______________________________________________________________________ VB.NETis good ...VB6is better

isu_san · Answer

Merci d'avoir répondu. cette version ne correspond pas tout a fait a mon besoin. en effet les "version" existent deja dans ma base et je dois inserer "pj" dans l'enregistrement qui correspond (je recupere  le numero de version avec le querystring) il est donc primordial de pouvoir mettre le where dans ma requete.

isu_san · Answer

Evidemment pas possible !!! quel idiot je suis j'utilise INSERT a la place d'UPDATE ca fait trois jours que je me demande d'ou vient l'erreur du script !!!

En tout cas merci pour ton aide

cs_ghuysmans99 · Answer

Je me disais bien ... _______________________________________________________________________ VB.NETis good ...VB6is better

Pb ecriture DB

6 réponses

Votre réponse

Discussions similaires