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

418 - Método OutputTo de Access Object Library para exportación de tablas a diferentes formatos

Contenido:

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Función de ejemplo que utiliza la libraria de Access desde Visual basic para poder exportar el esquema de las tablas a diferentes formato.

El ejemplo accede mediante automatización con createObject, a la libreria de Access y mediante el método OutPutTo exporta la tabla.

El método OutPutTo tiene los siguientes argumentos :

OutputTo (TipoDeObjeto, El nombre del objeto, El formato de salida, Path de destino)

TipoDeObjeto : Eeste parámetro admite los siguientes valores de constantes : acOutputTable, acOutputStoredProcedure, acOutputReport, acOutputQuery, acOutputModule ( Como en este caso se exportan las tablas, se usa acOutputTable )
Nombre del objeto : En este caso es el nombre de la tabla, que en el ejemplo se accede mediante openSchema de Ado
Formato : Admite principalmente los formatos HTml, texto, Rtf y Excel. Los valores de constantes para pasar aqui son : A_FORMATRTF, A_FORMATTXT, A_FORMATXLS, acFormatASP, acFormatHTML y algunos otros

En este proyecto de prueba se utilizan las opciones para RTF, Html, Txt y XLS

La salida de los archivos :

Htm

texto plano

Xls

Nota: la ventaja que tiene este método , en comparación de hacerlo en forma recursiva por ejemplo, recorriendo registro por registro, es que es mucho mas rápido. La desventaja es que es obligatorio obviamente tener el Access instalado para poder acceder a la Libreria Microsoft Access Object Library y poder utilizar el método OutputTo

Ejemplo

Un control Command1
Un Text1 ( para la ruta del .mdb )
Añadir la referencia a Ado
La referencia a microsoft Access xx Object Library

Nota: este ejemplo solo está probado con la versión de Access 2000 . Para indicar el tipo de formato de salida, especificar en el tercer parámetro de la rutina "ExportarTabla", los valores de constantes que están declarados en el código .

Código fuente en el form

Option Explicit ' Para los diferentes tipo de salida ''''''''''''''''''''''''''''''''''''''' Const HTML = "HTML (*.html)" Const EXCEL = "Microsoft Excel (*.xls)" Const TEXTO = "MS-DOS Text (*.txt)" Const RTF = "Rich Text Format (*.rtf)" ' recibe el path de la bd Access , el nombre de la Table, y el tipo '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub ExortarTabla(PathBd As String, _ Tabla As String, _ Formato As String) On Error GoTo error_Sub ' Variable de Objeto para acceder al Access Dim objAccess As Object ' comprueba que el path de la bd sea válido If Len(Dir(PathBd)) = 0 Then MsgBox "La ruta de la bd no existe", vbCritical, "error de ruta" End If Dim ArchivoSalida As String ' ruta y extensión del archivo de salida para la tabla a exportar Select Case Formato Case HTML: ArchivoSalida = App.path & "\" & Tabla & ".html" Case EXCEL: ArchivoSalida = App.path & "\" & Tabla & ".xls" Case TEXTO: ArchivoSalida = App.path & "\" & Tabla & ".txt" Case RTF: ArchivoSalida = App.path & "\" & Tabla & ".rtf" End Select Me.MousePointer = vbHourglass ' crea el objeto para acceder al Access Set objAccess = CreateObject("Access.Application") ' abre la bd con el método OpenCurrentDatabase objAccess.OpenCurrentDatabase PathBd ' Ejecuta el método OutputTo para exportarla Call objAccess.DoCmd.OutputTo(0, _ Tabla, _ Formato, _ ArchivoSalida, _ False) ' cierra la bd actual con CloseCurrentDatabase objAccess.CloseCurrentDatabase 'libera la referencia Call DescargarObjetos(objAccess) ' error error_Sub: Exit Sub MsgBox Err.Description Call DescargarObjetos(objAccess) End Sub ' sub que descarga las variables '''''''''''''''''''''''''''''''''''''''''''''''''''' Sub DescargarObjetos(ParamArray Objs() As Variant) On Error Resume Next Dim ElObj As Variant For Each ElObj In Objs Set ElObj = Nothing DoEvents Next Me.MousePointer = vbNormal End Sub Private Sub Command1_Click() Dim cn As ADODB.Connection Dim oSchema As ADODB.Recordset ' nueva conexión Set cn = New ADODB.Connection ' abre cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Trim(Text1) & ";Persist Security Info=False" ' nuevo recordset Set oSchema = New ADODB.Recordset 'Obtiene las tablas Set oSchema = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE")) ' recorre Do Until oSchema.EOF ' verifica que no sea una tabla de sistema If InStr(oSchema!table_name, "MSys") = 0 Then DoEvents Me.Caption = "Guardando la tabla: " & oSchema!table_name ' exporta esta tabla, en este caso a xls Call ExortarTabla(Text1, oSchema!table_name, Excel) End If 'Mueve a la siguiente tabla oSchema.MoveNext Loop Me.Caption = "" oSchema.Close ' cierra el recordset cn.Close ' cierra la connection ' libera la memoria Call DescargarObjetos(oSchema, cn) MsgBox "Archivos generados en : " & App.path & "\", vbInformation End Sub Private Sub Form_Load() Command1.Caption = "Comenzar.." Text1 = "Escribir la ruta el archivo .mdb" End Sub

Ejemplo 2

Este otro proyecto para descargar, a diferencia del anterior, permite mandar todas las tablas a un único archivo xls en ves de hacerlo en archivos individuales, pero además lo hace en forma recursiva, recorriendo el conjunto de registros, y añadiendo cada dato a la celda del xls creando una hoja para cada tabla , por lo que el tiempo puede tardar bastante si la bd es grande

Descargar

Enlaces relacionados

Buscar en Recursos vb