SQLITE - XML Blob

Bonjour à tous,

Je cherche comment insérer des données XML dans une base de données SQLite depuis une macro VBA.
J'ai choisir d'insérer mes données dans un champs BLOB.

Voici un extrait de mon code, la fonction insert fonctionne correctement (j'insère une String).
Par contre la fonction get_five_last_record me retourne tous les champs sauf le BLOB. Est-ce que quelqu'un peut m'aider?

D'avance, merci beaucoup de votre aide.
Très bonne journée et meilleures salutations.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

'insert mesure proof 'this function insert a XML document, the id is the current date Public Function insert(docXML As MSXML2.DOMDocument30) As ADODB.Recordset Dim sql_str As String Dim currente_date As Date Dim result As ADODB.Recordset currente_date = Now sql_str = "INSERT INTO proof_mesures ('due_date', 'xml_data') VALUES ('" & currente_date & "', '" & docXML.XML & "')" Set result = pConn.Execute(sql_str) Set insert = result End Function     'get 5 last mesure proof Public Function get_five_last_record() As ADODB.Recordset Dim result As ADODB.Recordset Dim sql_str As String sql_str = "SELECT xml_data FROM proof_mesures ORDER BY due_date DESC LIMIT 5" Set result = pConn.Execute(sql_str)   Set get_five_last_record = result End Function

---

bonjour,
que n'arrive tu pas à faire?
te connecter a la base de données?
ou Insérer le xml?

Bonjour,

Merci pour ta réponse. Je n'arrive pas à récupérer le XML!
De plus, je ne sais pas si c'est correct de faire "docXML.XML" avant l'enregistrement dans le bob?

Code:

---

1 2	sql_str = "INSERT INTO proof_mesures ('due_date', 'xml_data') VALUES ('" & currente_date & "', '" & docXML.XML & "')"

---

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Dim oXML As MSXML2.DOMDocument Dim oNode As MSXML2.IXMLDOMNode Set oXML = New MSXML2.DOMDocument Dim xm As XMLHTTP oXML.async = False oXML.Load "C:\OEAT\compiled.xml" insert oXML End Sub

---

http://arkham46.developpez.com/artic...b/?page=page_4

Hello,

Merci beaucoup pour ta réponse. J'arrive à insérer le XML dans la base de données. Si je fais une requête SQL j'obtiens:

Code:

---

1 2 3

"<?xml version=""1.0"" encoding=""UTF-16""?> <network><node>one</node><nodes><node>1</node><node>2</node></nodes><node>two</node></network> "

---

Par contre quand j'utilise la fonction "get_five_last_record", je reçois ça:
: Bookmark : <Le jeu d'enregistrements en cours ne prend pas en charge les signets. Il s'agit peut-être d'une limitation du fournisseur ou du type de curseur sélectionné.> : Variant

Et je comprends pas ce que ça veut dire. Même avec des recherches:)
Merci

Code:

---

1 2 3 4 5 6 7 8 9

Public Function get_five_last_record() As ADODB.Recordset   Dim sql_str As String Set get_five_last_record = New ADODB.Recordset sql_str = "SELECT xml_data FROM proof_mesures ORDER BY due_date DESC LIMIT 5" get_five_last_record.Open sql_str, pConn, adOpenDynamic, adLockReadOnly     End Function

---

à toi de gérer les paramètres: adOpenDynamic,adOpenForwardOnly...,adLockReadOnly...

Bonjour,

Merci beaucoup pour vos réponses, j'ai lus de la documentation là-dessus.
Mais je n'arrive toujours pas à relire le XML que j'ai stocké dans la base de données. Je reçois une chaîne qui contient que des points d'intégorations, le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Do Until result2.EOF For i = 0 To result2.Fields.Count str_return = result2(0).value Debug.Print str_return Set XML = New MSXML2.DOMDocument30 XML.LoadXML (str_return) Debug.Print XML.Text   Next i result2.MoveNext Loop

---

Me donne ce résultat :(

Code:

---

1 2 3 4 5 6 7 8 9 10

?????????•??????????????????????????????????????????????????????????     ?????????•??????????????????????????????????????????????????????????   ?????????•??????????????????????????????????????????????????????????   ?????????•??????????????????????????????????????????????????????????

---

Merci beaucoup!

bonjour,
peux tu me donner un fichier Sqlite avec que la table sans data pour que je face des test?

Bonjour,

Merci beaucoup.
Le code SQL que j'ai exécuté pour avoir ma base de données:

Code:

---

1 2	CREATE TABLE "proof_mesures" ("due_date" DATETIME PRIMARY KEY NOT NULL UNIQUE , "xml_data" BLOB NOT NULL )

---

Je ne sais pas vraiment comment te donner le fichier sans data mais il est très léger et il n'y a rien d'utile c'est juste des tests.

Merci infiniment pour ton aide!

personnellement j'ai jamais réussie à utiliser les champ BLOB je prends le texte.
c'est la même chose.
j'arrive a entrer des valeur mais pas à les lires rs.eof toujours à true??
ça vient de mon driver je supposes !!

Bonjour,

Merci beaucoup pour ton aide… Effectivement, ça marche avec un champs TEXT. Il faudra vraiment que je fasse des recherches sur les BLOB car il me semblait que c'était une bonne manière de stocker des fichiers…
Mais pour du XML c'est plus simple en TEXT:)

Merci pour ton aide, tu m'as mis sur la bonne voie.

Meilleures salutations.