VB6 XML SQL Server

Version imprimable

18/07/2007, 08h46
charret2002

VB6 XML SQL Server

Bonjour,

Lors du développement d'un logiciel je me suis trouvé confronter à un soucis que je n'ai pu résoudre. Le but de mon logiciel est d'aller lire dans un base SQL Server 2005 et d'afficher différentes informations. Pour ce faire, ma table possède un champs XML qui contient la config à appliquer, un autre champs XML pour enregistrer les données (data) ainsi que plusieurs champs texte normaux.

Pour la lecture de la base j'utilise tout simplement un objet ADODB.Recordset. Tout se qui concerne la lecture se fait très facilement mais lorsque je veux enregistrer mes nouvelles données dans le champs data (XML) de ma table, il me dit que les types ne sont pas compatible...
J'ai quand même tenté de transformer le fichier XML en une string lors du Select dans la base mais rien n'y fait, il me met toujours la même erreur.

Auriez-vous une explication et si possible une solution? Merci d'avance
18/07/2007, 13h33
ThierryAIM

un instant, j'étudie ton code ....

Ok ok... Je l'ai simplifié au max

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Set grecElement = New ADODB.Recordset
    grecElement.CursorType = adOpenDynamic
    grecElement.LockType = adLockBatchOptimistic
    grecElement.CursorLocation = adUseClient
    Set grecElement.ActiveConnection = gAdoConnection
 
    grecElement.Open "select fieldChar, Convert(nVarChar(300), fieldXml) as fieldXml from dbo.Test"
 
    grecElement.Fields("fieldChar").Value = "salut"
 
    grecElement.Fields("fieldXml").Value = m_oDocXml
 
    grecElement.UpdateBatch

C'est au moment d'insérer m_oDocXml qu'il me fait un bug... Même en mettant

Code:

m_oDocXml.xml

sa ne passe pas