none
Error al crear una Base de Datos desde VB RRS feed

  • Pregunta

  • Hola de nuevo, estoy intentando crear una base de datos desde VB.
    En el _Load del formulario tengo lo siguiente:

        Public Const StrdbRecreativos As String = "Data Source=.\SQLEXPRESS;" & _
                            "AttachDbFilename=" & RutaBBDD & BDRecreativos & ".mdf;" & _
                            "Integrated Security=True;User Instance=True"

        Public Const RutaBBDD As String = "C:\VB2010\DB\"
        Public Const BDRecreativos = "dbRecreativos"
    __________________________________________________________________________________
        Private Sub FrmDvInicio_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
            If ExisteBBDD(BDRecreativos) = False Then
                'MessageBox.Show("No existe la base de datos", "ATENCION")
                'Application.Exit()
                Dim result As DialogResult
                result = MessageBox.Show("No existe la Base de Datos, Desea crearla?", "¡¡ATENCION!!", _
                                         MessageBoxButtons.OKCancel, _
                                         MessageBoxIcon.Information, _
                                         MessageBoxDefaultButton.Button2) ', MessageBoxOptions.RightAlign )
                If result = DialogResult.OK Then
                    Try
                        'Creamos el comando
                        Using cmd As New SqlCommand()
                            'Indicamos la consulta Sql que vamos a ejecutar
                            cmd.CommandText = "CREATE DATABASE " & BDRecreativos
                            ExecutarAccion(BDRecreativos, cmd)
                        End Using
                    Catch ex As Exception
                        MessageBox.Show(ex.Message)
                    End Try
                End If
            End If
        End Sub

    _____________________________________________________________________________________________

        Public Function ExecutarAccion(ByVal BBDD As String, ByVal cmd As SqlCommand) As Integer
            sCadena = DeterminarConexionBBDD(BBDD)
            If (cmd Is Nothing) Then _
              Throw New ArgumentNullException()
            Try
                Using cnn As New SqlConnection(sCadena)
                    cmd.Connection = cnn
                    cnn.Open()
                    Return cmd.ExecuteNonQuery()
                    cnn.Close()
                End Using
            Catch ex As Exception
                Throw
            End Try
        End Function
    _____________________________________________________________________________________________

        Public Function DeterminarConexionBBDD(ByRef BBDD As String) As String
            Dim sBBDD As String = UCase(BBDD)
            If sBBDD = "DBRECREATIVOS" Then
                sCadena = StrdbRecreativos
            End If
            Return sCadena
        End Function
    _____________________________

    pero me sale el siguiente error:

    sin embargo busco la base de datos en el disco y no me aparece por ningún sitio

    lunes, 5 de diciembre de 2011 15:06