Access - exportar

exportar

Publicado por T O N Y (105 intervenciones) el 05/04/2005 01:29:47

Hola, programadores:
Alguien podria decirme como hacer para exportar una tabla a un disquete, (nadamas que una tabla) pero que ademas tenga clave esa exportada, todo esto echo en la programacion de visual basic de acces.-
Lo que si hago es exportar una tabla a un disquette pero en formato texto y sin clave (Claro todo programado en Visual) pero esto no me interesa tanto sin que lo primero.-

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Exportar una tabla a un disquete con clave utilizando Visual Basic

Publicado por Alejandro (4142 intervenciones) el 30/05/2023 20:25:40

Para exportar una tabla a un disquete en Access utilizando Visual Basic, puedes seguir los siguientes pasos:

1. Asegúrate de tener el disquete insertado en la unidad correspondiente.

2. Abre el Editor de Visual Basic en Access presionando ALT + F11.

3. En el Editor de Visual Basic, ve al menú "Insertar" y selecciona "Módulo" para crear un nuevo módulo.

4. En el nuevo módulo, escribe el siguiente código:

Public Function ExportarTablaADisquete()

    Dim ruta As String

    Dim clave As String

    ' Establece la ruta del disquete

    ruta = "A:\" ' Cambia "A:\" por la letra de unidad correspondiente

    ' Establece la clave para encriptar la tabla

    clave = "tuclave" ' Cambia "tuclave" por la clave que desees

    ' Exporta la tabla a un archivo de base de datos en el disquete

    DoCmd.TransferDatabase acExport, "Microsoft Access", ruta, acTable, "NombreTabla", "NombreArchivo.mdb", False, , False

    ' Establece la clave en el archivo de base de datos exportado

    SetDatabasePassword ruta & "NombreArchivo.mdb", clave

End Function

Private Sub SetDatabasePassword(rutaArchivo As String, clave As String)

    ' Establece la clave en el archivo de base de datos

    Dim db As DAO.Database

    Set db = DBEngine.OpenDatabase(rutaArchivo)

    db.NewPassword "", clave

    db.Close

    Set db = Nothing

End Sub

5. Reemplaza "NombreTabla" por el nombre de la tabla que deseas exportar.

6. Cambia "tuclave" por la clave que deseas utilizar para encriptar la tabla.

7. Guarda el módulo.

8. Cierra el Editor de Visual Basic.

9. Desde cualquier parte de tu aplicación de Access, puedes llamar a la función `ExportarTablaADisquete` para iniciar el proceso de exportación.

Ten en cuenta que este código asume que el disquete está en la unidad A:\. Asegúrate de cambiar la ruta a la letra de unidad correcta si es diferente en tu sistema. Además, asegúrate de tener los permisos necesarios para escribir en el disquete.

Este código exportará la tabla especificada a un archivo de base de datos en el disquete y establecerá una clave en ese archivo utilizando la función `SetDatabasePassword`.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar