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 : 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
 
'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