Hacer una copia de una tabla?

[sowhat]

A partir de la sentencia create table de SQL, puedo crear una tabla con diseño (campos,definicion,claves,etc.)identico a otra tabla?? y bueno... hablo de sql de access . Creo que no se podra pero por intentarlo....

Esto lo pregunto pq estoy haciendo una aplicacion desde visual basic que haga un guardar como de una tabla(osea k haga una copia de una tabla con otro nombre)y la verdad que me estoy complicando mucho y no me termina de salir, por eso quizas pense que desde sql era mas facil.

Ojo me refiero a la estructura (campos,claves,etc.), los datos los relleno sin problema con un insert into.

[Benjact]

Estoy seguro q con una única consulta se podría hacer, pero ahora no tengo a mano mi manual de sql...

Igualmente se me ocurre otra cosa, hacer dos instrucciones sql consecutivas:
1) SELECT Tabla1* INTO Tabla2 FROM Tabla1;
copias una tabla en otra nueva (datos incluidos)
2) DELETE * FROM Tabla 2
borras los datos de la 2ª tabla

Hay que reconocer que es un poco chapucero pero funcionar funciona y no es tan liado como lo que dices que estabas haciendo

Cuando pueda mirar en mi manual ya te diré si encuentro otra forma.

[sowhat]

Joder me he liado a lo tonto con lo sencillo que es eso , solo una cosa, con la instrucion

Código:

SELECT Tabla1.* INTO Tabla2 FROM Tabla1;

Efectivamente creo una nueva tabla con sus mismos campos y datos (no me hace falta borrar los datos pq en mi aplicacion los agregaba tb con otra consulta ), el problema esta en que la nueva tabla no tiene las claves de la vieja .

Habria forma de añadir las claves con lo que me has dicho?? Es que si tengo que usar alter table seria una movida gorda..., pq claro hago la aplicacion para cualquier tabla y seria un jaleo vamos.

Ya me diras cuando puedas,Gracias!

[Benjact]

No me habia dado cuenta de que los indices no se copian. Personalmente no se me ocurre otra forma de hacerlo que no sea con el alter table.

Lo que podrias hacer, es que todos los indices se llamen siempre 'ID', por ejemplo. Así, puedes hacer la misma instrucción sql valida para cualquier tabla, con el alter table.

Siento no poder dedicar tiempo a investigar y darte una solucion mejor

[sowhat]

Es una solucion eso de id, muchas gracias de todas formas, ya hiciste bastante ;)

[Teri]

Para copiar una tabla utiliza

DoCmd.CopyObject "", "COPIA", acTable, "A1003"


COPIA, es el nombre de destino, "A1003" es la tabla origen

Un saludo

[sowhat]

Gracias una vez mas teri.

Lo unico que esa consulta seria valida para sql server y demas,no? Ahora con lo que estoy trabajando es con access

Salu2

[Teri]

Eso funciona para access, para hacer una copia de una tabla de SQL-Server, ahora mismo no sé como hacerlo de la misma manera

Investigo y te cuento

[sowhat]

nono, ke yo kiero para access no para sql server!!

Io es ke puse eso y me daba error, pero estoy pensando k eso ira delante de una select? Y como daba error pense k eso era para sql-server, pero lo kiero para access!!

[Teri]

Vale... entiendo... supongo que ya lo habrás resuelto, eso lo debes ejecutar por código Visual, en una función, un procedimiento...

Un saludo

[sowhat]

Perdon por mi torpeza Teri, pero no me entero jeje.

Al principio pense que eso era una consulta, osea que lo tenia que poner en la propiedad source del recordset. Pero veo que es para un procedimiento, funcion, etc.

Lo puse en el evento al pulsar un boton (por ej):

Código:

Private Sub Command3_Click()
DoCmd.CopyObject "", "tabla103", acTable, "tabla1"

End Sub

Para crear una copia de la tabla1 con nombre de tabla103, pero al ejecutarlo "actable" me da como variable no definida .

Tengo que añadir alguna referencia o algo??

Gracias por tu ayuda , salu2

[Teri]

Pues en principio no...

quítale las comillas del principio

[sowhat]

nada , me sigue diciendo lo mismo k variable no definida.
Lo deje asi:

DoCmd.CopyObject , "tabla103", acTable, "tabla1"

[Teri]

Prueba en una base de datos en blanco, crea una tabla para probar, y en un formulario, haces lo que has dicho, un botón, y en click, empieza a escribir la instrucción, no la copies tal cual, debería salirte la función, y los parámetros...

A ver si hay suerte...

[Benjact]

Teri, solo trabaja con una base de datos de access, no está usando los formularios de access, la aplicación la hace en visual basic.

Yo creo que te falta referir de donde son esas tablas, por que a la instruccion docmd.copytable le estas dando el nombre las tablas pero no de que base de datos. Yo diria que puede ser eso

[sowhat]

Exactamente trabajo con una bd en access 2000 pero SIN access, solo con visual.

Me da que no voy a poder usar ese comando, pq visual no me lo reconoce ni nada, ni lo encuentra la ayuda :(, intente hacerlo desde visual con adox pero era una movida mucho mas gorda y al final lo consegui pero no consegui copiar las claves principales xD osea que para eso uso la select k me dan arriba.

[Benjact]

Bueno, por lo menos se ha intentado. Pero habrá que seguir buscando algún sistema para conseguirlo


Hasta pronto y suerte

[Teri]

Comprueba una cosa...

el comando docmd.copy, es una instrucción de Acces, vale, pero en tus respuestas, decías que el error te lo daba por la constante acTable, no deja de ser una constante (vale 0), solo pon su valor, eso sí, debes modificar la función, el primer parámetro, indica la base de datos en la que hay que copiar, pon la ruta, o comprueba la ayuda en visual de la función

Suerte

[sowhat]

Uff encontre la solución por fin , cacharreando con un proyecto que no eram mio vi que usaba la funcion docmd.

Codigo:

Código:

Dim MiBase As New Access.Application

Private Sub Command3_Click()
        MiBase.OpenCurrentDatabase (rutadelabd)
        MiBase.DoCmd.CopyObject ruta, nueva_tabla, acTable, tabla_vieja
        MiBase.CloseCurrentDatabase
        

   
End Sub

Luego tb hay que marcar la referencia Microsoft Access 10.0 Object Library.

Eso copia la tabla tal cual, eso si creo que hace falta tener access instalado en el pc ya que lo abre y luego cierra esa base de datos(pero access sigue abierto )

Menos da una piedra.......

[Benjact]

No es por desmoralizarte, pero que feo, no? Dejar el access abierto...

Aunque por lo menos ya lo tienes. Ha costado pero ya se copia la tabla completamente

[sowhat]

Joder ya te digo que queda feo, ahora estoy con otra cosa y tengo eso un poco olvidado, cuando me ponga con ello lo estudiare a fondo a ver si hay forma de que access no se quede abierto (que seguro que la hay).

Lo suyo seria que no hiciese falta tener access instalado......., pero a falta de pan.......

[Teri]

MiBase.Quit ¿¿¿¿????

[sowhat]

eo! Ahi le has dao!