Imprimir página | Cerrar ventana

Importar exportar tabla externa

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84509
Fecha de impresión: 23/Septiembre/2019 a las 13:12


Tema: Importar exportar tabla externa
Publicado por: Joan Morell Jornet
Asunto: Importar exportar tabla externa
Fecha de publicación: 22/Mayo/2019 a las 19:42


Importar y exportar tabla (examen) (siempre la misma) de/a una BD externa (a elegir entre varias)

Con nombre y su ruta de la BD indicada en una tabla

pero Substituyendo los registros para no perder relaciones tabla




Respuestas:
Publicado por: rokoko
Fecha de publicación: 23/Mayo/2019 a las 08:04
De aqui podras sacar ideas....

http://www.mvp-access.com/foro/boton-para-exportar_topic84487.html


http://www.mvp-access.com/foro/combobox-que-lista-nombre-de-tablas_topic84404.html




Publicado por: Joan Morell Jornet
Fecha de publicación: 23/Mayo/2019 a las 10:40
Gracias, lo miro


Publicado por: Joan Morell Jornet
Fecha de publicación: 23/Mayo/2019 a las 20:39
gracias, pero no es lo que busco,

Con un cuadro combinado, sobre una tabla, busco el nombre y la ruta de una base de datos
el marcarla, me debe de importar la tabla [preguntas] a la base de datos de trabajo



Publicado por: rokoko
Fecha de publicación: 23/Mayo/2019 a las 21:36
Para hacer lo que quieres la consulta debe estar en SQL para que mediante una variable le metas la ruta de la base de datos que tu seleciones en el cuadro combinado.

Por ejemplo en esta consulta para exportar datos sacada de una consulta normal de exportacion.
Donde esta en negrita deberia de ir la variable con la ruta de la base de datos a donde quieras exportar

INSERT INTO Tabla1 IN 'C:\Borrar y exportar datos a una tabla base datos externa\b.mdb'
SELECT Tabla1.*
FROM Tabla1;

Por ejemplo

Dim varRuta as string
varRuta=Me.NombreCuadroCombinado    




INSERT INTO Tabla1 IN " & varRuta & "
SELECT Tabla1.*
FROM Tabla1;


En este caso exportar todos los registros de la tabla1 a la tabla1 de la base de datos externa. Ten en cuenta que si tienes campo claves antes tendras que borrarlos para exportar los nuevos. El ejemplo que te he dado hace exactamente eso, pero mediante un boton y la consulta normal de exportacion con la ruta fija.

Dim DataBase As DAO.DataBase
Set DataBase = DBEngine.Workspaces(0).OpenDatabase("C:\Borrar y exportar datos a una tabla base datos externa\b.mdb", False, False, Password)  'Aqui iria tu  variable con la ruta de la base de datos
DataBase.Execute "DELETE * FROM Tabla1"  'Borro datos de base de datos externa
Set DataBase = Nothing


MsgBox "Datos Borrados, ahora exportaremos los datos.", vbInformation

DoCmd.SetWarnings False
DoCmd.OpenQuery "ExportarDatos_B"  'Aqui iria tu consulta en SQL con la variable con la ruta de la base de datos
DoCmd.SetWarnings True

MsgBox "Proceso terminado.", vbInformation


Publicado por: Joan Morell Jornet
Fecha de publicación: 25/Mayo/2019 a las 17:20
gracias,  lo voy a probar


Publicado por: Joan Morell Jornet
Fecha de publicación: 26/Mayo/2019 a las 22:01
he encontrado la solucion,  es mas larga que la tuya pero me funciona

dejo colgada en el Cloud un ejemplo,  espero que os ayude
https://1drv.ms/f/s!Am8uGUYsvj07inVpTERtfnFtGl91 

gracias a todos por vuestro interes

salutacions joan morell



Imprimir página | Cerrar ventana