Discussion :

[kakashi embedded]

Bonjour,

Est-il possible d'enregister le contenu d'un fichier xml dans le champ d'une table? J'essais depuis quelque heures mais rien à faire, j'ai l'impression que le document contient trop de texte car si je n'en prend qu'une partie cela fonctionne.
Pourtant mon champ et de type longtext, quelqu'un peut-il m'aidé ?


Merci d'avance.

[jmfmarques]

La taille d'un champ est en général limitée (le plus souvent, en fonction de la SGBD, à 255 caractères)

[Adjanakis]

Bonjour,

Il faudrait essayer de connaitre l'erreur qui est renvoyée par MySQL. La capacité des LONGTEXT est suffisament grande pour bien des fichier XML (cf:http://dev.mysql.com/doc/refman/5.0/en/storage-requirements.html), donc le problème ne vient peut-être pas du champ mais de la configuration du serveur. Mais pour en être sur, il faudrait connaitre l'ereur renvoyée.

[kakashi embedded]

Bonjour,

merci de vous interressez à mon cas.

Malheureusement je n'est pas d'erreur renvoyée par mysql. Tous se passe sous vb, j'arrive à enregistrer du texte dans mon champ mais pas tout le document. De plus ce qui très étrange, c'est que sous phpmyadmin, en copiant/collant le contenu de mon fichier dans le champ ça marche très bien, mais sous vb , rien à faire.

Faut-il précisé dans la requette qu'elle chose de plus pour un texte important?

[chat hotplug]

Oui ca se pourrait bien. D'ailleurs PHPMyAdmin a aussi ses limites lorsqu'il s'agit de transferer un texte long vers la base!

[kakashi embedded]

En fait je viens de trouvé mon erreur.
Mon fichier xml contient des commentaires, et certains commentaires on une ', c'est la que ça coince.

Si mon doc xml contient une apostrophe, c'est fichu! l'enregistrement ne se fait pas, comment résoudre ce problème ? Je me permet de vous montrer un morceau du code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Command8_Click()
 
Dim rs As MYSQL_RS
Dim Buffer As String 'Contient le contenu de mon doc xml
Dim max As Integer
Dim ReqUpDate As String
Dim NClient As String
NClient = Text10.Text
 
If conn.State = MY_CONN_OPEN Then
conn.CloseConnection
End If
 
 
conn.OpenConnection ADOMYSQL1.MYSQLHOST, ADOMYSQL1.MYSQLLOGIN, ADOMYSQL1.MYSQLPASSWORD, ADOMYSQL1.MYSQLDATABASE, ADOMYSQL1.MYSQLPORT, ADOMYSQL1.MYSQLOPTION
 
ReqUpDate = "UPDATE Client SET Rapport =  '" & Buffer & "' WHERE NumeroClient = '" & NClient & "'"
 
Set rs = conn.Execute(ReqUpDate)
 
        rs.CloseRecordset
 
        conn.CloseConnection
 
End Sub

[kakashi embedded]

Je viens de trouvé la solution à mon problème (oufff!!! :o )

En fait il faut remplacé les caractères à échapper de la chaine, je place le code pour ceux que ça interresse

La fonction addslashes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Function AddSlashes(ByRef sText As String) As String
 
sText = Replace(sText, "\", "\\")
sText = Replace(sText, Chr(34), "\" & Chr(34))
sText = Replace(sText, "'", "\'")
sText = Replace(sText, vbLf, "\n")
sText = Replace(sText, vbCr, "\r")
sText = Replace(sText, Chr(26), "\Z")
AddSlashes = Replace(sText, Chr(0), "\0")
 
End Function

Et il ne reste plus qu'à transmettre votre chaine en index de la fonction dans votre requette sql :

Code :

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

ReqUpDate = "UPDATE Client SET Rapport =  '" & AddSlashes(Buffer) & "' WHERE NumeroClient = '" & NClient & "'"