Enregister doc dans champ table mysql

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.

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

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.

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?

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

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:

---

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

---

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:

---

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:

---

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

---