Anónimo
Exportar las tablas de una base de datos e importarlas
Buen día experto,
Tengo una base de datos es access2007 y quiero exportar las tablas TblClientes, TblPorveedore, TblCiudades por ejemplo y que el usuario seleccione la carpeta donde la quiera exportary luego que el usuario pueda imprtar los datos de esas tablas también buscando la carpeta donde las guardo.
Te agradezco mucho con esta idea.
Tengo una base de datos es access2007 y quiero exportar las tablas TblClientes, TblPorveedore, TblCiudades por ejemplo y que el usuario seleccione la carpeta donde la quiera exportary luego que el usuario pueda imprtar los datos de esas tablas también buscando la carpeta donde las guardo.
Te agradezco mucho con esta idea.
1 Respuesta
Respuesta de luis45ccs
1
Las tablas solo se pueden exportar a otra base no a un directorio
Solo al directorio y base externa
A menos que los pases a excel
Puedes usar
Docmd. TransferDatabase
Docmd. TransferSpreadsheet
Solo al directorio y base externa
A menos que los pases a excel
Puedes usar
Docmd. TransferDatabase
Docmd. TransferSpreadsheet
La idea es exportar las tablas en formato .txt en una carpeta que quiera el usuario y luego cuando quiera recuperar ese backup busque la carpeta y luego importe las tablas que exporto anteriormente.
Esto es útil cuando se hace una actualización, uno manda la base de datos, el usuario hace backup y sobre la que se le envía restaura ese backup.
Gracias.
Esto es útil cuando se hace una actualización, uno manda la base de datos, el usuario hace backup y sobre la que se le envía restaura ese backup.
Gracias.
Para importar un txt usa open "Archivo.txt" para abrí el archivo
leelo por lineas con
line input a$
y linea por linea parala a tu archivo separando los campos con
fr=freefile
open "Archivo.txt" for input as #fr
Dim r as recordset
set r = currentdb.openrecordset("Select * from Tabla")
do while not (r.eof)
line input linea
r.addnew
r!campo1=mid(linea,1,3)
r!campo2=mid(linea,4,34)
' y asi los demas campos
r.update
loop
Pero para backup vas mal, respalda copiando toda la base, con copy archivo etc.
o
En la carpeta del usuario crea una base vacía y exporta las tablas dentro de ella
transformarlas a txt y luego importarlas de nuevo, te traerá muchos problemas
leelo por lineas con
line input a$
y linea por linea parala a tu archivo separando los campos con
fr=freefile
open "Archivo.txt" for input as #fr
Dim r as recordset
set r = currentdb.openrecordset("Select * from Tabla")
do while not (r.eof)
line input linea
r.addnew
r!campo1=mid(linea,1,3)
r!campo2=mid(linea,4,34)
' y asi los demas campos
r.update
loop
Pero para backup vas mal, respalda copiando toda la base, con copy archivo etc.
o
En la carpeta del usuario crea una base vacía y exporta las tablas dentro de ella
transformarlas a txt y luego importarlas de nuevo, te traerá muchos problemas