08/07/2008, 12:44
|
| Colaborador | | Fecha de Ingreso: enero-2008 Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años Puntos: 37 | |
| Respuesta: crear backup de tablas
Hola,
Tienes que indicar la ruta completa de la base de datos:
Dim NuevaBD As String
NuevaBD = App.Path & "\" & empresas & "\" & " copiasuc.mdb "
cn.Execute "SELECT * INTO [LaTabla] IN '" & NuevaBD & "' FROM [LaTabla]"
Aunque lo que estás haciendo es copiar directamente la base de datos y seleccionando las tablas a copiar.
Te va a dar error de que la tabla ya existe. Deberías crear la base de datos vacía y después copiar las tablas seleccionadas o por el contrario si haces una copia de la BD, eliminar las tablas que no te interesen en la nueva BD. |