Hacer bakcup de la bd

"astrow" preguntó:

quisiera saber como se hace por codigo una backup de la bd, es decir la bd
la tengo en c:\Aplicacion\data\..., y quiero copiarla a
D:\Backup\Aplicacion.

La bd es SQL SERVER 2000

Abre una conexión con la base de datos «Master», y ejecutas la siguiente
consulta SQL:

' Construimos la consulta T-SQL para efectuar la copia
' de seguridad
'
Dim sql As String = "BACKUP DATABASE Base_Datos " & _
"TO DISK='D:\Backup\Aplicacion\Base_Datos.bck' " & _
"WITH FORMAT, " & _
"NAME = 'Copia de seguridad completa de la base tal."


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.

"astrow" escribió:

Estoy haciendo tal y como me dices me da un error:

Pues ignoro el motivo del mencionado error, pero desde luego, viendo el
código que estás ejecutando, de esa manera no vas a realizar nunca la copia
de seguridad.

Para ejecutar la consulta T-SQL, deberás utilizar el método
«ExecuteNonQuery» de un objeto SqlCommand. Después de la construcción de la
consulta T-SQL, cambia tu código por el siguiente:

Try
Dim oComandMaxSimpatizantes As New SqlCommand(sql, oConexion)

' Abrimos la conexión
oConexion.Open()

' Ejecutamos la consulta
oComandMaxSimpatizantes.ExecuteNonQuery()

MessageBox.Show("Copia de Seguridad efectuada.")

Catch ex As Exception
MessageBox.Show(ex.Message)

Finally
oConexion.Close()

End Try


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.

Bueno, viendo de nuevo el mensaje de excepción que obtienes, ya se el motivo
por el cual se produce, y es en la siguiente línea:

oConexion = cadena_conexion

La propiedad ConnectionString del objeto SqlConnection, la debes de
especificar expresamente, y asignarle una cadena alfanumérica (String):

Dim cadena_conexion As String

cadena_conexion = "Tu cadena de conexion"

oConexion.ConnectionString = cadena_conexion

Primer consejo para los programadores de Visual Basic .net: activar en todos
los proyectos la instrucción Option Strict. Si la tuviertas activada, Visual
Basic no te permitiría ni siquiera ejecutar una sola línea de código, hasta
que hubieras subsanado el error en la conversión de los tipos de datos.

Si te quieres ahorrar dolores de cabeza en el futuro, activa las
instrucciones Option Strict y Option Explicit.

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.