Discussion :

[Mvu]

Bonjour, je deviens dingue.
Voici ma requête:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mySQL="INSERT INTO LoeweResultats (idMac, UserLog, Body, Year, Price, Telephone, LastDate, Filename, [File Size], [File Data], [Content Type]) VALUES (  " &pidMac& " , '" &pUserLog& "' , '" &pBody& "' , '" &pYear& "', '" &pPrice& "' , '" &pTelephone& "' , '" &pLastdate& "'  , '" &pFileName& "' , '1' , '" &pFileData& "' , '" &pContentType& "'  )"

le champ Body est un champ type Memo dans une base Access. Le problème, c'est que dès que survient un mot avec une apostrophe, cela plante.
J'ai d'abord essayé avec une fonction du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
function formatForSHMachines(input)
 dim tempStr  
 tempStr=input
 if isNull(tempStr)=false then
 ' replace to avoid DB errors 
  tempStr	= replace(tempStr,"-","'") 
  tempStr	= replace(tempStr,",",".") 
 
 end if
 formatForSHMachines	= tempStr 
end function

mais sans résultat.

La solution n'est-elle pas de récrire la requête mySQL autrement ?
Mais comment ?

[pc75]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
mySQL="INSERT INTO LoeweResultats (idMac, UserLog, Body, Year, Price, Telephone, LastDate, Filename, [File Size], [File Data], [Content Type]) VALUES (  " &pidMac& " , '" &pUserLog& "' , '" & replace(pBody, "'", "''") & "' , '" &pYear& "', '" &pPrice& "' , '" &pTelephone& "' , '" &pLastdate& "'  , '" &pFileName& "' , '1' , '" &pFileData& "' , '" &pContentType& "'  )"

A faire sur tous les champs dont la valeur est susceptible de contenir une apostrophe.

[Mvu]

Ok, finalement en plaçant mon script Replace au bon endroit, cela fonctionne.