¿Como se genera un XML con Visual Basic?

[Sebasedeno]

Necesito generar un XML desde Visual Basic 6 a partir de un recordset, estoy utilizando los objetos dom pero se me dificulta cuando el select del recset es de varias tablas y se tienen que generar varios nodos (xml) dentro de un mismo nodo. ¿Como puedo hacer?, o como puedo hacer de otra forma para generar un XML con Visual Basic

[xochitemol]

ok mira ttengo un ejmplo mandame un mail para ver cunado te conectas al msn y te lo paso mi msn es [email protected]

[xochitemol]

necesitas una base de datos en acces. te paso el codigo completo :



Private Sub mnuArchivoXML_Click()
frmArchivo.Show
End Sub

Private Sub mnuCreaXML_Click()
Dim msXmlPath As String
Dim db As Connection
Dim myRS As Recordset
Set myRS = New Recordset

On Error GoTo error

Set db = New Connection
msXmlPath = App.Path & "\Datos\Libros.xml"
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path + "\Libros.mdb;Persist Security Info=False"
db.Open
myRS.Open "select * from libro order by LIBROID", db, adOpenStatic, adLockOptimistic
myRS.save msXmlPath, adPersistXML
MsgBox "Se ha creado el archivo: " & msXmlPath, vbInformation, "Atencion"

Exit Sub
error:
MsgBox Err.Description, vbOKOnly + vbInformation, Err.Number
Exit Sub
End Sub

Private Sub mnuPublicacion_Click()
frmPrincipal.Show
End Sub

Private Sub mnuReporte_Click()
Dim objRS As New ADODB.Recordset
Dim msXmlPath As String

objRS.CursorLocation = adUseClient
msXmlPath = App.Path & "\Datos\Libros.xml"
objRS.Open msXmlPath, , , , adCmdFile
If Not objRS.EOF Then
With dtrLibros
Set dtrLibros.DataSource = objRS
.Caption = "Listado de Libros"
.Show
End With
End If
End Sub

Private Sub mnuSalir_Click()
End
End Sub

[OYEME]

mas facil es usando la libreria Scripting Runtime de ahi creas tu xml o lo que quieras

[OYEME]

Set fso = New Scripting.FileSystemObject
Set fXML = fso.CreateTextFile("c:\libros.xml", True)

fXML.WriteLine "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"
fXML.WriteLine "<libros>"
Do While Not rs.EOF
fXML.WriteLine "<libro>"
fXML.WriteLine "<id>" & rs("title_id") & "</id>"
fXML.WriteLine "<titulo>" & rs("title") & "</titulo>"
fXML.WriteLine "<precio>" & rs("price") & "</precio>"
fXML.WriteLine "</libro>"
rs.MoveNext
Loop
fXML.WriteLine "</libros>"


aqui estas creando un xml a raiz de un recordset
espero te sirva

[LuisH]

Como podría hacer eso mismo pero para una aplicación de Smart Device, me interesa mucho poder hacerlo, te lo agradecería si me pudieras ayudar. Gracias

[MaxExtreme]

Iniciado por OYEME

Set fso = New Scripting.FileSystemObject
Set fXML = fso.CreateTextFile("c:\libros.xml", True)

fXML.WriteLine "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"
fXML.WriteLine "<libros>"
Do While Not rs.EOF
fXML.WriteLine "<libro>"
fXML.WriteLine "<id>" & rs("title_id") & "</id>"
fXML.WriteLine "<titulo>" & rs("title") & "</titulo>"
fXML.WriteLine "<precio>" & rs("price") & "</precio>"
fXML.WriteLine "</libro>"
rs.MoveNext
Loop
fXML.WriteLine "</libros>"


aqui estas creando un xml a raiz de un recordset
espero te sirva

Y si en vez de eso lo haces a mano abriendo el archivo, todavía mejor

[fedearlettaz]

Varios años despues!!!... funciona exelente! gracias.

[homeres]

Todavía mas años después... sigue funcionando a la perfección xD
Gracias!