| |||
![]() 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 |
| |||
ok mira ttengo un ejmplo mandame un mail para ver cunado te conectas al msn y te lo paso mi msn es [email protected] |
| |||
ok espero que le entiendas 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 |
| ||||
mas facil es usando la libreria Scripting Runtime de ahi creas tu xml o lo que quieras
__________________ http://www.luisariashidalgo.com |
| ||||
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
__________________ http://www.luisariashidalgo.com |
| |||
Cita: Y si en vez de eso lo haces a mano abriendo el archivo, todavía mejor
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 ![]() |