Sql et Texte enrichi

Version imprimable

Bonjour,

Je ne trouve pas de réponse à mon pb et pourtant je pense qu'il n'est pas hyper compliqué.

Je souhaite sauvegarder par update (sql) un texte enrichi.
En texte brut je mettais """ xxx """ mais en texte enrichi cela plante.
Quel sont le ou les codes pour protéger tout un ensemble de balises Html ?

Merci

petit exemple :
Code:

1 2 3 4 sql = "UPDATE Chiffrage SET désignation_chiff = """ & Me.w_texte & """ WHERE ref_chiff = " & Me.w_ligne & "" CurrentDb.Execute (sql) sql = "UPDATE Work_Chiffrage SET param_désignation = """ & Me.w_texte & """ WHERE param_code = '" & Me.w_code & "'" CurrentDb.Execute (sql)
la variable Me.w_texte est le texte enrichi.

qui prend la forme de ceci par exemple :

Citation:

<div>eeeeeeeeffffffff        fffffffffffffffff       fffffffffffffff</div>

29/07/2012, 12h16
loufab

Bonjour,
C'est normal que ça plante. Tu as des double-cotes qui se baladent dans ton code Html. Il faut utiliser des simple-cote comme séparateur de chaine SQL.

Exemple :

Code:

sql = "UPDATE Chiffrage SET désignation_chiff ='" & Me.w_texte & "' WHERE ref_chiff = " & Me.w_ligne & ""

Dans le cas ou tu utilises également des simples-cote dans ton code Html il faut penser à les doubler. Note que tu peux également faire ça avec des double-cotes.

Exemple :
Simple et double

Code:

sql = "UPDATE Chiffrage SET désignation_chiff ='" & replace(Me.w_texte,""","""") & "' WHERE ref_chiff = " & Me.w_ligne & ""

Simple et simple

Code:

sql = "UPDATE Chiffrage SET désignation_chiff ='" & replace(Me.w_texte,"'","''") & "' WHERE ref_chiff = " & Me.w_ligne & ""

Double et double

Code:

sql = "UPDATE Chiffrage SET désignation_chiff =""" & replace(Me.w_texte,""","""") & """ WHERE ref_chiff = " & Me.w_ligne & ""

Bref de quoi tester.

Cordialement,
29/07/2012, 19h31
orokham

merci bien, je vais tester tout de suite.
29/07/2012, 20h01
orokham

Citation:

Envoyé par orokham

merci bien, je vais tester tout de suite.

Le compilateur ACCESS 2010 refuse toutes tes solutions ... zut et zut

Une tite question ! Si on arrive à passer le Html par Sql c'est bien mais on perd le "texte" original de la mise en forme ? Donc cette mise en forme au rappel du texte n'est plus bonne ?
29/07/2012, 20h42
LedZeppII

Bonjour,

As-tu utilisé la fonction Replace(..) à la fois sur Me.w_texte et sur Me.w_code ?
Les deux sont susceptibles de contenir des guillemets.

A+
29/07/2012, 23h10
loufab

Le html est un langage, il ne contient pas de mise en forme mais que des balises.

Si le compilateur refuse c'est qu'il y a un problème de double-cote. Par contre si c'est SQL qui refuse à l'exécution c'est qu'il y a un problème de double ou simple cote.
30/07/2012, 12h10
orokham

Merci à tous pour vos réponses.

Quand je parlais de perte de mise en forme, je cite un exemple :

- cette mise en forme : 
- Admettons qu'en sql j'y arrive (ce qui n'est pas le cas) et que cela devienne avec un replace (xxx,""","$") :

- ==> je pense que cette balise n'est plus 'comprise' par le Html ...
Mais quand Microsoft à ajouté cette fonctionnalité de texte enrichi, cela me semble impossible qu'ils n'aient pas pensé à pouvoir 'véhiculer' ces données avec aisance dans access.

J'ai aussi remarqué que le texte enrichi n'est pas traduit dans les listbox. Si on enrichi du texte il se promène avec toutes ses balises dans les menus !!! pff pas beau du tout.

Concernant Sql et les "" ou """ ou '" .. c'est le compilateur qui refuse toutes les combinaisons. Dire que j'ai acheté Access 2010 pour ces fonctionnalités la :cry:
30/07/2012, 12h23
Jean-Philippe André

salut,

peut-on voir le contenu sql de la requete actuellement utilisée stp ?

selon le niveau d'erreur, tu peux envisager :
- de transformer temporairement tes quotes (simples ou doubles) par d'autres caractères
- de découper ton remplacement en plusieurs étapes
30/07/2012, 19h24
loufab

Bonjour,

D'une part tu confond texte enrichi et html.

Le texte enrichi c'est du RTF (Rich Text Format) alors que le Html c'est de l'Hypertext Markup Langage. ça n'a rien à voir. ACCESS sait afficher la mise en forme RTF mais n'imterprète pas l'Html, pour cela il te faut un ACTIVE X, comme celui d'IE.

Que tu stockes les fables de la fontaine, de l'html du rtf ou même du code C pour ACCESS c'est pareil, ça reste du texte. Donc je ne vois pas pourquoi tu cherches à contourner un problème de syntaxe qui est de ton seul fait (en remplaçant des " par des $... et lorque tu va rencontrer des $ tu vas les remplacer par quoi ?!)

Commence par respecter la règle VBA, 'tout caractère spécial doit être doublé" Il y a d'ailleurs un tuto sur le débogage des requêtes en VBA.

Comme tu le vois le problème ne vient ni de Microsoft ni d'ACCESS 2010 et encore moins de SQL, c'est simplement un problème de connaissance.

Tu n'a plus qu'à poster ton code.

Cordialement,
31/07/2012, 10h44
orokham

Je met l'image complète de la petite application que je fait et vous verrez l'erreur.

http://i46.servimg.com/u/f46/13/66/36/55/exempl10.jpg

http://i46.servimg.com/u/f46/13/66/36/55/ex0111.jpg

http://i46.servimg.com/u/f46/13/66/36/55/ex0210.jpg

Dans cette partie de code je cherche seulement à "passer" mon texte enrichi dans une table en sql. (Sans perdre le texte enrichi car actuellement je l'enlève avec plaintext)

Bonjour,

J'ai essayé comme ci-dessous et ça fonctionne.

Hypothèses :
Chiffrage.désignation_chiff est alphanumérique
Chiffrage.ref_chiff est numérique
Work_Chiffrage.param_désignation est alphanumérique
Work_Chiffrage.param_code est alphanumérique

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim sql As String
Dim sw_texte As String, sw_ligne As String, sw_code As String
 
    sw_texte = Replace(Nz(Me.w_texte, ""), "'", "''")
    sw_ligne = Str(Nz(Me.w_ligne, 0))
    sw_code = Replace(Nz(Me.w_code, ""), "'", "''")
 
    sql = "UPDATE Chiffrage SET désignation_chiff = '" & sw_texte & "' WHERE ref_chiff = " & sw_ligne
    ' Pour déboguer on peut mettre un Debug.Print
    ' Debug.Print sql
    CurrentDb.Execute sql
 
    sql = "UPDATE Work_Chiffrage SET param_désignation = '" & sw_texte & "' WHERE param_code = '" & sw_code & "'"
    ' Pour déboguer on peut mettre un Debug.Print
    ' Debug.Print sql
    CurrentDb.Execute sql

A+

01/08/2012, 11h41
orokham

1 mot .. LedZeppII = GEANT.

Merciiiii.

Sans vouloir tirer trop sur la corde, tout les codes apparaissent maintenant dans la listbox.
Y a t il un moyen de mettre une textbox en texte enrichi aussi ?

Merci merci
01/08/2012, 13h02
LedZeppII

Bonjour,

Le format texte enrichi n'existe que pour les zones de texte.
Propriété «Format du texte» dans l'onglet «Données» de la feuille de propriétés de la zone de texte.

Pour une zone de liste, il faut convertir en texte brut.
Par exemple :

Code:

SELECT Chiffrage.ref_chiff, PlainText([Chiffrage].[désignation_chiff]) AS des_chiff FROM Chiffrage

A+
01/08/2012, 14h39
orokham

Merci .. Super !!
Et bonne journée à tous.