Sección de códigos , trucos y ejemplos para visual basic


328 - Clonar tabla

<Volver> - Anterior - Siguiente



 

Formulario que permite clonar una tabla utilizando Adox , Ado y Jro

 

 

vista del formulario para poder copiar y clonar tablas usando adox y jro

 

Primero se debe abrir la base de datos que ejecuta la Sub Abrir_Bd donde se debe pasar el path de la como parámetro que luego se asigna al Connectionstring

Abrir "Path de la bd"

 

Luego para clonar la tabla, se ejecuta la función Clonar que recibe como parámetro la conexión abierta anteriormente, el nombre de la tabla que se va clonar, el nuevo nombre de la tabla clonada, y el modo u opción ( Copiar solo la estructura o estructura y datos)

Call Clonar(cnn, "LaTabla", "TablaClon", ESTRUCTURA_DATOS o SOLO_ESTRUCTURA)

 

Para el ejemplo se debe añadir las siguientes referencias al proyecto

1 - Microsoft Activex data Objects ( Ado )

2 - Microsoft Ado Ext xx for dll and Security ( Adox )

3 - Microsoft Jet and replication Objects ( Jro )

 

Controles para el formulario

1 - Un textbox ( text1 ) para indicar la ruta de la base de datos

2 - Un textbox ( text2 ) para indicar el nombre de la tabla que se va a clonar

3 - Un textbox ( text3 ) para indicar el nombre que tendrá la tabla a clonar

4 - Un ComboBox ( Combo1 ) para la opción " Copiar solo estructura " y " Copiar Estructura y datos "

5 - Un Command1 para Clonar la tabla

6 - Un Command2 para abrir la conexión a la bd

 

Si la tabla a clonar ya existe en la bd, la misma no se reemplaza y la función genera error

Nota : en el siguiente enlace hay una clase que permite clonar tablas y campos, y un montón de otras funciones útiles : módulo para ado

 

Código fuente en el formulario

 


Recursos visual basic 6.0 - enlacesrelacionados



Buscar en Recursos vb