Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1400 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  gestion des apostrophes

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

gestion des apostrophes

n°365660
elcatalan
Just Married
Posté le 17-04-2003 à 21:05:52  profilanswer
 

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

mood
Publicité
Posté le 17-04-2003 à 21:05:52  profilanswer
 

n°365663
drasche
Posté le 17-04-2003 à 21:08:20  profilanswer
 

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)
n°365666
elcatalan
Just Married
Posté le 17-04-2003 à 21:09:53  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  gestion des apostrophes

 

Sujets relatifs
[PHP] Gestion courrier, documents....Cherche bibliothèque C/C++ pour gestion/décompression de flux video
gestion des chaines de caracteresGestion d entree sortie
Servlet :Gestion des sessions différente selon client IE6/Mozilla1.2.1[XML XSL] Gestion de tableau
[OpenGL]Gestion de la souris en glut pour faire une caméra[VB] gestion des process / parallélisation de procédures
Gestion TWAIN et TIFF[MouseListener] gestion trop précise...
Plus de sujets relatifs à : gestion des apostrophes


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR