Probleme Upload

Question

Bonjour

J'ai ce code qui fonctionne tr&#233;s bien, mais lorsque je veux rajouter des valeurs j'ai un message d'erreur.


Set RS = Server.Createobject("ADODB.Recordset")

SQL="INSERT INTO R&#233;sultats(NomLatin,Photo) VALUES('"& mysmartupload.form("latin") &"','/images/" & maxi & file.Filename & "');"


rs.Open sql, conn, 3,3

Si quelque peut m'aider

message d'erreur:

 


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] Le nombre de valeurs de la requ&#234;te doit co&#239;ncider avec le nombre de champs destination. 
/upload.asp, line 44

IvanTheBlackDog · Answer

Je pense que ton probl&#232;me vient des entrecotes.

SQL="INSERT INTO R&#233;sultats(NomLatin,Photo) VALUES('"& mysmartupload.form("latin") &"','"/images/" & maxi & file.Filename & ');"


essai plutot &#231;a


_________________________

 Le Black Dog c'est moi

gerfaut11 · Answer

Merci

Le code que j'ai donn&#233; fonctionne par contre si je le modifie il ne fonctionne plus

Exemple

SQL="INSERT INTO R&#233;sultats(NomLatin,Photo,NomFrancais) VALUES('"& mysmartupload.form("latin") "& mysmartupload.form("francais")  &"','/images/" & maxi & file.Filename & "');"

cs_Yopyop · Answer

re,

SQL="INSERT INTO R&#233;sultats(NomLatin,Photo,NomFrancais) VALUES('"& mysmartupload.form("latin") & "','/images/" & maxi & file.Filename & "','" & mysmartupload.form("francais")  & "');"

1/tes valeurs doivent &#234;tre dans le m&#234;me ordre que tes param&#232;tres
2/fais attention au quotes....

yopyop

gerfaut11 · Answer

encore moi

 Modifier la ligne suivante: 
SQL="INSERT INTO R&#233;sultats(NomLatin,Photo,NomFrancais,Famille) VALUES('"& mysmartupload.form("latin") & "','/images/" & maxi & file.Filename & "','" & mysmartupload.form("francais") & mysmartupload.form("famille") & "');" 




rs.Open sql, conn, 3,3

message d'erreur


Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 
[Microsoft][Pilote ODBC Microsoft Access] Le nombre de valeurs de la requ&#234;te doit co&#239;ncider avec le nombre de champs destination. 
/upload.asp, line 44

cs_Nurgle · Answer

le meilleur moyen de tester s'il y a des probl&#232;mes de quotes, fait un :

Response.Write(SQL)
Response.End()



(avant le RS.Open bien s&#251;r) Comme &#231;a tu peux voir s'il n'y a pas un probl&#232;me de quotes...


Nurgle 
C'est une grande folie que de vouloir &#234;tre sage tout seul !

gerfaut11 · Answer

Salut

Tout est ok 

Exact probleme de quotes

Merci

gerfaut11 · Answer

Autre question

lors de mon upload (via un formulaire avec des champs textes) si je n'upload pas de fichier rien n'est enregistr&#233;dans la base, 
comment faire pour pouvoir valider mon formulaire meme si le champ "photo" n'est pas renseign&#233;.

gerfaut11 · Answer

Autre question

lors de mon upload (via un formulaire avec des champs textes) si je n'upload pas de fichier rien n'est enregistr&#233;dans la base, 
comment faire pour pouvoir valider mon formulaire meme si le champ "photo" n'est pas renseign&#233;.

cs_Yopyop · Answer

salut,

peux-tu poster le code ?
Dans ta base, le champs photo est-il obligatoire ?

gerfaut11 · Answer

Bojour Mon formulaire Page upload <% ' Path long de la base de données dbPath = Server.MapPath("/fpdb/herboristerie.mdb") ' Création de l'objet permettant la connexion Set Conn = Server.CreateObject("ADODB.Connection") ' Connexion Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" _ & " DBQ=" & dbPath ' Variables ' ********* Dim mySmartUpload Dim file Dim intCount intCount=0 ' Connexion à la base Set RS = Server.Createobject("ADODB.Recordset") SQL="SELECT Max(Ref_Pla) as Max from Résultats" rs.Open sql, conn, 1,2 ' Recherche du n° auto maxi pour un incrémentation pour changer le nom du fichier maxi=RS("Max")+1 RS.close ' Object creation ' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") ' Upload ' ****** mySmartUpload.Upload ' Select each file ' **************** For each file In mySmartUpload.Files ' Only if the file exist ' ********************** If not file.IsMissing Then ' Save the files with his original names in a virtual path of the web server ' **************************************************************************** file.SaveAs("/images/" & maxi & file.FileName) ' sample with a physical path ' Display the properties of the current file ' ****************************************** Set RS = Server.Createobject("ADODB.Recordset") ' Insertion du chemin ou le fichier est stocké dans la base SQL="INSERT INTO Résultats(NomLatin,Photo,NomFrancais) VALUES('"& mysmartupload.form("latin") & "','/images/" & maxi & file.Filename & "' '"& mysmartupload.form("francais") & "');" rs.Open sql, conn, 3,3 ' Message pour indiquer que le transfert a bien eu lieu Response.Write("Le fichier " & file.Filename & " a bien été enregistré sous le nom " & maxi & file.Filename) End If Next %>

cs_Nurgle · Answer

et bien tu mets :



'tout le debut



If not file.IsMissing

'tout le traitement normal

' ....

ElseSQL="INSERT INTO
R&#233;sultats(
NomLatin,NomFrancais) VALUES('"&
mysmartupload.form("latin") & "','" & mysmartupload.form("francais") &
"');" 

 rs.Open sql, conn, 3,3


Response.Write("pas d'upload mais &#231;a marche :p")



End If

Next

Nurgle

Probleme Upload

11 réponses

Votre réponse

Discussions similaires