Sección de códigos , trucos y ejemplos para visual basic

263 - Ado - Exportar un Recordset a un archivo XML

Función que permite exportar el contenido de un recordset a un archivo XML haciendo uso de la referencia a Microsoft XML ( Objeto DOMDocument )

Para el ejemplo se necesita incluir la referencia a Microsoft XML y la referencia a ADO

Vista de la ventana de referencias de visual basic para incluir Microsoft XML y la referencia ADO

Para generar el archivo XML con el contenido del recordset, pasar a la función en el primer parámetro el path de la base de datos, en el segundo la ruta del fichero XML y el último parámetro indicar la consulta SQL para el Recordset.

También agregar un Command1.

Código fuente en el formulario:

Option Explicit '*************************************************************************** '* Referencias : Incluir Microsoft Activex Data Objects (ADO) _ y Microsoft XML '*************************************************************************** Private Sub Command1_Click() Dim Base As String Dim Ruta_XML As String Dim Ret As Boolean Base = "C:\Archivos de programa\Microsoft Visual Studio\VB98\Biblio.MDB" Ruta_XML = App.Path & "\archivo.xml" ' Le pasa a la función el path de la base de datos, el path del _ archivo xml y la consulta sql Ret = Recordset_a_Xml(Base, Ruta_XML, "SELECT * FROM Authors") 'Si devuelve verdadero lo generó correctamente If Ret Then MsgBox " Archivo XMl generado en: " & Ruta_XML, vbInformation End If End Sub Function Recordset_a_Xml(Path_BD As String, _ Path_XML As String, _ SQL As String) As Boolean On Error GoTo errSub 'Variables para la conexión ado, el recordset _ y el objeto para generar el xml Dim obj_DOMDocument As DOMDocument Dim cn As ADODB.Connection Dim rst As ADODB.Recordset ' Nueva conexión ADO Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Persist Security Info=False;" & _ "Data Source=" & Path_BD 'Abre la base de datos cn.Open ' Llena el recordset Set rst = cn.Execute(SQL) ' Graba el contenido del Recordset en el Obj DOMDocument. Set obj_DOMDocument = New DOMDocument rst.Save obj_DOMDocument, adPersistXML 'Cierra el recordset y la conexión a la base de datos rst.Close cn.Close ' Genera el archivo xml obj_DOMDocument.Save Path_XML Recordset_a_Xml = True Exit Function 'Error errSub: MsgBox "Error:" & Err.Number & vbNewLine & _ "Descripción:" & Err.Description, vbCritical Recordset_a_Xml = False End Function Private Sub Form_Load() Command1.Caption = " Crear XML de Recordset " End Sub

Recursos vb 6.0 - Enlaces relacionados

XML - Listado de ejemplos

Buscar en Recursos vb