elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  restaurar base de datos
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: restaurar base de datos  (Leído 2,298 veces)
Choclito

Desconectado Desconectado

Mensajes: 99



Ver Perfil
restaurar base de datos
« en: 1 Mayo 2010, 06:35 am »

hola ah todos miren taba restaurando mi base de datos desde mi aplicacion VB2005 y me genera un Error que no puedo Solucionarlo el Error es: No se pudo obtener acceso exlusivo porque la base de datos esta en uso Fin anomalo de RESTORE DATABASE

mostrare una parte de  mi aplicacion lo que toy haciendo lo que si no tengo problema es al guardar el backu pero para restaurar ahi ta el chongo :

mi clase clsconexion

Imports System.Data.SqlClient
Public Class clsConexion
    Public cadenaconexion As New SqlConnection
    Public Function conectar(ByVal server As String, ByVal DB As String, ByVal usuario As String, ByVal clave As String) As Boolean
        Try
            cadenaconexion.ConnectionString = "Data Source=.;Initial Catalog=BDBIBLIOTECA;Integrated Security=True"
            cadenaconexion.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
            cadenaconexion.Close()
        End Try
    End Function
    Public Function consultaBD(ByVal sentenciaSQL As String) As DataTable
        cadenaconexion.Open()
        Dim consulta As New SqlCommand(sentenciaSQL, cadenaconexion)
        Dim daBD As New SqlDataAdapter(consulta)
        Dim dtBD As New DataTable
        daBD.Fill(dtBD)
        consultaBD = dtBD
        cadenaconexion.Close()
    End Function
End Class

'el Programa

 Private Sub FrmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        enlace.conectar("", "", "", "")      
 End Sub

Private Sub RESTAURARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RESTAURARToolStripMenuItem.Click
        Dim cadena As String
        If (sfdrestaurar.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            cadena = sfdrestaurar.FileName
            If restaurar_basededatos(cadena) = True Then
                MessageBox.Show("Base de Datos Restaurada", "Mensaje", MessageBoxButtons.OK)          
            End If

        End If
    End Sub
 Private Function restaurar_basededatos(ByVal cadena As String) As Boolean
        Dim sBackup As String = "RESTORE DATABASE BDBIBLIOTECA  FROM DISK = '" & cadena & "'" & " WITH REPLACE"
        Dim conecsb As New SqlConnectionStringBuilder
        conecsb.DataSource = "(local)"
        conecsb.InitialCatalog = "master"
        conecsb.IntegratedSecurity = True
        Using con As New SqlConnection(conecsb.ConnectionString)
            Try
                con.Open()
                Dim cmdRestore As New SqlCommand(sBackup, con)
                cmdRestore.ExecuteNonQuery()
                restaurar_basededatos = True
            Catch ex As Exception
                restaurar_basededatos = False
                MessageBox.Show(ex.Message)
            Finally
                con.Close()
            End Try
        End Using
    End Function

    Private Sub GUARDARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GUARDARToolStripMenuItem.Click
        Dim cadena As String
        If (sfdguardar.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            cadena = sfdguardar.FileName
            enlace.consultaBD("backup database BDBIBLIOTECA to disk = N'" + cadena + "'")
            MessageBox.Show("Base de Datos Guardada", "Mensaje", MessageBoxButtons.OK)
        End If
    End Sub


« Última modificación: 1 Mayo 2010, 06:39 am por Choclito » En línea

MANULOMM


Desconectado Desconectado

Mensajes: 559


Erepublik.com


Ver Perfil
Re: restaurar base de datos
« Respuesta #1 en: 2 Mayo 2010, 18:26 pm »

pues no se cual es el problema y la verdad ni Tag's de code utilizaste asi que me da pereza, yo te recomiendo te Mires SMO que son las Librerias que utiliza el Management Studio para hacer todas las tareas, el tene un metodo para hacer backUp y asi no te queda mala.

Atentamente,

Juan Manuel Lombana
Microsoft Student Partner
Microsoft Certified Professional
Medellín - Colombia


En línea


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda con Restaurar una base de datos
Bases de Datos
jacj0102 1 2,325 Último mensaje 16 Junio 2011, 08:49 am
por .:UND3R:.
Problema al Restaurar la base de Datos
Bases de Datos
Libra_18 0 1,405 Último mensaje 8 Febrero 2012, 15:32 pm
por Libra_18
Restaurar SO (win 7) sobre Xp pero SIN perder datos?¿?¿
Windows
txente 3 1,871 Último mensaje 13 Abril 2013, 10:29 am
por txente
Restaurar base de datos sin Acceso a PHPmyAdmin
PHP
elquenosabe 4 1,487 Último mensaje 29 Junio 2013, 04:41 am
por engel lex
KRAB Virus - Cómo quitar GANDCRAB V4 y restaurar datos...
Análisis y Diseño de Malware
r32 2 2,755 Último mensaje 12 Septiembre 2018, 04:55 am
por Jesus Arturo
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines