Copy table

"Karlos Traveceras" escribió:

me veo en la necesidad de copiar tablas en tiempo de ejecucion y
dejarlas con otro nombre.. dentro de la misma base de datos..

Hola, Carlos:

Si solamente deseas crear una nueva tabla, con la estructura y los datos (no
los índices) de otra tabla existente, simplemente tienes que ejecutar una
consulta SQL de creación de tabla mediante la instrucción «SELECT ... INTO».
Para ello, puedes utilizar el método «ExecuteNonQuery» para ejecutar la
siguiente consulta:

cmdtext = "SELECT * INTO A_empresas FROM [empresas]"

Si de camino deseas obtener el número de registros que se han copiado,
ejecuta el comando de la siguiente manera:

Dim cmdsql As New SqlCommand

With cmdsql
.CommandText = cmdtext
.CommandType = CommandType.Text
.Connection = dbConexion

' Ejecutamos el comando
Dim regAfectados As Integer
regAfectados = .ExecuteNonQuery()

' Mostramos el número de registros afectados
MessageBox.Show(regAfectados.ToString)
End With

Para evitar que se puede producir alguna excepción, ejecuta el código dentro
de un bloque Try ... End Try.


Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.