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.

muchas gracias mi estimado..

funciono a la perfeccion.. solo una duda.. si yo quisiera copiar la tabla
pero sin informacion.. cual seria el procedimiento..

gracias de nuevo..



"SoftJaén" wrote:

"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.

Saludos Karlos,

Seguro que Enrique se le ocurre otra forma de resolver esto, sin embargo,
por el momento sugiero algo.
Para que se cree la tabla, pero sin datos, usa el comando con una sentencia
WHERE siempre falsa:

cmdtext = "SELECT * INTO A_empresas FROM [empresas] WHERE 1=0"


Saludos,
Pedro Luna Montalvo, [MVP VB.NET]
Gye, Ecu

"Karlos Traveceras" escribió en
el mensaje news:

muchas gracias mi estimado..

funciono a la perfeccion.. solo una duda.. si yo quisiera copiar la tabla
pero sin informacion.. cual seria el procedimiento..

gracias de nuevo..



"SoftJaén" wrote:

"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.

"Pedro Luna Montalvo, [MVP VB.NET]" escribió:

Seguro que Enrique se le ocurre otra forma de resolver esto ...

Hola, Pedro:

Pues no, para SQL Server no se me ocurre otra; siempre he utilizado la que
tú has comentado. Si fuera para Microsoft Access, el lenguaje SQL del motor
Jet también permite ésta otra:

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

¡Pero vamos!, mientras que funcione correctamente la condición WHERE 1=0, no
hay por qué calentarse la cabeza con otra condición de búsqueda. :-)

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.

Muchas gracias mis estimados.. la verdad esto ha sido de bastante ayuda para
mi..



"SoftJaén" wrote:

"Pedro Luna Montalvo, [MVP VB.NET]" escribió:
>
> Seguro que Enrique se le ocurre otra forma de resolver esto ...

Hola, Pedro:

Pues no, para SQL Server no se me ocurre otra; siempre he utilizado la que
tú has comentado. Si fuera para Microsoft Access, el lenguaje SQL del motor
Jet también permite ésta otra:

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

¡Pero vamos!, mientras que funcione correctamente la condición WHERE 1=0, no
hay por qué calentarse la cabeza con otra condición de búsqueda. :-)

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.