** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Importar exportar tabla externa
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoImportar exportar tabla externa

 Responder Responder
Autor
Mensaje
Joan Morell Jornet Ver desplegable
Nuevo
Nuevo


Unido: 21/Enero/2019
Localización: roses
Estado: Sin conexión
Puntos: 45
Enlace directo a este mensaje Tema: Importar exportar tabla externa
    Enviado: 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

Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 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


Arriba
Joan Morell Jornet Ver desplegable
Nuevo
Nuevo


Unido: 21/Enero/2019
Localización: roses
Estado: Sin conexión
Puntos: 45
Enlace directo a este mensaje Enviado: 23/Mayo/2019 a las 10:40
Gracias, lo miro
Arriba
Joan Morell Jornet Ver desplegable
Nuevo
Nuevo


Unido: 21/Enero/2019
Localización: roses
Estado: Sin conexión
Puntos: 45
Enlace directo a este mensaje Enviado: 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

Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 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
Arriba
Joan Morell Jornet Ver desplegable
Nuevo
Nuevo


Unido: 21/Enero/2019
Localización: roses
Estado: Sin conexión
Puntos: 45
Enlace directo a este mensaje Enviado: 25/Mayo/2019 a las 17:20
gracias,  lo voy a probar
Arriba
Joan Morell Jornet Ver desplegable
Nuevo
Nuevo


Unido: 21/Enero/2019
Localización: roses
Estado: Sin conexión
Puntos: 45
Enlace directo a este mensaje Enviado: 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
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable