Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: TrashAmbishion en 12 Abril 2013, 23:15 pm



Título: Base de Datos SQL Local Duda ? SOLUCIONADO !!
Publicado por: TrashAmbishion en 12 Abril 2013, 23:15 pm
Amigos aprendiendo sobre este tema encontre un codigo que lo que haces es crear una base de datos lo ejecute en el Pc y trabajo sin problemas, mi duda es posible visualizar la bd para verificar..

Solucionado mi problema es que yo estaba trabajando con un archivo de tipo base datos *.mdf y entonces la instruccion para trabajar esta mal, abajo lo señalo

Código
  1.  
  2. Function CrearBD
  3.  
  4. LabelInfo.Text = "Creando la base de datos..."
  5.        LabelInfo.Refresh()
  6.  
  7.        ' La conexión a usar, indicando la base master
  8.        ' Aqui esta el error cambie esta declaracion de cnn por esta
  9.  
  10.        ' Dim cnn As New SqlConnection( _
  11.                        "Server=(local)\SQLEXPRESS; " & _
  12.                        "database=master; integrated security=yes")
  13.  
  14.        Private cnn As String = "Data Source =.\SQLExpress; Integrated Security =true; AttachDbFilename =|DataDirectory|\VideoDB.mdf; User Instance =true;"
  15.  
  16.        ' La orden T-SQL para crear la tabla
  17.        Dim s As String = "CREATE DATABASE " & txtDB.Text
  18.        Dim cmd As New SqlCommand(s, cnn)
  19.  
  20.        Try
  21.            ' Abrimos la conexión y ejecutamos el comando
  22.            cnn.Open()
  23.            cmd.ExecuteNonQuery()
  24.            '
  25.            LabelInfo.Text = "Base de datos creada correctamente"
  26.  
  27.        Catch ex As Exception
  28.            LabelInfo.Text = "Error al crear la base de datos"
  29.            MessageBox.Show(ex.Message, _
  30.                            "Error al crear la base", _
  31.                            MessageBoxButtons.OK, MessageBoxIcon.Error)
  32.        Finally
  33.            ' Por si se produce un error,
  34.            ' comprobar si la conexión está abierta
  35.            If cnn.State = ConnectionState.Open Then
  36.                cnn.Close()
  37.            End If
  38.        End Try
  39.  
  40. End Function
  41.  
  42.