gestion des apostrophes

gestion des apostrophes - VB/VBA/VBS - Programmation

Marsh Posté le 17-04-2003 à 21:05:52    

quequ'un connaitrait il une méthode pour éviter d'avoir une erreur quand, dans une zone de texte reliée à une table, on saisit une apostrophe ?
J'ai essayé avec les double " mais ça me génère des erreurs ailleurs
 
voilà le code:
 
Dim bd As database
    Dim nomtable As String, tableP As DAO.Recordset
     
    Set bd = CurrentDb
    If testChamps Then
        Set tableP = bd.OpenRecordset("SELECT nom, prenom FROM T_personnel WHERE code = '" & readID & "'" )
        nomtable = "T_observations_" + readID
        bd.Execute ("INSERT INTO " & nomtable & " (nom, codeProjet, dateEmission, designation) VALUES ('" & tableP!nom & " " & tableP!prenom & "', '" & readCodeADetailler & "', '" & Date & "', '" & Me.TexteDesignation & "';) ;" )
        nomtable = "T_projets_" + readID
        bd.Execute ("UPDATE " & nomtable & " SET modifié = -1 WHERE proCode = '" & readCodeADetailler & "' ;" )
        tableP.Close
    End If
    bd.Close

Reply

Marsh Posté le 17-04-2003 à 21:05:52   

Reply

Marsh Posté le 17-04-2003 à 21:08:20    

pour chaque champs susceptible de contenir des simples quotes, tu les redoubles comme ceci:
 

Code :
  1. champs = replace(variable, "'", "''" )


 
en admettant que tu utilises bien les simples quotes dans ta requête ;)
 
edit: bien sûr le moteur de base de données prendra "''" comme des simples quotes.  donc à la lecture, tu auras exactement ce que tu avais l'expression variable.


Message édité par drasche le 17-04-2003 à 21:10:30

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 17-04-2003 à 21:09:53    

drasche a écrit :

pour chaque champs susceptible de contenir des simples quotes, tu les redoubles comme ceci:
 

Code :
  1. champs = replace(variable, "'", "''" )


 
en admettant que tu utilises bien les simples quotes dans ta requête ;)


toutafé  
je te remercie je vais essayer ça tout de suite

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed